blob: fca6c89a168aff528466a851acebdbc8c05c556f (plain)

ofs	hex dump	ascii
0000	0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 29 29 0a 0a 28 64 65 66 76	.(provide.(quote.scheme))..(defv
0020	61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e 69 6c 20	ar.scheme-mode-syntax-table.nil.
0040	22 5c 0a 22 29 0a 0a 28 69 66 20 28 6e 6f 74 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74	"\.")..(if.(not.scheme-mode-synt
0060	61 78 2d 74 61 62 6c 65 29 20 28 6c 65 74 20 28 28 69 20 30 29 29 20 28 73 65 74 71 20 73 63 68	ax-table).(let.((i.0)).(setq.sch
0080	65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74	eme-mode-syntax-table.(make-synt
00a0	61 78 2d 74 61 62 6c 65 29 29 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 73 63 68	ax-table)).(set-syntax-table.sch
00c0	65 6d 65 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 20 28 77 68 69 6c 65 20 28 3c	eme-mode-syntax-table).(while.(<
00e0	20 69 20 32 35 36 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22	.i.256).(modify-syntax-entry.i."
0100	5f 20 20 20 22 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20	_...").(setq.i.(1+.i))).(setq.i.
0120	34 38 29 20 28 77 68 69 6c 65 20 28 3c 3d 20 69 20 35 37 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e	48).(while.(<=.i.57).(modify-syn
0140	74 61 78 2d 65 6e 74 72 79 20 69 20 22 77 20 20 20 22 29 20 28 73 65 74 71 20 69 20 28 31 2b 20	tax-entry.i."w...").(setq.i.(1+.
0160	69 29 29 29 20 28 73 65 74 71 20 69 20 36 35 29 20 28 77 68 69 6c 65 20 28 3c 3d 20 69 20 39 30	i))).(setq.i.65).(while.(<=.i.90
0180	29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 69 20 22 77 20 20 20 22 29	).(modify-syntax-entry.i."w...")
01a0	20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20 28 73 65 74 71 20 69 20 39 37 29 20 28 77	.(setq.i.(1+.i))).(setq.i.97).(w
01c0	68 69 6c 65 20 28 3c 3d 20 69 20 31 32 32 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65	hile.(<=.i.122).(modify-syntax-e
01e0	6e 74 72 79 20 69 20 22 77 20 20 20 22 29 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 20	ntry.i."w...").(setq.i.(1+.i))).
0200	28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 20 22 20 20 20 20 22 29 20 28	(modify-syntax-entry.9."....").(
0220	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 30 20 22 3e 20 20 20 22 29 20 28	modify-syntax-entry.10.">...").(
0240	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 20 22 20 20 20 20 22 29 20 28	modify-syntax-entry.12."....").(
0260	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 33 20 22 20 20 20 20 22 29 20 28	modify-syntax-entry.13."....").(
0280	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 32 20 22 20 20 20 20 22 29 20 28	modify-syntax-entry.32."....").(
02a0	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 31 20 22 28 5d 20 20 22 29 20 28	modify-syntax-entry.91."(]..").(
02c0	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 33 20 22 29 5b 20 20 22 29 20 28	modify-syntax-entry.93.")[..").(
02e0	6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 33 20 22 28 7d 20 20 22 29 20	modify-syntax-entry.123."(}..").
0300	28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 35 20 22 29 7b 20 20 22 29	(modify-syntax-entry.125."){..")
0320	20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 31 32 34 20 22 20 20 20 20 22	.(modify-syntax-entry.124."...."
0340	29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 30 20 22 28 29 20 20 22	).(modify-syntax-entry.40."().."
0360	29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 31 20 22 29 28 20 20 22	).(modify-syntax-entry.41.")(.."
0380	29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 35 39 20 22 3c 20 20 20 22	).(modify-syntax-entry.59."<..."
03a0	29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 34 20 22 5c 22 20 20 20	).(modify-syntax-entry.34."\"...
03c0	20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 27 20 20	.").(modify-syntax-entry.39."'..
03e0	20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 36 20 22 27 20 20	.").(modify-syntax-entry.96."'..
0400	20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 34 34 20 22 27 20 20	.").(modify-syntax-entry.44."'..
0420	20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 34 20 22 27 20 20	.").(modify-syntax-entry.64."'..
0440	20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 35 20 22 27 20 20	.").(modify-syntax-entry.35."'..
0460	20 22 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 20 22 5c 5c 20	.").(modify-syntax-entry.92."\\.
0480	20 20 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72	..")))..(defvar.scheme-mode-abbr
04a0	65 76 2d 74 61 62 6c 65 20 6e 69 6c 20 22 5c 0a 22 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72	ev-table.nil."\.")..(define-abbr
04c0	65 76 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72	ev-table.(quote.scheme-mode-abbr
04e0	65 76 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f	ev-table).nil)..(defun.scheme-mo
0500	64 65 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ce 08 21	de-variables.nil.(byte-code."..!
0520	88 0a 89 11 88 cf c3 21 88 d0 0c 50 89 13 88 cf c5 21 88 0b 89 15 88 cf c6 21 88 c7 89 16 06 88	.......!...P.....!.......!......
0540	cf c8 21 88 d1 89 16 08 88 cf c9 21 88 d2 89 16 09 88 cf ca 21 88 d3 89 16 0a 88 cf cb 21 88 d4	..!........!........!........!..
0560	89 16 0b 88 cf cc 21 88 d5 89 16 0c 88 d6 89 16 0d 87 22 20 5b 73 63 68 65 6d 65 2d 6d 6f 64 65	......!...........".[scheme-mode
0580	2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 6f 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65	-syntax-table.local-abbrev-table
05a0	20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 70 61 72 61 67 72	.scheme-mode-abbrev-table.paragr
05c0	61 70 68 2d 73 74 61 72 74 20 70 61 67 65 2d 64 65 6c 69 6d 69 74 65 72 20 70 61 72 61 67 72 61	aph-start.page-delimiter.paragra
05e0	70 68 2d 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 2d 69 67 6e 6f 72 65 2d 66 69 6c	ph-separate.paragraph-ignore-fil
0600	6c 2d 70 72 65 66 69 78 20 74 20 69 6e 64 65 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20	l-prefix.t.indent-line-function.
0620	63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70	comment-start.comment-start-skip
0640	20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68	.comment-column.comment-indent-h
0660	6f 6f 6b 20 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 73 65 74 2d 73 79 6e 74 61 78	ook.mode-line-process.set-syntax
0680	2d 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 22 5e 24 5c 5c	-table.make-local-variable."^$\\
06a0	7c 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 22 3b 22 20 22 3b 2b 5b 20 09	|".scheme-indent-line.";".";+[..
06c0	5d 2a 22 20 34 30 20 73 63 68 65 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 28 22 22	]*".40.scheme-comment-indent.(""
06e0	20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 29 5d 20 31 31 29 29	.scheme-mode-line-process)].11))
0700	0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65	..(defvar.scheme-mode-line-proce
0720	73 73 20 22 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 63 6f 6d 6d 61	ss."")..(defun.scheme-mode-comma
0740	6e 64 73 20 28 6d 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5	nds.(map).(byte-code."....#.....
0760	23 88 c1 08 c6 c7 23 87 22 20 5b 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 09 22 20 73 63	#.....#.".[map.define-key.".".sc
0780	68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 22 7f 22 20 62 61 63 6b 77 61 72 64 2d 64 65	heme-indent-line.".".backward-de
07a0	6c 65 74 65 2d 63 68 61 72 2d 75 6e 74 61 62 69 66 79 20 22 1b 11 22 20 73 63 68 65 6d 65 2d 69	lete-char-untabify."..".scheme-i
07c0	6e 64 65 6e 74 2d 73 65 78 70 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d	ndent-sexp].6))..(defvar.scheme-
07e0	6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 28 6e 6f 74 20 73 63 68 65 6d 65 2d 6d	mode-map.nil)..(if.(not.scheme-m
0800	6f 64 65 2d 6d 61 70 29 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20 73 63 68 65 6d 65 2d 6d 6f 64	ode-map).(progn.(setq.scheme-mod
0820	65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 73 63 68	e-map.(make-sparse-keymap)).(sch
0840	65 6d 65 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61	eme-mode-commands.scheme-mode-ma
0860	70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a	p)))..(defun.scheme-mode.nil."\.
0880	4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 64 69 74 69 6e 67 20 53 63 68 65 6d 65 20 63 6f	Major.mode.for.editing.Scheme.co
08a0	64 65 2e 0a 45 64 69 74 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 73 69 6d 69 6c 61 72	de..Editing.commands.are.similar
08c0	20 74 6f 20 74 68 6f 73 65 20 6f 66 20 6c 69 73 70 2d 6d 6f 64 65 2e 0a 0a 49 6e 20 61 64 64 69	.to.those.of.lisp-mode...In.addi
08e0	74 69 6f 6e 2c 20 69 66 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63	tion,.if.an.inferior.Scheme.proc
0900	65 73 73 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 73 6f 6d 65 20 61 64 64 69 74 69 6f 6e 61 6c 0a	ess.is.running,.some.additional.
0920	63 6f 6d 6d 61 6e 64 73 20 77 69 6c 6c 20 62 65 20 64 65 66 69 6e 65 64 2c 20 66 6f 72 20 65 76	commands.will.be.defined,.for.ev
0940	61 6c 75 61 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 6e 64 20 63 6f 6e 74 72 6f 6c	aluating.expressions.and.control
0960	6c 69 6e 67 0a 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 2c 20 61 6e 64 20 74 68 65 20 73 74	ling.the.interpreter,.and.the.st
0980	61 74 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 62 65 20 64 69 73 70 6c	ate.of.the.process.will.be.displ
09a0	61 79 65 64 20 69 6e 20 74 68 65 0a 6d 6f 64 65 6c 69 6e 65 20 6f 66 20 61 6c 6c 20 53 63 68 65	ayed.in.the.modeline.of.all.Sche
09c0	6d 65 20 62 75 66 66 65 72 73 2e 20 20 54 68 65 20 6e 61 6d 65 73 20 6f 66 20 63 6f 6d 6d 61 6e	me.buffers...The.names.of.comman
09e0	64 73 20 74 68 61 74 20 69 6e 74 65 72 61 63 74 0a 77 69 74 68 20 74 68 65 20 53 63 68 65 6d 65	ds.that.interact.with.the.Scheme
0a00	20 70 72 6f 63 65 73 73 20 73 74 61 72 74 20 77 69 74 68 20 5c 22 78 73 63 68 65 6d 65 2d 5c 22	.process.start.with.\"xscheme-\"
0a20	2e 20 20 46 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 0a 73 65 65 20 74 68 65 20	...For.more.information.see.the.
0a40	64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 78 73 63 68 65 6d 65 2d 69 6e 74 65 72 61	documentation.for.xscheme-intera
0a60	63 74 69 6f 6e 2d 6d 6f 64 65 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 6c 65 74 65 20 63 6f	ction-mode...Commands:.Delete.co
0a80	6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 61 73 20 69 74 20 6d 6f 76 65	nverts.tabs.to.spaces.as.it.move
0aa0	73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73 20 73 65 70 61 72 61 74 65 20 70 61 72	s.back..Blank.lines.separate.par
0ac0	61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e 73 20 73 74 61 72 74 20 63 6f 6d 6d 65	agraphs...Semicolons.start.comme
0ae0	6e 74 73 2e 0a 5c 5c 7b 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 45 6e 74 72 79 20 74	nts..\\{scheme-mode-map}.Entry.t
0b00	6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73	o.this.mode.calls.the.value.of.s
0b20	63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73	cheme-mode-hook.if.that.value.is
0b40	20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63	.non-nil.".(interactive).(byte-c
0b60	6f 64 65 20 22 c0 88 c1 20 88 c2 20 88 c3 20 88 c4 c5 21 87 22 20 5b 6e 69 6c 20 6b 69 6c 6c 2d	ode.".............!.".[nil.kill-
0b80	61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d	all-local-variables.scheme-mode-
0ba0	69 6e 69 74 69 61 6c 69 7a 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73	initialize.scheme-mode-variables
0bc0	20 72 75 6e 2d 68 6f 6f 6b 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 35 29 29	.run-hooks.scheme-mode-hook].5))
0be0	0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20	..(defun.scheme-mode-initialize.
0c00	6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 c4 89 11 88 c5 89 12 87 22 20 5b 73	nil.(byte-code."..!.........".[s
0c20	63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e	cheme-mode-map.major-mode.mode-n
0c40	61 6d 65 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 73 63 68 65 6d 65 2d 6d 6f 64 65 20 22 53	ame.use-local-map.scheme-mode."S
0c60	63 68 65 6d 65 22 5d 20 33 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 6d 69 74 2d	cheme"].3))..(defvar.scheme-mit-
0c80	64 69 61 6c 65 63 74 20 74 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 63 68 65 6d 65 20	dialect.t."\.If.non-nil,.scheme.
0ca0	6d 6f 64 65 20 69 73 20 73 70 65 63 69 61 6c 69 7a 65 64 20 66 6f 72 20 4d 49 54 20 53 63 68 65	mode.is.specialized.for.MIT.Sche
0cc0	6d 65 2e 0a 53 65 74 20 74 68 69 73 20 74 6f 20 6e 69 6c 20 69 66 20 79 6f 75 20 6e 6f 72 6d 61	me..Set.this.to.nil.if.you.norma
0ce0	6c 6c 79 20 75 73 65 20 61 6e 6f 74 68 65 72 20 64 69 61 6c 65 63 74 2e 22 29 0a 0a 28 64 65 66	lly.use.another.dialect.")..(def
0d00	75 6e 20 73 63 68 65 6d 65 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 28 26 6f 70 74 69 6f	un.scheme-comment-indent.(&optio
0d20	6e 61 6c 20 70 6f 73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a 08 85 07 00 08 62 88 c4 c5 21	nal.pos).(byte-code."......b...!
0d40	83 12 00 69 82 3a 00 c4 c6 21 83 2a 00 c7 20 19 09 3c 83 25 00 09 40 82 26 00 09 29 82 3a 00 c8	...i.:...!.*.....<.%..@.&..).:..
0d60	c9 21 88 6e 83 36 00 ca 82 38 00 69 54 0b 5d 29 87 22 20 5b 70 6f 73 20 74 65 6d 20 74 20 63 6f	.!.n.6...8.iT.]).".[pos.tem.t.co
0d80	6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 3b 3b 22 20 22 3b	mment-column.looking-at.";;;".";
0da0	3b 22 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 20 73 6b 69 70 2d	;".calculate-scheme-indent.skip-
0dc0	63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 20 30 5d 20 36 29 29 0a 0a 28 64 65 66	chars-backward."..".0].6))..(def
0de0	76 61 72 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74 20 6e 69 6c 20 22 5c 0a	var.scheme-indent-offset.nil."\.
0e00	22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28	")..(defvar.scheme-indent-hook.(
0e20	71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 22 5c 0a 22 29 0a	quote.scheme-indent-hook)."\.").
0e40	0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 28 26 6f 70 74	.(defun.scheme-indent-line.(&opt
0e60	69 6f 6e 61 6c 20 77 68 6f 6c 65 2d 65 78 70 29 20 22 5c 0a 49 6e 64 65 6e 74 20 63 75 72 72 65	ional.whole-exp)."\.Indent.curre
0e80	6e 74 20 6c 69 6e 65 20 61 73 20 53 63 68 65 6d 65 20 63 6f 64 65 2e 0a 57 69 74 68 20 61 72 67	nt.line.as.Scheme.code..With.arg
0ea0	75 6d 65 6e 74 2c 20 69 6e 64 65 6e 74 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c 20 6c 69 6e	ument,.indent.any.additional.lin
0ec0	65 73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 0a 72 69 67 69 64 6c	es.of.the.same.expression.rigidl
0ee0	79 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 6f 6e 65 2e 22 20 28 69 6e 74 65 72 61 63	y.along.with.this.one.".(interac
0f00	74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 88 c7 20 c5 c5 c5 64 60 5a	tive."P").(byte-code.".......d`Z
0f20	1c 1b 1a 19 18 c8 20 88 60 89 12 88 c9 ca 21 88 cb cc 21 83 24 00 c5 82 82 00 08 3c 85 2d 00 08	........`.....!...!.$......<.-..
0f40	40 89 10 88 08 69 5a 89 11 88 cd 09 21 83 3e 00 c5 82 45 00 ce 0a 60 5c 22 88 08 6a 88 64 0c 5a	@....iZ.....!.>...E...`\"..j.d.Z
0f60	60 56 85 52 00 64 0c 5a 62 88 0e 06 85 82 00 cd 09 21 3f 85 82 00 8a 0a 62 88 cf d0 21 88 60 89	`V.R.d.Zb........!?.....b...!.`.
0f80	13 88 0a 62 88 d1 d0 21 88 60 89 12 88 0b 0a 56 29 85 82 00 d2 0a 0b 09 23 2d 87 22 20 5b 69 6e	...b...!.`.....V).......#-.".[in
0fa0	64 65 6e 74 20 73 68 69 66 74 2d 61 6d 74 20 62 65 67 20 65 6e 64 20 70 6f 73 20 6e 69 6c 20 77	dent.shift-amt.beg.end.pos.nil.w
0fc0	68 6f 6c 65 2d 65 78 70 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74	hole-exp.calculate-scheme-indent
0fe0	20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f	.beginning-of-line.skip-chars-fo
1000	72 77 61 72 64 20 22 20 09 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 20 09 5d 2a 3b 3b 3b 22	rward."..".looking-at."[..]*;;;"
1020	20 7a 65 72 6f 70 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 66 6f 72 77 61 72 64 2d 73 65 78	.zerop.delete-region.forward-sex
1040	70 20 31 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 69 6e 64 65 6e 74 2d 63 6f 64 65 2d 72 69 67	p.1.forward-line.indent-code-rig
1060	69 64 6c 79 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68	idly].13))..(defun.calculate-sch
1080	65 6d 65 2d 69 6e 64 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 72 73 65 2d 73 74 61 72	eme-indent.(&optional.parse-star
10a0	74 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 70 70 72 6f 70 72 69 61 74 65 20 69 6e 64 65 6e 74 61	t)."\.Return.appropriate.indenta
10c0	74 69 6f 6e 20 66 6f 72 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 73 63 68 65 6d 65 20	tion.for.current.line.as.scheme.
10e0	63 6f 64 65 2e 0a 49 6e 20 75 73 75 61 6c 20 63 61 73 65 20 72 65 74 75 72 6e 73 20 61 6e 20 69	code..In.usual.case.returns.an.i
1100	6e 74 65 67 65 72 3a 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f 2e	nteger:.the.column.to.indent.to.
1120	0a 43 61 6e 20 69 6e 73 74 65 61 64 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 2c 20 77 68 6f 73	.Can.instead.return.a.list,.whos
1140	65 20 63 61 72 20 69 73 20 74 68 65 20 63 6f 6c 75 6d 6e 20 74 6f 20 69 6e 64 65 6e 74 20 74 6f	e.car.is.the.column.to.indent.to
1160	2e 0a 54 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 6e 65	..This.means.that.following.line
1180	73 20 61 74 20 74 68 65 20 73 61 6d 65 20 6c 65 76 65 6c 20 6f 66 20 69 6e 64 65 6e 74 61 74 69	s.at.the.same.level.of.indentati
11a0	6f 6e 0a 73 68 6f 75 6c 64 20 6e 6f 74 20 6e 65 63 65 73 73 61 72 69 6c 79 20 62 65 20 69 6e 64	on.should.not.necessarily.be.ind
11c0	65 6e 74 65 64 20 74 68 65 20 73 61 6d 65 20 77 61 79 2e 0a 54 68 65 20 73 65 63 6f 6e 64 20 65	ented.the.same.way..The.second.e
11e0	6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 69 73 20 74 68 65 20 62 75 66 66 65 72	lement.of.the.list.is.the.buffer
1200	20 70 6f 73 69 74 69 6f 6e 0a 6f 66 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20 63 6f	.position.of.the.start.of.the.co
1220	6e 74 61 69 6e 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65	ntaining.expression.".(byte-code
1240	20 22 8a ce 20 88 60 ca ca ca c5 ca ca ca 1e 08 1e 07 1e 06 1c 1b 1a 19 18 0e 09 83 5c 22 00 0e	."....`.....................\"..
1260	09 62 82 24 00 cf 20 88 60 08 57 85 36 00 d0 60 08 d1 23 89 11 88 82 25 00 88 0c 85 45 00 09 40	.b.$....`.W.6..`..#....%....E..@
1280	89 12 85 45 00 0a d1 56 85 ea 00 ca 89 14 88 d2 09 38 89 16 06 88 09 41 40 89 16 07 88 0e 07 54	...E...V.........8.....A@......T
12a0	62 88 0e 06 85 68 00 0e 06 60 56 85 81 00 d0 0e 06 08 d1 23 1e 0b 0e 0b 41 40 89 14 85 80 00 0e	b....h...`V........#....A@......
12c0	0b 89 11 29 88 0c 3f 85 e6 00 0e 07 54 62 88 0e 06 3f 83 98 00 69 89 13 82 e6 00 d0 60 0e 06 d1	...)..?.....Tb...?...i......`...
12e0	c5 24 88 d3 d4 21 89 16 08 88 8a d5 d6 21 88 60 29 0e 06 56 83 d5 00 d0 60 0e 06 d1 c5 24 88 d7	.$...!.......!.`)..V....`....$..
1300	60 0e 06 5c 22 85 cf 00 d8 d6 21 88 d0 60 0e 06 d1 c5 24 88 d9 20 82 e6 00 0e 06 62 88 ce 20 88	`..\".....!..`....$........b....
1320	d0 60 0e 06 d1 c5 24 88 d9 20 88 82 37 00 88 0e 08 85 f3 00 69 89 13 88 da db 09 5c 22 40 83 09	.`....$.....7.......i......\"@..
1340	01 08 62 88 dc dd 21 88 69 89 13 82 45 01 de 0e 0c 21 85 12 01 0e 07 83 5c 22 01 0e 07 62 88 0e	..b...!.i...E....!......\"...b..
1360	0c 69 5c 5c 89 13 82 45 01 0b 86 3e 01 df cd 21 85 3e 01 0e 0d 85 3e 01 0c 3f 85 3e 01 e0 0e 0d	.i\\...E...>...!.>....>..?.>....
1380	08 09 23 89 13 3f 85 45 01 69 89 13 88 0b 2e 08 29 87 22 20 5b 69 6e 64 65 6e 74 2d 70 6f 69 6e	..#..?.E.i......).".[indent-poin
13a0	74 20 73 74 61 74 65 20 70 61 72 65 6e 2d 64 65 70 74 68 20 64 65 73 69 72 65 64 2d 69 6e 64 65	t.state.paren-depth.desired-inde
13c0	6e 74 20 72 65 74 72 79 20 74 20 6c 61 73 74 2d 73 65 78 70 20 63 6f 6e 74 61 69 6e 69 6e 67 2d	nt.retry.t.last-sexp.containing-
13e0	73 65 78 70 20 66 69 72 73 74 2d 73 65 78 70 2d 6c 69 73 74 2d 70 20 70 61 72 73 65 2d 73 74 61	sexp.first-sexp-list-p.parse-sta
1400	72 74 20 6e 69 6c 20 70 65 65 6b 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 6f 66 66 73 65 74	rt.nil.peek.scheme-indent-offset
1420	20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66	.scheme-indent-hook.beginning-of
1440	2d 6c 69 6e 65 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 64 65 66 75 6e 20 70 61 72 73 65 2d 70	-line.beginning-of-defun.parse-p
1460	61 72 74 69 61 6c 2d 73 65 78 70 20 30 20 32 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 73 28	artial-sexp.0.2.looking-at."\\s(
1480	22 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 2f 3d 20 66 6f 72 77 61 72 64 2d 73 65 78 70	".forward-line.1./=.forward-sexp
14a0	20 62 61 63 6b 77 61 72 64 2d 70 72 65 66 69 78 2d 63 68 61 72 73 20 6e 74 68 63 64 72 20 33 20	.backward-prefix-chars.nthcdr.3.
14c0	73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 69 6e 74 65 67 65 72 70	skip-chars-forward."..".integerp
14e0	20 62 6f 75 6e 64 70 20 66 75 6e 63 61 6c 6c 5d 20 32 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63	.boundp.funcall].23))..(defun.sc
1500	68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 28 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73	heme-indent-hook.(indent-point.s
1520	74 61 74 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 69 18 8a 09 41 40 54 62 88 c5 c6 21 88 c7	tate).(byte-code."i...A@Tb...!..
1540	60 09 41 40 5c 22 85 63 00 c8 c9 ca 21 88 60 cb cc 21 88 60 5c 22 cd 1b 1a ce 0a 21 89 12 88 cf	`.A@\".c....!.`..!.`\".....!....
1560	0a 21 d0 4e 89 13 88 d1 0b 21 83 41 00 d2 0b 09 0c 23 82 62 00 0b 83 4d 00 d3 0b 09 0c 23 82 62	.!.N.....!.A.....#.b...M.....#.b
1580	00 0a 47 d4 56 85 5b 00 d5 0a d6 d4 4f d7 5c 22 85 62 00 d8 09 0c 5c 22 2a 29 29 87 22 20 5b 6e	..G.V.[.....O.\".b....\"*)).".[n
15a0	6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 73 74 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 6d 65 74 68	ormal-indent.state.function.meth
15c0	6f 64 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72	od.indent-point.re-search-forwar
15e0	64 20 22 5c 5c 73 77 5c 5c 7c 5c 5c 73 5f 22 20 2f 3d 20 62 75 66 66 65 72 2d 73 75 62 73 74 72	d."\\sw\\|\\s_"./=.buffer-substr
1600	69 6e 67 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 2d 31 20 66 6f 72 77 61 72 64 2d 73 65 78 70	ing.forward-char.-1.forward-sexp
1620	20 31 20 6e 69 6c 20 64 6f 77 6e 63 61 73 65 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 73 63 68 65	.1.nil.downcase.intern-soft.sche
1640	6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 69 6e 74 65 67 65 72 70 20 73 63 68 65 6d 65 2d 69	me-indent-hook.integerp.scheme-i
1660	6e 64 65 6e 74 2d 73 70 65 63 66 6f 72 6d 20 66 75 6e 63 61 6c 6c 20 33 20 73 74 72 69 6e 67 2d	ndent-specform.funcall.3.string-
1680	65 71 75 61 6c 20 30 20 22 64 65 66 22 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 66	equal.0."def".scheme-indent-deff
16a0	6f 72 6d 5d 20 31 34 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 62 6f 64 79 2d 69	orm].14))..(defvar.scheme-body-i
16c0	6e 64 65 6e 74 20 32 20 22 5c 0a 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e 64	ndent.2."\.")..(defun.scheme-ind
16e0	65 6e 74 2d 73 70 65 63 66 6f 72 6d 20 28 63 6f 75 6e 74 20 73 74 61 74 65 20 69 6e 64 65 6e 74	ent-specform.(count.state.indent
1700	2d 70 6f 69 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 41 40 0b ca ca 1d 1c 1a 18 08 62	-point).(byte-code.".A@........b
1720	88 69 89 15 88 0e 06 0d 5c 5c 89 14 88 cb cc 21 88 cd cc 21 88 ce 60 0e 07 cc c8 24 88 60 0e 07	.i......\\.....!...!..`....$.`..
1740	57 85 33 00 ca cf d0 8f 85 3b 00 ca 88 82 28 00 88 0b d1 56 83 4e 00 0d d2 d3 0e 06 5c 22 5c 5c	W.3......;....(....V.N......\"\\
1760	08 44 82 67 00 0b d1 55 85 5e 00 0a d1 55 86 5e 00 0c 0e 09 58 83 65 00 0c 82 67 00 0e 09 2c 87	.D.g...U.^...U.^....X.e...g...,.
1780	22 20 5b 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f 72 6d 2d 73 74 61 72 74 20 73 74 61 74 65 20 69	".[containing-form-start.state.i
17a0	20 63 6f 75 6e 74 20 62 6f 64 79 2d 69 6e 64 65 6e 74 20 63 6f 6e 74 61 69 6e 69 6e 67 2d 66 6f	.count.body-indent.containing-fo
17c0	72 6d 2d 63 6f 6c 75 6d 6e 20 73 63 68 65 6d 65 2d 62 6f 64 79 2d 69 6e 64 65 6e 74 20 69 6e 64	rm-column.scheme-body-indent.ind
17e0	65 6e 74 2d 70 6f 69 6e 74 20 74 20 6e 6f 72 6d 61 6c 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 66 6f	ent-point.t.normal-indent.nil.fo
1800	72 77 61 72 64 2d 63 68 61 72 20 31 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 70 61 72 73 65 2d	rward-char.1.forward-sexp.parse-
1820	70 61 72 74 69 61 6c 2d 73 65 78 70 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 53 89 10 88 c3 c4	partial-sexp.(byte-code.".S.....
1840	21 88 c5 60 09 c4 c2 24 87 22 20 5b 63 6f 75 6e 74 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 74	!..`...$.".[count.indent-point.t
1860	20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65	.forward-sexp.1.parse-partial-se
1880	78 70 5d 20 36 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b	xp].6).((error.(byte-code."..".[
18a0	6e 69 6c 5d 20 31 29 29 29 20 30 20 2a 20 32 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68	nil].1))).0.*.2].7))..(defun.sch
18c0	65 6d 65 2d 69 6e 64 65 6e 74 2d 64 65 66 66 6f 72 6d 20 28 73 74 61 74 65 20 69 6e 64 65 6e 74	eme-indent-defform.(state.indent
18e0	2d 70 6f 69 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 62 88 c2 c3 21 88 60 08 41	-point).(byte-code.".A@b...!.`.A
1900	41 40 56 85 1a 00 08 41 40 62 88 09 69 5c 5c 87 22 20 5b 73 74 61 74 65 20 73 63 68 65 6d 65 2d	A@V....A@b..i\\.".[state.scheme-
1920	62 6f 64 79 2d 69 6e 64 65 6e 74 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 5d 20 33 29 29 0a	body-indent.forward-line.1].3)).
1940	0a 28 64 65 66 75 6e 20 77 6f 75 6c 64 2d 62 65 2d 73 79 6d 62 6f 6c 20 28 73 74 72 69 6e 67 29	.(defun.would-be-symbol.(string)
1960	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 4f c4 5c 22 3f 87 22 20 5b 73 74 72 69 6e 67	.(byte-code."....O.\"?.".[string
1980	20 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 30 20 31 20 22 28 22 5d 20 34 29 29 0a 0a 28 64 65 66	.string-equal.0.1."("].4))..(def
19a0	75 6e 20 6e 65 78 74 2d 73 65 78 70 2d 61 73 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 62 79 74 65	un.next-sexp-as-string.nil.(byte
19c0	2d 63 6f 64 65 20 22 c1 c2 21 88 60 18 c3 c2 21 88 c4 60 08 5c 22 29 87 22 20 5b 74 68 65 2d 65	-code."..!.`...!..`.\").".[the-e
19e0	6e 64 20 66 6f 72 77 61 72 64 2d 73 65 78 70 20 31 20 62 61 63 6b 77 61 72 64 2d 73 65 78 70 20	nd.forward-sexp.1.backward-sexp.
1a00	62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 63	buffer-substring].5))..(defun.sc
1a20	68 65 6d 65 2d 6c 65 74 2d 69 6e 64 65 6e 74 20 28 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f	heme-let-indent.(state.indent-po
1a40	69 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 88 c4 c5 21 83 12 00 c6 c7 08 09 23	int).(byte-code."..!...!.......#
1a60	82 17 00 c6 c8 08 09 23 87 22 20 5b 73 74 61 74 65 20 69 6e 64 65 6e 74 2d 70 6f 69 6e 74 20 73	.......#.".[state.indent-point.s
1a80	6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 6c 6f 6f 6b 69 6e 67 2d 61	kip-chars-forward."..".looking-a
1aa0	74 20 22 5b 61 2d 7a 41 2d 5a 30 2d 39 2b 2d 2a 2f 3f 21 40 24 25 5e 26 5f 3a 7e 5d 22 20 73 63	t."[a-zA-Z0-9+-*/?!@$%^&_:~]".sc
1ac0	68 65 6d 65 2d 69 6e 64 65 6e 74 2d 73 70 65 63 66 6f 72 6d 20 32 20 31 5d 20 37 29 29 0a 0a 28	heme-indent-specform.2.1].7))..(
1ae0	70 75 74 20 28 71 75 6f 74 65 20 62 65 67 69 6e 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d	put.(quote.begin).(quote.scheme-
1b00	69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 63 61 73	indent-hook).0)..(put.(quote.cas
1b20	65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29	e).(quote.scheme-indent-hook).1)
1b40	0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 64 65 6c 61 79 29 20 28 71 75 6f 74 65 20 73 63 68 65	..(put.(quote.delay).(quote.sche
1b60	6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20	me-indent-hook).0)..(put.(quote.
1b80	64 6f 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 32	do).(quote.scheme-indent-hook).2
1ba0	29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c 61 6d 62 64 61 29 20 28 71 75 6f 74 65 20 73 63	)..(put.(quote.lambda).(quote.sc
1bc0	68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75 6f 74	heme-indent-hook).1)..(put.(quot
1be0	65 20 6c 65 74 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b	e.let).(quote.scheme-indent-hook
1c00	29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 6c 65 74 2d 69 6e 64 65 6e 74 29 29 0a 0a 28 70	).(quote.scheme-let-indent))..(p
1c20	75 74 20 28 71 75 6f 74 65 20 6c 65 74 2a 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e	ut.(quote.let*).(quote.scheme-in
1c40	64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c 65 74 72 65	dent-hook).1)..(put.(quote.letre
1c60	63 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29	c).(quote.scheme-indent-hook).1)
1c80	0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 73 65 71 75 65 6e 63 65 29 20 28 71 75 6f 74 65 20 73	..(put.(quote.sequence).(quote.s
1ca0	63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 0a 0a 28 70 75 74 20 28 71 75 6f	cheme-indent-hook).0)..(put.(quo
1cc0	74 65 20 63 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 66 69 6c 65 29 20 28 71 75 6f 74 65 20	te.call-with-input-file).(quote.
1ce0	73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75	scheme-indent-hook).1)..(put.(qu
1d00	6f 74 65 20 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 66 69 6c 65 29 20 28 71 75 6f 74 65	ote.with-input-from-file).(quote
1d20	20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71	.scheme-indent-hook).1)..(put.(q
1d40	75 6f 74 65 20 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 70 6f 72 74 29 20 28 71 75 6f 74	uote.with-input-from-port).(quot
1d60	65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28	e.scheme-indent-hook).1)..(put.(
1d80	71 75 6f 74 65 20 63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 66 69 6c 65 29 20 28 71 75	quote.call-with-output-file).(qu
1da0	6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74	ote.scheme-indent-hook).1)..(put
1dc0	20 28 71 75 6f 74 65 20 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 66 69 6c 65 29 20 28 71 75	.(quote.with-output-to-file).(qu
1de0	6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74	ote.scheme-indent-hook).1)..(put
1e00	20 28 71 75 6f 74 65 20 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 70 6f 72 74 29 20 28 71 75	.(quote.with-output-to-port).(qu
1e20	6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 69 66 20	ote.scheme-indent-hook).1)..(if.
1e40	73 63 68 65 6d 65 2d 6d 69 74 2d 64 69 61 6c 65 63 74 20 28 70 72 6f 67 6e 20 28 70 75 74 20 28	scheme-mit-dialect.(progn.(put.(
1e60	71 75 6f 74 65 20 66 6c 75 69 64 2d 6c 65 74 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69	quote.fluid-let).(quote.scheme-i
1e80	6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 69 6e 2d 70 61	ndent-hook).1).(put.(quote.in-pa
1ea0	63 6b 61 67 65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b	ckage).(quote.scheme-indent-hook
1ec0	29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 65 74 2d 73 79 6e 74 61 78 29 20 28 71 75	).1).(put.(quote.let-syntax).(qu
1ee0	6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20	ote.scheme-indent-hook).1).(put.
1f00	28 71 75 6f 74 65 20 6c 6f 63 61 6c 2d 64 65 63 6c 61 72 65 29 20 28 71 75 6f 74 65 20 73 63 68	(quote.local-declare).(quote.sch
1f20	65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20	eme-indent-hook).1).(put.(quote.
1f40	6d 61 63 72 6f 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b	macro).(quote.scheme-indent-hook
1f60	29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6d 61 6b 65 2d 65 6e 76 69 72 6f 6e 6d 65 6e	).1).(put.(quote.make-environmen
1f80	74 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29	t).(quote.scheme-indent-hook).0)
1fa0	20 28 70 75 74 20 28 71 75 6f 74 65 20 6e 61 6d 65 64 2d 6c 61 6d 62 64 61 29 20 28 71 75 6f 74	.(put.(quote.named-lambda).(quot
1fc0	65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71	e.scheme-indent-hook).1).(put.(q
1fe0	75 6f 74 65 20 75 73 69 6e 67 2d 73 79 6e 74 61 78 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65	uote.using-syntax).(quote.scheme
2000	2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 77 69 74	-indent-hook).1).(put.(quote.wit
2020	68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 29 20 28 71 75 6f 74 65 20 73 63 68 65	h-input-from-string).(quote.sche
2040	6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 77	me-indent-hook).1).(put.(quote.w
2060	69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 29 20 28 71 75 6f 74 65 20 73 63 68	ith-output-to-string).(quote.sch
2080	65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 30 29 20 28 70 75 74 20 28 71 75 6f 74 65 20	eme-indent-hook).0).(put.(quote.
20a0	77 69 74 68 2d 76 61 6c 75 65 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e	with-values).(quote.scheme-inden
20c0	74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 73 79 6e 74 61 78 2d 74 61	t-hook).1).(put.(quote.syntax-ta
20e0	62 6c 65 2d 64 65 66 69 6e 65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74	ble-define).(quote.scheme-indent
2100	2d 68 6f 6f 6b 29 20 32 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 69 73 74 2d 74 72 61 6e 73	-hook).2).(put.(quote.list-trans
2120	66 6f 72 6d 2d 70 6f 73 69 74 69 76 65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64	form-positive).(quote.scheme-ind
2140	65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 69 73 74 2d 74 72	ent-hook).1).(put.(quote.list-tr
2160	61 6e 73 66 6f 72 6d 2d 6e 65 67 61 74 69 76 65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d	ansform-negative).(quote.scheme-
2180	69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 69 73 74	indent-hook).1).(put.(quote.list
21a0	2d 73 65 61 72 63 68 2d 70 6f 73 69 74 69 76 65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d	-search-positive).(quote.scheme-
21c0	69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 69 73 74	indent-hook).1).(put.(quote.list
21e0	2d 73 65 61 72 63 68 2d 6e 65 67 61 74 69 76 65 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d	-search-negative).(quote.scheme-
2200	69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 61 63 63 65	indent-hook).1).(put.(quote.acce
2220	73 73 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64	ss-components).(quote.scheme-ind
2240	65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 61 73 73 69 67 6e 6d	ent-hook).1).(put.(quote.assignm
2260	65 6e 74 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e	ent-components).(quote.scheme-in
2280	64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 63 6f 6d 62 69 6e	dent-hook).1).(put.(quote.combin
22a0	61 74 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d	ation-components).(quote.scheme-
22c0	69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 63 6f 6d 6d	indent-hook).1).(put.(quote.comm
22e0	65 6e 74 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e	ent-components).(quote.scheme-in
2300	64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 63 6f 6e 64 69 74	dent-hook).1).(put.(quote.condit
2320	69 6f 6e 61 6c 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d	ional-components).(quote.scheme-
2340	69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 64 69 73 6a	indent-hook).1).(put.(quote.disj
2360	75 6e 63 74 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d	unction-components).(quote.schem
2380	65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 64 65	e-indent-hook).1).(put.(quote.de
23a0	63 6c 61 72 61 74 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68	claration-components).(quote.sch
23c0	65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20	eme-indent-hook).1).(put.(quote.
23e0	64 65 66 69 6e 69 74 69 6f 6e 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63	definition-components).(quote.sc
2400	68 65 6d 65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65	heme-indent-hook).1).(put.(quote
2420	20 64 65 6c 61 79 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65	.delay-components).(quote.scheme
2440	2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 69 6e 2d	-indent-hook).1).(put.(quote.in-
2460	70 61 63 6b 61 67 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d	package-components).(quote.schem
2480	65 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 61	e-indent-hook).1).(put.(quote.la
24a0	6d 62 64 61 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69	mbda-components).(quote.scheme-i
24c0	6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 61 6d 62 64	ndent-hook).1).(put.(quote.lambd
24e0	61 2d 63 6f 6d 70 6f 6e 65 6e 74 73 2a 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64	a-components*).(quote.scheme-ind
2500	65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6c 61 6d 62 64 61 2d	ent-hook).1).(put.(quote.lambda-
2520	63 6f 6d 70 6f 6e 65 6e 74 73 2a 2a 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65	components**).(quote.scheme-inde
2540	6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 6f 70 65 6e 2d 62 6c 6f	nt-hook).1).(put.(quote.open-blo
2560	63 6b 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64	ck-components).(quote.scheme-ind
2580	65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 70 61 74 68 6e 61 6d	ent-hook).1).(put.(quote.pathnam
25a0	65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65	e-components).(quote.scheme-inde
25c0	6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 70 72 6f 63 65 64 75 72	nt-hook).1).(put.(quote.procedur
25e0	65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65	e-components).(quote.scheme-inde
2600	6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 73 65 71 75 65 6e 63 65	nt-hook).1).(put.(quote.sequence
2620	2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64 65 6e	-components).(quote.scheme-inden
2640	74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 75 6e 61 73 73 69 67 6e 65	t-hook).1).(put.(quote.unassigne
2660	64 5c 3f 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e	d\?-components).(quote.scheme-in
2680	64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 75 6e 62 6f 75 6e	dent-hook).1).(put.(quote.unboun
26a0	64 5c 3f 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e	d\?-components).(quote.scheme-in
26c0	64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 20 28 70 75 74 20 28 71 75 6f 74 65 20 76 61 72 69 61 62	dent-hook).1).(put.(quote.variab
26e0	6c 65 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 2d 69 6e 64	le-components).(quote.scheme-ind
2700	65 6e 74 2d 68 6f 6f 6b 29 20 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 69 6e	ent-hook).1)))..(defun.scheme-in
2720	64 65 6e 74 2d 73 65 78 70 20 6e 69 6c 20 22 5c 0a 49 6e 64 65 6e 74 20 65 61 63 68 20 6c 69 6e	dent-sexp.nil."\.Indent.each.lin
2740	65 20 6f 66 20 74 68 65 20 6c 69 73 74 20 73 74 61 72 74 69 6e 67 20 6a 75 73 74 20 61 66 74 65	e.of.the.list.starting.just.afte
2760	72 20 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f	r.point.".(interactive).(byte-co
2780	64 65 20 22 c1 88 c1 43 cc c1 c1 c1 c1 c1 1e 07 1e 06 1d 1c 1b 1a 18 8a cd ce 21 29 88 8a c1 89	de."...C..................!)....
27a0	14 88 0c 3f 85 2e 01 0a 16 08 c1 89 16 09 88 0e 09 3f 85 35 00 6d 89 14 3f 85 85 00 cf 60 d0 20	...?.............?.5.m..?....`..
27c0	88 60 c1 c1 0e 06 25 89 16 06 88 0e 06 40 89 12 88 d1 d2 0e 06 5c 22 40 85 64 00 d3 20 88 d0 20	.`....%......@.......\"@.d......
27e0	88 d4 d1 d2 0e 06 5c 22 c1 5c 22 88 d1 d5 0e 06 5c 22 40 83 7d 00 d6 ce 21 88 d4 d1 d7 0e 06 5c	......\".\".....\"@.}...!......\
2800	22 c1 5c 22 82 81 00 ca 89 16 09 88 82 2b 00 88 0a cc 58 89 14 83 92 00 c1 82 2a 01 0e 08 0a 56	".\".........+....X.......*....V
2820	85 a6 00 08 41 10 0e 08 53 89 16 08 88 82 92 00 88 0e 08 0a 57 85 bc 00 c1 08 42 10 0e 08 54 89	....A...S...........W.....B...T.
2840	16 08 88 82 a7 00 88 d6 ce 21 88 60 89 13 88 d8 d9 21 88 6d 86 d0 00 da db 21 83 d7 00 c1 82 2a	.........!.`.....!.m.....!.....*
2860	01 08 40 85 e0 00 08 40 cc 59 83 eb 00 08 40 89 16 07 82 19 01 dc 08 40 85 f4 00 08 40 5b 21 1e	..@....@.Y....@........@....@[!.
2880	0b dd 0e 0b 21 83 09 01 d4 08 0e 0b 89 16 07 5c 22 82 18 01 d4 08 0e 0b 41 40 5b 5c 22 88 0e 0b	....!..........\".......A@[\"...
28a0	40 89 16 07 29 88 de 69 0e 07 5c 22 85 2a 01 df 0b 60 5c 22 88 0e 07 6a 88 82 1e 00 29 2e 07 87	@...)..i..\".*...`\"...j....)...
28c0	22 20 5b 69 6e 64 65 6e 74 2d 73 74 61 63 6b 20 6e 69 6c 20 6e 65 78 74 2d 64 65 70 74 68 20 62	".[indent-stack.nil.next-depth.b
28e0	6f 6c 20 6f 75 74 65 72 2d 6c 6f 6f 70 2d 64 6f 6e 65 20 69 6e 6e 65 72 2d 6c 6f 6f 70 2d 64 6f	ol.outer-loop-done.inner-loop-do
2900	6e 65 20 73 74 61 74 65 20 74 68 69 73 2d 69 6e 64 65 6e 74 20 6c 61 73 74 2d 64 65 70 74 68 20	ne.state.this-indent.last-depth.
2920	69 6e 6e 65 72 6c 6f 6f 70 2d 64 6f 6e 65 20 74 20 76 61 6c 20 30 20 66 6f 72 77 61 72 64 2d 73	innerloop-done.t.val.0.forward-s
2940	65 78 70 20 31 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 65 6e 64 2d 6f 66 2d	exp.1.parse-partial-sexp.end-of-
2960	6c 69 6e 65 20 6e 74 68 63 64 72 20 34 20 69 6e 64 65 6e 74 2d 66 6f 72 2d 63 6f 6d 6d 65 6e 74	line.nthcdr.4.indent-for-comment
2980	20 73 65 74 63 61 72 20 33 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 35 20 73 6b 69 70 2d 63 68	.setcar.3.forward-line.5.skip-ch
29a0	61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5b 3b 0a	ars-forward."..".looking-at."[;.
29c0	5d 22 20 63 61 6c 63 75 6c 61 74 65 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 20 69 6e 74 65 67	]".calculate-scheme-indent.integ
29e0	65 72 70 20 2f 3d 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 5d 20 32 34 29 29 0a	erp./=.delete-region].24)).