blob: 3594cd13c8d307fbb32214654e9778aa19174cbd (plain)

ofs	hex dump	ascii
0000	0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 29 29 0a 0a 28 64 65 66 76	.(require.(quote.scheme))..(defv
0020	61 72 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 20 22 73 63 68 65 6d 65 22 20	ar.scheme-program-name."scheme".
0040	22 5c 0a 2a 50 72 6f 67 72 61 6d 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 60 72 75 6e 2d	"\.*Program.invoked.by.the.`run-
0060	73 63 68 65 6d 65 27 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65	scheme'.command.")..(defvar.sche
0080	6d 65 2d 62 61 6e 64 2d 6e 61 6d 65 20 6e 69 6c 20 22 5c 0a 2a 42 61 6e 64 20 6c 6f 61 64 65 64	me-band-name.nil."\.*Band.loaded
00a0	20 62 79 20 74 68 65 20 60 72 75 6e 2d 73 63 68 65 6d 65 27 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a	.by.the.`run-scheme'.command.").
00c0	0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 61 72 67 75 6d 65 6e 74	.(defvar.scheme-program-argument
00e0	73 20 6e 69 6c 20 22 5c 0a 2a 41 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 74 6f 20 74 68	s.nil."\.*Arguments.passed.to.th
0100	65 20 53 63 68 65 6d 65 20 70 72 6f 67 72 61 6d 20 62 79 20 74 68 65 20 60 72 75 6e 2d 73 63 68	e.Scheme.program.by.the.`run-sch
0120	65 6d 65 27 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65	eme'.command.")..(defvar.xscheme
0140	2d 61 6c 6c 6f 77 2d 70 69 70 65 6c 69 6e 65 64 2d 65 76 61 6c 75 61 74 69 6f 6e 20 74 20 22 5c	-allow-pipelined-evaluation.t."\
0160	0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 79 20 62	.If.non-nil,.an.expression.may.b
0180	65 20 74 72 61 6e 73 6d 69 74 74 65 64 20 77 68 69 6c 65 20 61 6e 6f 74 68 65 72 20 69 73 20 65	e.transmitted.while.another.is.e
01a0	76 61 6c 75 61 74 69 6e 67 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 61 74 74 65 6d 70 74 69 6e 67	valuating..Otherwise,.attempting
01c0	20 74 6f 20 65 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f 72	.to.evaluate.an.expression.befor
01e0	65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 65 78 70 72 65 73 73 69 6f 6e 0a 68 61 73 20 66 69	e.the.previous.expression.has.fi
0200	6e 69 73 68 65 64 20 65 76 61 6c 75 61 74 69 6e 67 20 77 69 6c 6c 20 73 69 67 6e 61 6c 20 61 6e	nished.evaluating.will.signal.an
0220	20 65 72 72 6f 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74	.error.")..(defvar.xscheme-start
0240	75 70 2d 6d 65 73 73 61 67 65 20 22 54 68 69 73 20 69 73 20 74 68 65 20 53 63 68 65 6d 65 20 70	up-message."This.is.the.Scheme.p
0260	72 6f 63 65 73 73 20 62 75 66 66 65 72 2e 0a 54 79 70 65 20 5c 5c 5b 61 64 76 65 72 74 69 73 65	rocess.buffer..Type.\\[advertise
0280	64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69	d-xscheme-send-previous-expressi
02a0	6f 6e 5d 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62	on].to.evaluate.the.expression.b
02c0	65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 54 79 70 65 20 5c 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e	efore.point..Type.\\[xscheme-sen
02e0	64 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 69 6e 74 65 72 72 75 70 74 5d 20 74 6f 20 61 62 6f 72 74 20	d-control-g-interrupt].to.abort.
0300	65 76 61 6c 75 61 74 69 6f 6e 2e 0a 54 79 70 65 20 5c 5c 5b 64 65 73 63 72 69 62 65 2d 6d 6f 64	evaluation..Type.\\[describe-mod
0320	65 5d 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 22 20 22 53 74 72	e].for.more.information..."."Str
0340	69 6e 67 20 74 6f 20 69 6e 73 65 72 74 20 69 6e 74 6f 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73	ing.to.insert.into.Scheme.proces
0360	73 20 62 75 66 66 65 72 20 66 69 72 73 74 20 74 69 6d 65 20 69 74 20 69 73 20 73 74 61 72 74 65	s.buffer.first.time.it.is.starte
0380	64 2e 0a 49 73 20 70 72 6f 63 65 73 73 65 64 20 77 69 74 68 20 60 73 75 62 73 74 69 74 75 74 65	d..Is.processed.with.`substitute
03a0	2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 27 20 66 69 72 73 74 2e 22 29 0a 0a 28 64 65 66 76 61 72	-command-keys'.first.")..(defvar
03c0	20 78 73 63 68 65 6d 65 2d 73 69 67 6e 61 6c 2d 64 65 61 74 68 2d 6d 65 73 73 61 67 65 20 6e 69	.xscheme-signal-death-message.ni
03e0	6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 63 61 75 73 65 73 20 61 20 6d 65 73 73 61 67	l."\.If.non-nil,.causes.a.messag
0400	65 20 74 6f 20 62 65 20 67 65 6e 65 72 61 74 65 64 20 77 68 65 6e 20 74 68 65 20 53 63 68 65 6d	e.to.be.generated.when.the.Schem
0420	65 20 70 72 6f 63 65 73 73 20 64 69 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d	e.process.dies.")..(defun.xschem
0440	65 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 73 20 28 6b 65 79 6d 61 70 29 20 28	e-evaluation-commands.(keymap).(
0460	62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 23 88 c1 08 c6 c7 23 88 c1 08 c8	byte-code."....#.....#.....#....
0480	c3 23 88 c1 08 c9 ca 23 88 c1 08 cb cc 23 87 22 20 5b 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d	.#.....#.....#.".[keymap.define-
04a0	6b 65 79 20 22 1b 18 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e	key."..".xscheme-send-definition
04c0	20 22 18 05 22 20 61 64 76 65 72 74 69 73 65 64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72	."..".advertised-xscheme-send-pr
04e0	65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 22 1b 6f 22 20 78 73 63 68 65 6d 65 2d 73	evious-expression.".o".xscheme-s
0500	65 6e 64 2d 62 75 66 66 65 72 20 22 1b 7a 22 20 22 1b 0d 22 20 78 73 63 68 65 6d 65 2d 73 65 6e	end-buffer.".z"."..".xscheme-sen
0520	64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 22 1b 1a 22 20 78 73 63 68 65	d-previous-expression."..".xsche
0540	6d 65 2d 73 65 6e 64 2d 72 65 67 69 6f 6e 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68	me-send-region].9))..(defun.xsch
0560	65 6d 65 2d 69 6e 74 65 72 72 75 70 74 2d 63 6f 6d 6d 61 6e 64 73 20 28 6b 65 79 6d 61 70 29 20	eme-interrupt-commands.(keymap).
0580	28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 23 88 c1 08 c6 c7 23 88 c1 08	(byte-code."....#.....#.....#...
05a0	c8 c9 23 88 c1 08 ca cb 23 87 22 20 5b 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22	..#.....#.".[keymap.define-key."
05c0	03 13 22 20 78 73 63 68 65 6d 65 2d 73 65 6c 65 63 74 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65	..".xscheme-select-process-buffe
05e0	72 20 22 03 02 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 69	r."..".xscheme-send-breakpoint-i
0600	6e 74 65 72 72 75 70 74 20 22 03 03 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72	nterrupt."..".xscheme-send-contr
0620	6f 6c 2d 67 2d 69 6e 74 65 72 72 75 70 74 20 22 03 15 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64	ol-g-interrupt."..".xscheme-send
0640	2d 63 6f 6e 74 72 6f 6c 2d 75 2d 69 6e 74 65 72 72 75 70 74 20 22 03 18 22 20 78 73 63 68 65 6d	-control-u-interrupt."..".xschem
0660	65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 78 2d 69 6e 74 65 72 72 75 70 74 5d 20 38 29 29 0a	e-send-control-x-interrupt].8)).
0680	0a 28 78 73 63 68 65 6d 65 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 73 20 73 63	.(xscheme-evaluation-commands.sc
06a0	68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 0a 0a 28 78 73 63 68 65 6d 65 2d 69 6e 74 65 72 72 75	heme-mode-map)..(xscheme-interru
06c0	70 74 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 0a 0a 28 64	pt-commands.scheme-mode-map)..(d
06e0	65 66 75 6e 20 72 75 6e 2d 73 63 68 65 6d 65 20 28 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 29 20 22	efun.run-scheme.(command-line)."
0700	5c 0a 52 75 6e 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73	\.Run.an.inferior.Scheme.process
0720	2e 0a 4f 75 74 70 75 74 20 67 6f 65 73 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 60 2a 73 63	..Output.goes.to.the.buffer.`*sc
0740	68 65 6d 65 2a 27 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 61 73 6b 73 20 66 6f 72 20	heme*'..With.argument,.asks.for.
0760	61 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62	a.command.line.".(interactive.(b
0780	79 74 65 2d 63 6f 64 65 20 22 09 86 06 00 c3 20 18 0a 83 12 00 c4 c5 08 5c 22 82 13 00 08 29 43	yte-code."..............\"....)C
07a0	87 22 20 5b 64 65 66 61 75 6c 74 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 63 6f 6d 6d	.".[default.xscheme-process-comm
07c0	61 6e 64 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 78 73 63 68	and-line.current-prefix-arg.xsch
07e0	65 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 72 65 61 64 2d 73 74	eme-default-command-line.read-st
0800	72 69 6e 67 20 22 52 75 6e 20 53 63 68 65 6d 65 3a 20 22 5d 20 34 29 29 20 28 62 79 74 65 2d 63	ring."Run.Scheme:."].4)).(byte-c
0820	6f 64 65 20 22 c4 88 0b 89 11 88 c5 c6 0b 21 21 87 22 20 5b 64 65 66 61 75 6c 74 20 78 73 63 68	ode.".........!!.".[default.xsch
0840	65 6d 65 2d 70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74	eme-process-command-line.current
0860	2d 70 72 65 66 69 78 2d 61 72 67 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 6e 69 6c 20 73 77 69	-prefix-arg.command-line.nil.swi
0880	74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 70 72 6f 63	tch-to-buffer.xscheme-start-proc
08a0	65 73 73 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 65 74 2d 73 63 68 65 6d 65 20 6e 69	ess].3))..(defun.reset-scheme.ni
08c0	6c 20 22 5c 0a 52 65 73 65 74 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 20	l."\.Reset.the.Scheme.process.".
08e0	28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 21 18	(interactive).(byte-code."....!.
0900	08 3f 86 17 00 c6 08 21 c7 3d 3f 86 17 00 c8 c9 21 85 2e 00 ca cb 21 88 08 85 26 00 cc 08 c1 5c	.?.....!.=?.....!.....!...&....\
0920	22 88 cd 0a 21 88 ca ce 21 29 87 22 20 5b 70 72 6f 63 65 73 73 20 74 20 78 73 63 68 65 6d 65 2d	"...!...!).".[process.t.xscheme-
0940	70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 6e 69 6c 20 67 65 74 2d 70 72 6f	process-command-line.nil.get-pro
0960	63 65 73 73 20 22 73 63 68 65 6d 65 22 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 72 75 6e	cess."scheme".process-status.run
0980	20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 54 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73	.yes-or-no-p."The.Scheme.process
09a0	20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 61 72 65 20 79 6f 75 20 53 55 52 45 20 79 6f 75 20 77 61	.is.running,.are.you.SURE.you.wa
09c0	6e 74 20 74 6f 20 72 65 73 65 74 20 69 74 3f 20 22 20 6d 65 73 73 61 67 65 20 22 52 65 73 65 74	nt.to.reset.it?.".message."Reset
09e0	74 69 6e 67 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 2e 2e 22 20 6b 69 6c 6c 2d 70 72 6f	ting.Scheme.process...".kill-pro
0a00	63 65 73 73 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 52 65 73 65	cess.xscheme-start-process."Rese
0a20	74 74 69 6e 67 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 2e 2e 64 6f 6e 65 22 5d 20 38 29	tting.Scheme.process...done"].8)
0a40	29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e	)..(defun.xscheme-default-comman
0a60	64 2d 6c 69 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c3 09 83 0c 00 c4 09 50	d-line.nil.(byte-code."........P
0a80	82 0d 00 c5 0a 83 17 00 c6 0a 50 82 18 00 c5 52 87 22 20 5b 73 63 68 65 6d 65 2d 70 72 6f 67 72	..........P....R.".[scheme-progr
0aa0	61 6d 2d 6e 61 6d 65 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 61 72 67 75 6d 65 6e 74 73	am-name.scheme-program-arguments
0ac0	20 73 63 68 65 6d 65 2d 62 61 6e 64 2d 6e 61 6d 65 20 22 20 2d 65 6d 61 63 73 22 20 22 20 22 20	.scheme-band-name.".-emacs".".".
0ae0	22 22 20 22 20 2d 62 61 6e 64 20 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65	"".".-band."].5))..(defun.scheme
0b00	2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d	-interaction-mode.nil."\.Major.m
0b20	6f 64 65 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 69 6e 66	ode.for.interacting.with.the.inf
0b40	65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 0a 4c 69 6b 65 20 20 73 63 68 65	erior.Scheme.process..Like..sche
0b60	6d 65 2d 6d 6f 64 65 20 20 65 78 63 65 70 74 20 74 68 61 74 3a 0a 0a 5c 5c 5b 61 64 76 65 72 74	me-mode..except.that:..\\[advert
0b80	69 73 65 64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65	ised-xscheme-send-previous-expre
0ba0	73 73 69 6f 6e 5d 20 73 65 6e 64 73 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f	ssion].sends.the.expression.befo
0bc0	72 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 61	re.point.to.the.Scheme.process.a
0be0	73 20 69 6e 70 75 74 0a 5c 5c 5b 78 73 63 68 65 6d 65 2d 79 61 6e 6b 2d 70 72 65 76 69 6f 75 73	s.input.\\[xscheme-yank-previous
0c00	2d 73 65 6e 64 5d 20 79 61 6e 6b 73 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 6f 73 74	-send].yanks.the.expression.most
0c20	20 72 65 63 65 6e 74 6c 79 20 73 65 6e 74 20 74 6f 20 53 63 68 65 6d 65 0a 0a 41 6c 6c 20 6f 75	.recently.sent.to.Scheme..All.ou
0c40	74 70 75 74 20 66 72 6f 6d 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 20	tput.from.the.Scheme.process.is.
0c60	77 72 69 74 74 65 6e 20 69 6e 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 0a 62 75	written.in.the.Scheme.process.bu
0c80	66 66 65 72 2c 20 77 68 69 63 68 20 69 73 20 69 6e 69 74 69 61 6c 6c 79 20 6e 61 6d 65 64 20 5c	ffer,.which.is.initially.named.\
0ca0	22 2a 73 63 68 65 6d 65 2a 5c 22 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 65 76 61 6c	"*scheme*\"...The.result.of.eval
0cc0	75 61 74 69 6e 67 20 61 20 53 63 68 65 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 20 61 6c	uating.a.Scheme.expression.is.al
0ce0	73 6f 20 70 72 69 6e 74 65 64 20 69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 62 75 66 66 65 72	so.printed.in.the.process.buffer
0d00	2c 0a 70 72 65 63 65 64 65 64 20 62 79 20 74 68 65 20 73 74 72 69 6e 67 20 5c 22 3b 56 61 6c 75	,.preceded.by.the.string.\";Valu
0d20	65 3a 20 5c 22 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 69 74 2e 20 20 49 66 20 74 68 65 20 70	e:.\".to.highlight.it...If.the.p
0d40	72 6f 63 65 73 73 0a 62 75 66 66 65 72 20 69 73 20 6e 6f 74 20 76 69 73 69 62 6c 65 20 61 74 20	rocess.buffer.is.not.visible.at.
0d60	74 68 61 74 20 74 69 6d 65 2c 20 74 68 65 20 76 61 6c 75 65 20 77 69 6c 6c 20 61 6c 73 6f 20 62	that.time,.the.value.will.also.b
0d80	65 20 64 69 73 70 6c 61 79 65 64 0a 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 20 20	e.displayed.in.the.minibuffer...
0da0	49 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 74 68 65 20 70 72 6f 63 65 73 73 20	If.an.error.occurs,.the.process.
0dc0	62 75 66 66 65 72 20 77 69 6c 6c 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 70 6f 70 20 75 70	buffer.will.automatically.pop.up
0de0	20 74 6f 20 73 68 6f 77 20 79 6f 75 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a	.to.show.you.the.error.message..
0e00	0a 57 68 69 6c 65 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 75 6e	.While.the.Scheme.process.is.run
0e20	6e 69 6e 67 2c 20 74 68 65 20 6d 6f 64 65 6c 69 6e 65 73 20 6f 66 20 61 6c 6c 20 62 75 66 66 65	ning,.the.modelines.of.all.buffe
0e40	72 73 20 69 6e 0a 73 63 68 65 6d 65 2d 6d 6f 64 65 20 61 72 65 20 6d 6f 64 69 66 69 65 64 20 74	rs.in.scheme-mode.are.modified.t
0e60	6f 20 73 68 6f 77 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 2e	o.show.the.state.of.the.process.
0e80	20 20 54 68 65 0a 70 6f 73 73 69 62 6c 65 20 73 74 61 74 65 73 20 61 6e 64 20 74 68 65 69 72 20	..The.possible.states.and.their.
0ea0	6d 65 61 6e 69 6e 67 73 20 61 72 65 3a 0a 0a 69 6e 70 75 74 09 09 77 61 69 74 69 6e 67 20 66 6f	meanings.are:..input..waiting.fo
0ec0	72 20 69 6e 70 75 74 0a 72 75 6e 09 09 65 76 61 6c 75 61 74 69 6e 67 0a 67 63 09 09 67 61 72 62	r.input.run..evaluating.gc..garb
0ee0	61 67 65 20 63 6f 6c 6c 65 63 74 69 6e 67 0a 0a 54 68 65 20 70 72 6f 63 65 73 73 20 62 75 66 66	age.collecting..The.process.buff
0f00	65 72 27 73 20 6d 6f 64 65 6c 69 6e 65 20 63 6f 6e 74 61 69 6e 73 20 61 64 64 69 74 69 6f 6e 61	er's.modeline.contains.additiona
0f20	6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 68 65 72 65 0a 74 68 65 20 62 75 66 66 65 72 27 73	l.information.where.the.buffer's
0f40	20 6e 61 6d 65 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 64 69 73 70 6c 61 79 65 64 3a 20 74 68 65	.name.is.normally.displayed:.the
0f60	20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 20 6c 65 76 65 6c 0a 61 6e 64 20 74	.command.interpreter.level.and.t
0f80	79 70 65 2e 0a 0a 53 63 68 65 6d 65 20 6d 61 69 6e 74 61 69 6e 73 20 61 20 73 74 61 63 6b 20 6f	ype...Scheme.maintains.a.stack.o
0fa0	66 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 73 2e 20 20 45 76 65 72 79 20 74	f.command.interpreters...Every.t
0fc0	69 6d 65 20 61 6e 20 65 72 72 6f 72 0a 6f 72 20 62 72 65 61 6b 70 6f 69 6e 74 20 6f 63 63 75 72	ime.an.error.or.breakpoint.occur
0fe0	73 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74	s,.the.current.command.interpret
1000	65 72 20 69 73 20 70 75 73 68 65 64 20 6f 6e 20 74 68 65 0a 63 6f 6d 6d 61 6e 64 20 69 6e 74 65	er.is.pushed.on.the.command.inte
1020	72 70 72 65 74 65 72 20 73 74 61 63 6b 2c 20 61 6e 64 20 61 20 6e 65 77 20 63 6f 6d 6d 61 6e 64	rpreter.stack,.and.a.new.command
1040	20 69 6e 74 65 72 70 72 65 74 65 72 20 69 73 20 73 74 61 72 74 65 64 2e 0a 4f 6e 65 20 65 78 61	.interpreter.is.started..One.exa
1060	6d 70 6c 65 20 6f 66 20 77 68 79 20 74 68 69 73 20 69 73 20 64 6f 6e 65 20 69 73 20 73 6f 20 74	mple.of.why.this.is.done.is.so.t
1080	68 61 74 20 61 6e 20 65 72 72 6f 72 20 74 68 61 74 20 6f 63 63 75 72 73 20 77 68 69 6c 65 0a 79	hat.an.error.that.occurs.while.y
10a0	6f 75 20 61 72 65 20 64 65 62 75 67 67 69 6e 67 20 61 6e 6f 74 68 65 72 20 65 72 72 6f 72 20 77	ou.are.debugging.another.error.w
10c0	69 6c 6c 20 6e 6f 74 20 64 65 73 74 72 6f 79 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65	ill.not.destroy.the.state.of.the
10e0	0a 69 6e 69 74 69 61 6c 20 65 72 72 6f 72 2c 20 61 6c 6c 6f 77 69 6e 67 20 79 6f 75 20 74 6f 20	.initial.error,.allowing.you.to.
1100	72 65 74 75 72 6e 20 74 6f 20 69 74 20 61 66 74 65 72 20 74 68 65 20 73 65 63 6f 6e 64 20 65 72	return.to.it.after.the.second.er
1120	72 6f 72 20 68 61 73 0a 62 65 65 6e 20 66 69 78 65 64 2e 0a 0a 54 68 65 20 63 6f 6d 6d 61 6e 64	ror.has.been.fixed...The.command
1140	20 69 6e 74 65 72 70 72 65 74 65 72 20 6c 65 76 65 6c 20 69 6e 64 69 63 61 74 65 73 20 68 6f 77	.interpreter.level.indicates.how
1160	20 6d 61 6e 79 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 61 72 65 20 69 6e 0a 74 68 65 20 63 6f	.many.interpreters.are.in.the.co
1180	6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 20 73 74 61 63 6b 2e 20 20 49 74 20 69 73 20	mmand.interpreter.stack...It.is.
11a0	69 6e 69 74 69 61 6c 6c 79 20 73 65 74 20 74 6f 20 6f 6e 65 2c 20 61 6e 64 20 69 74 20 69 73 0a	initially.set.to.one,.and.it.is.
11c0	69 6e 63 72 65 6d 65 6e 74 65 64 20 65 76 65 72 79 20 74 69 6d 65 20 74 68 61 74 20 73 74 61 63	incremented.every.time.that.stac
11e0	6b 20 69 73 20 70 75 73 68 65 64 2c 20 61 6e 64 20 64 65 63 72 65 6d 65 6e 74 65 64 20 65 76 65	k.is.pushed,.and.decremented.eve
1200	72 79 0a 74 69 6d 65 20 69 74 20 69 73 20 70 6f 70 70 65 64 2e 20 20 54 68 65 20 66 6f 6c 6c 6f	ry.time.it.is.popped...The.follo
1220	77 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 75 73 65 66 75 6c 20 66 6f 72 20 6d 61 6e	wing.commands.are.useful.for.man
1240	69 70 75 6c 61 74 69 6e 67 0a 74 68 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65	ipulating.the.command.interprete
1260	72 20 73 74 61 63 6b 3a 0a 0a 5c 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 62 72 65 61 6b 70	r.stack:..\\[xscheme-send-breakp
1280	6f 69 6e 74 2d 69 6e 74 65 72 72 75 70 74 5d 09 70 75 73 68 65 73 20 74 68 65 20 73 74 61 63 6b	oint-interrupt].pushes.the.stack
12a0	20 6f 6e 63 65 0a 5c 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 75 2d	.once.\\[xscheme-send-control-u-
12c0	69 6e 74 65 72 72 75 70 74 5d 09 70 6f 70 73 20 74 68 65 20 73 74 61 63 6b 20 6f 6e 63 65 0a 5c	interrupt].pops.the.stack.once.\
12e0	5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 69 6e 74 65 72 72 75	\[xscheme-send-control-g-interru
1300	70 74 5d 09 70 6f 70 73 20 65 76 65 72 79 74 68 69 6e 67 20 6f 66 66 0a 5c 5c 5b 78 73 63 68 65	pt].pops.everything.off.\\[xsche
1320	6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 78 2d 69 6e 74 65 72 72 75 70 74 5d 09 61 62 6f	me-send-control-x-interrupt].abo
1340	72 74 73 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 64 6f 65 73 6e 27 74 20 61 66 66 65 63 74 20 73	rts.evaluation,.doesn't.affect.s
1360	74 61 63 6b 0a 0a 53 6f 6d 65 20 70 6f 73 73 69 62 6c 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65	tack..Some.possible.command.inte
1380	72 70 72 65 74 65 72 20 74 79 70 65 73 20 61 6e 64 20 74 68 65 69 72 20 6d 65 61 6e 69 6e 67 73	rpreter.types.and.their.meanings
13a0	20 61 72 65 3a 0a 0a 5b 45 76 61 6c 75 61 74 6f 72 5d 09 72 65 61 64 2d 65 76 61 6c 2d 70 72 69	.are:..[Evaluator].read-eval-pri
13c0	6e 74 20 6c 6f 6f 70 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f	nt.loop.for.evaluating.expressio
13e0	6e 73 0a 5b 44 65 62 75 67 67 65 72 5d 09 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 20 63	ns.[Debugger].single.character.c
1400	6f 6d 6d 61 6e 64 73 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 65 72 72 6f 72 73 0a 5b 57 68	ommands.for.debugging.errors.[Wh
1420	65 72 65 5d 09 09 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20	ere]..single.character.commands.
1440	66 6f 72 20 65 78 61 6d 69 6e 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 0a 0a 53 74 61 72	for.examining.environments..Star
1460	74 69 6e 67 20 77 69 74 68 20 72 65 6c 65 61 73 65 20 36 2e 32 20 6f 66 20 53 63 68 65 6d 65 2c	ting.with.release.6.2.of.Scheme,
1480	20 74 68 65 20 6c 61 74 74 65 72 20 74 77 6f 20 74 79 70 65 73 20 6f 66 20 63 6f 6d 6d 61 6e 64	.the.latter.two.types.of.command
14a0	0a 69 6e 74 65 72 70 72 65 74 65 72 73 20 77 69 6c 6c 20 63 68 61 6e 67 65 20 74 68 65 20 6d 61	.interpreters.will.change.the.ma
14c0	6a 6f 72 20 6d 6f 64 65 20 6f 66 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 62	jor.mode.of.the.Scheme.process.b
14e0	75 66 66 65 72 0a 74 6f 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 2c 20	uffer.to.scheme-debugger-mode.,.
1500	69 6e 20 77 68 69 63 68 20 74 68 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73	in.which.the.evaluation.commands
1520	20 61 72 65 0a 64 69 73 61 62 6c 65 64 2c 20 61 6e 64 20 74 68 65 20 6b 65 79 73 20 77 68 69 63	.are.disabled,.and.the.keys.whic
1540	68 20 6e 6f 72 6d 61 6c 6c 79 20 73 65 6c 66 20 69 6e 73 65 72 74 20 69 6e 73 74 65 61 64 20 73	h.normally.self.insert.instead.s
1560	65 6e 64 0a 74 68 65 6d 73 65 6c 76 65 73 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f	end.themselves.to.the.Scheme.pro
1580	63 65 73 73 2e 20 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 63 68 61 72 61 63 74 65 72 20 3f 20 77	cess...The.command.character.?.w
15a0	69 6c 6c 20 6c 69 73 74 0a 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d 61 6e 64 73 2e	ill.list.the.available.commands.
15c0	0a 0a 46 6f 72 20 6f 6c 64 65 72 20 72 65 6c 65 61 73 65 73 20 6f 66 20 53 63 68 65 6d 65 2c 20	..For.older.releases.of.Scheme,.
15e0	74 68 65 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 77 69 6c 6c 20 62 65 20 62 65 0a 73 63 68 65 6d 65	the.major.mode.will.be.be.scheme
1600	2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 2c 20 61 6e 64 20 74 68 65 20 63 6f 6d 6d	-interaction-mode.,.and.the.comm
1620	61 6e 64 20 63 68 61 72 61 63 74 65 72 73 20 6d 75 73 74 20 62 65 20 73 65 6e 74 20 61 73 0a 69	and.characters.must.be.sent.as.i
1640	66 20 74 68 65 79 20 77 65 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 43 6f 6d 6d 61 6e	f.they.were.expressions...Comman
1660	64 73 3a 0a 44 65 6c 65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63	ds:.Delete.converts.tabs.to.spac
1680	65 73 20 61 73 20 69 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73	es.as.it.moves.back..Blank.lines
16a0	20 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e	.separate.paragraphs...Semicolon
16c0	73 20 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 73 2e 0a 5c 5c 7b 73 63 68 65 6d 65 2d 69 6e 74 65	s.start.comments..\\{scheme-inte
16e0	72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73	raction-mode-map}..Entry.to.this
1700	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 63 68 65 6d 65 2d	.mode.calls.the.value.of.scheme-
1720	69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 77 69 74 68 20 6e 6f 20 61 72	interaction-mode-hook.with.no.ar
1740	67 73 2c 20 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28	gs,.if.that.value.is.non-nil.".(
1760	69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 20	interactive).(byte-code.".......
1780	88 c3 20 88 c4 c5 21 88 c6 c7 21 87 22 20 5b 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61	......!...!.".[nil.kill-all-loca
17a0	6c 2d 76 61 72 69 61 62 6c 65 73 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d	l-variables.scheme-interaction-m
17c0	6f 64 65 2d 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	ode-initialize.scheme-mode-varia
17e0	62 6c 65 73 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 78 73 63 68 65 6d 65	bles.make-local-variable.xscheme
1800	2d 70 72 65 76 69 6f 75 73 2d 73 65 6e 64 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 63 68 65 6d 65 2d	-previous-send.run-hooks.scheme-
1820	69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66	interaction-mode-hook].6))..(def
1840	75 6e 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 69 6e 69 74 69	un.scheme-interaction-mode-initi
1860	61 6c 69 7a 65 20 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	alize.nil.(byte-code."..!.......
1880	12 87 22 20 5b 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70	..".[scheme-interaction-mode-map
18a0	20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 75 73 65 2d 6c 6f 63 61 6c 2d	.major-mode.mode-name.use-local-
18c0	6d 61 70 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 22 53 63 68	map.scheme-interaction-mode."Sch
18e0	65 6d 65 20 49 6e 74 65 72 61 63 74 69 6f 6e 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63	eme.Interaction"].3))..(defun.sc
1900	68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 28	heme-interaction-mode-commands.(
1920	6b 65 79 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 23 88	keymap).(byte-code."....#.....#.
1940	c1 08 c6 c7 23 87 22 20 5b 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 03 0d 22 20	....#.".[keymap.define-key."..".
1960	78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 75 72 72 65 6e 74 2d 6c 69 6e 65 20 22 03 10 22 20 78	xscheme-send-current-line."..".x
1980	73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 6f 63 65 65 64 20 22 03 19 22 20 78 73 63 68 65 6d 65	scheme-send-proceed."..".xscheme
19a0	2d 79 61 6e 6b 2d 70 72 65 76 69 6f 75 73 2d 73 65 6e 64 5d 20 36 29 29 0a 0a 28 64 65 66 76 61	-yank-previous-send].6))..(defva
19c0	72 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69	r.scheme-interaction-mode-map.ni
19e0	6c 29 0a 0a 28 69 66 20 28 6e 6f 74 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d	l)..(if.(not.scheme-interaction-
1a00	6d 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 69 6e	mode-map).(progn.(setq.scheme-in
1a20	74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29	teraction-mode-map.(make-keymap)
1a40	29 20 28 73 63 68 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 69	).(scheme-mode-commands.scheme-i
1a60	6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 78 73 63 68 65 6d 65 2d 69 6e	nteraction-mode-map).(xscheme-in
1a80	74 65 72 72 75 70 74 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74	terrupt-commands.scheme-interact
1aa0	69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 78 73 63 68 65 6d 65 2d 65 76 61 6c 75 61 74 69 6f	ion-mode-map).(xscheme-evaluatio
1ac0	6e 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f	n-commands.scheme-interaction-mo
1ae0	64 65 2d 6d 61 70 29 20 28 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65	de-map).(scheme-interaction-mode
1b00	2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64	-commands.scheme-interaction-mod
1b20	65 2d 6d 61 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 65 6e 74 65 72 2d 69	e-map)))..(defun.xscheme-enter-i
1b40	6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22	nteraction-mode.nil.(byte-code."
1b60	8a c1 20 71 88 08 c2 3d 3f 85 19 00 08 c3 3d 83 17 00 c4 20 82 19 00 c2 20 29 87 22 20 5b 6d 61	...q...=?.....=..........).".[ma
1b80	6a 6f 72 2d 6d 6f 64 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20	jor-mode.xscheme-process-buffer.
1ba0	73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 73 63 68 65 6d 65 2d 64	scheme-interaction-mode.scheme-d
1bc0	65 62 75 67 67 65 72 2d 6d 6f 64 65 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d	ebugger-mode.scheme-interaction-
1be0	6d 6f 64 65 2d 69 6e 69 74 69 61 6c 69 7a 65 5d 20 34 29 29 0a 0a 28 66 73 65 74 20 28 71 75 6f	mode-initialize].4))..(fset.(quo
1c00	74 65 20 61 64 76 65 72 74 69 73 65 64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 65 76 69	te.advertised-xscheme-send-previ
1c20	6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 29 20 28 71 75 6f 74 65 20 78 73 63 68 65 6d 65 2d 73	ous-expression).(quote.xscheme-s
1c40	65 6e 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 29 29 0a 0a 28 64 65 66 75	end-previous-expression))..(defu
1c60	6e 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61	n.scheme-debugger-mode.nil."\.Ma
1c80	6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 65 78 65 63 75 74 69 6e 67 20 74 68 65 20 53 63 68 65 6d	jor.mode.for.executing.the.Schem
1ca0	65 20 64 65 62 75 67 67 65 72 2e 0a 4c 69 6b 65 20 20 73 63 68 65 6d 65 2d 6d 6f 64 65 20 20 65	e.debugger..Like..scheme-mode..e
1cc0	78 63 65 70 74 20 74 68 61 74 20 74 68 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e	xcept.that.the.evaluation.comman
1ce0	64 73 0a 61 72 65 20 64 69 73 61 62 6c 65 64 2c 20 61 6e 64 20 63 68 61 72 61 63 74 65 72 73 20	ds.are.disabled,.and.characters.
1d00	74 68 61 74 20 77 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 20 62 65 20 73 65 6c 66 20 69 6e 73 65	that.would.normally.be.self.inse
1d20	72 74 69 6e 67 20 61 72 65 0a 73 65 6e 74 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f	rting.are.sent.to.the.Scheme.pro
1d40	63 65 73 73 20 69 6e 73 74 65 61 64 2e 20 20 54 79 70 69 6e 67 20 3f 20 20 77 69 6c 6c 20 73 68	cess.instead...Typing.?..will.sh
1d60	6f 77 20 79 6f 75 20 77 68 69 63 68 0a 63 68 61 72 61 63 74 65 72 73 20 70 65 72 66 6f 72 6d 20	ow.you.which.characters.perform.
1d80	75 73 65 66 75 6c 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 7b	useful.functions...Commands:.\\{
1da0	73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 7d 22 20 28 62 79 74 65	scheme-debugger-mode-map}".(byte
1dc0	2d 63 6f 64 65 20 22 c0 c1 21 87 22 20 5b 65 72 72 6f 72 20 22 49 6c 6c 65 67 61 6c 20 65 6e 74	-code."..!.".[error."Illegal.ent
1de0	72 79 20 74 6f 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 22 5d 20 32 29 29	ry.to.scheme-debugger-mode"].2))
1e00	0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 69 6e	..(defun.scheme-debugger-mode-in
1e20	69 74 69 61 6c 69 7a 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 c4 89 11	itialize.nil.(byte-code."..!....
1e40	88 c5 89 12 87 22 20 5b 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70	.....".[scheme-debugger-mode-map
1e60	20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 75 73 65 2d 6c 6f 63 61 6c 2d	.major-mode.mode-name.use-local-
1e80	6d 61 70 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 22 53 63 68 65 6d 65	map.scheme-debugger-mode."Scheme
1ea0	20 44 65 62 75 67 67 65 72 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 2d 64	.Debugger"].3))..(defun.scheme-d
1ec0	65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 28 6b 65 79 6d 61 70 29 20 28	ebugger-mode-commands.(keymap).(
1ee0	62 79 74 65 2d 63 6f 64 65 20 22 c2 18 08 c3 57 85 18 00 c4 09 c5 08 21 c6 23 88 08 54 89 10 88	byte-code."....W.......!.#..T...
1f00	82 02 00 29 87 22 20 5b 63 68 61 72 20 6b 65 79 6d 61 70 20 33 32 20 31 32 37 20 64 65 66 69 6e	...).".[char.keymap.32.127.defin
1f20	65 2d 6b 65 79 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 73 63 68 65 6d 65 2d 64 65 62 75	e-key.char-to-string.scheme-debu
1f40	67 67 65 72 2d 73 65 6c 66 2d 69 6e 73 65 72 74 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 73	gger-self-insert].6))..(defvar.s
1f60	63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69	cheme-debugger-mode-map.nil)..(i
1f80	66 20 28 6e 6f 74 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 29	f.(not.scheme-debugger-mode-map)
1fa0	20 28 70 72 6f 67 6e 20 28 73 65 74 71 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f	.(progn.(setq.scheme-debugger-mo
1fc0	64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 6b 65 79 6d 61 70 29 29 20 28 73 63 68 65 6d 65 2d 6d 6f	de-map.(make-keymap)).(scheme-mo
1fe0	64 65 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65	de-commands.scheme-debugger-mode
2000	2d 6d 61 70 29 20 28 78 73 63 68 65 6d 65 2d 69 6e 74 65 72 72 75 70 74 2d 63 6f 6d 6d 61 6e 64	-map).(xscheme-interrupt-command
2020	73 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 29 20 28 73 63 68	s.scheme-debugger-mode-map).(sch
2040	65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d	eme-debugger-mode-commands.schem
2060	65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 6d 61 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 73	e-debugger-mode-map)))..(defun.s
2080	63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 73 65 6c 66 2d 69 6e 73 65 72 74 20 6e 69 6c 20 22	cheme-debugger-self-insert.nil."
20a0	5c 0a 54 72 61 6e 73 6d 69 74 20 74 68 69 73 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 74 68 65	\.Transmit.this.character.to.the
20c0	20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20	.Scheme.process.".(interactive).
20e0	28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 08 21 87 22 20 5b 6c 61 73 74 2d 63 6f 6d 6d 61 6e	(byte-code."....!.".[last-comman
2100	64 2d 63 68 61 72 20 6e 69 6c 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 68 61 72 5d 20 32 29	d-char.nil.xscheme-send-char].2)
2120	29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72	)..(defun.xscheme-enter-debugger
2140	2d 6d 6f 64 65 20 28 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65	-mode.(prompt-string).(byte-code
2160	20 22 8a c1 20 71 88 08 c2 3d 3f 85 18 00 08 c3 3d 3f 85 15 00 c3 20 88 c4 20 29 87 22 20 5b 6d	."...q...=?.....=?........).".[m
2180	61 6a 6f 72 2d 6d 6f 64 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72	ajor-mode.xscheme-process-buffer
21a0	20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 73 63 68 65 6d 65 2d 69 6e 74	.scheme-debugger-mode.scheme-int
21c0	65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f	eraction-mode.scheme-debugger-mo
21e0	64 65 2d 69 6e 69 74 69 61 6c 69 7a 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65	de-initialize].4))..(defun.xsche
2200	6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 70 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64	me-debugger-mode-p.nil.(byte-cod
2220	65 20 22 c2 20 18 08 85 0f 00 8a 08 71 88 09 c3 3d 29 29 87 22 20 5b 62 75 66 66 65 72 20 6d 61	e.".........q...=)).".[buffer.ma
2240	6a 6f 72 2d 6d 6f 64 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20	jor-mode.xscheme-process-buffer.
2260	73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 5d 20 33 29 29 0a 0a 28 64 65 66 75	scheme-debugger-mode].3))..(defu
2280	6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 28 26 72 65 73 74 20 73 74 72	n.xscheme-send-string.(&rest.str
22a0	69 6e 67 73 29 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e	ings)."\.Send.the.string.argumen
22c0	74 73 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 0a 54 68 65 20 73 74	ts.to.the.Scheme.process..The.st
22e0	72 69 6e 67 73 20 61 72 65 20 63 6f 6e 63 61 74 65 6e 61 74 65 64 20 61 6e 64 20 74 65 72 6d 69	rings.are.concatenated.and.termi
2300	6e 61 74 65 64 20 62 79 20 61 20 6e 65 77 6c 69 6e 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20	nated.by.a.newline.".(byte-code.
2320	22 c4 20 3f 83 20 00 c5 c6 21 85 1d 00 c7 20 88 c8 20 88 64 62 88 c9 ca 08 5c 22 88 cb 08 21 82	"..?.....!.........db....\"...!.
2340	3d 00 cc 20 83 2b 00 cd ce 21 82 3d 00 09 3f 85 31 00 0a 83 3a 00 cd cf 21 82 3d 00 cb 08 21 87	=....+...!.=..?.1...:...!.=...!.
2360	22 20 5b 73 74 72 69 6e 67 73 20 78 73 63 68 65 6d 65 2d 61 6c 6c 6f 77 2d 70 69 70 65 6c 69 6e	".[strings.xscheme-allow-pipelin
2380	65 64 2d 65 76 61 6c 75 61 74 69 6f 6e 20 78 73 63 68 65 6d 65 2d 72 75 6e 6e 69 6e 67 2d 70 20	ed-evaluation.xscheme-running-p.
23a0	74 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 72 75 6e 6e 69 6e 67 2d 70 20 79 65 73 2d	t.xscheme-process-running-p.yes-
23c0	6f 72 2d 6e 6f 2d 70 20 22 54 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 68 61 73 20	or-no-p."The.Scheme.process.has.
23e0	64 69 65 64 2e 20 20 52 65 73 65 74 20 69 74 3f 20 22 20 72 65 73 65 74 2d 73 63 68 65 6d 65 20	died...Reset.it?.".reset-scheme.
2400	78 73 63 68 65 6d 65 2d 77 61 69 74 2d 66 6f 72 2d 70 72 6f 63 65 73 73 20 61 70 70 6c 79 20 69	xscheme-wait-for-process.apply.i
2420	6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 78 73 63 68 65 6d 65 2d 73 65 6e	nsert-before-markers.xscheme-sen
2440	64 2d 73 74 72 69 6e 67 2d 31 20 78 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65	d-string-1.xscheme-debugger-mode
2460	2d 70 20 65 72 72 6f 72 20 22 4e 6f 20 73 65 6e 64 73 20 61 6c 6c 6f 77 65 64 20 69 6e 20 64 65	-p.error."No.sends.allowed.in.de
2480	62 75 67 67 65 72 20 6d 6f 64 65 22 20 22 4e 6f 20 73 65 6e 64 73 20 61 6c 6c 6f 77 65 64 20 77	bugger.mode"."No.sends.allowed.w
24a0	68 69 6c 65 20 53 63 68 65 6d 65 20 72 75 6e 6e 69 6e 67 22 5d 20 31 31 29 29 0a 0a 28 64 65 66	hile.Scheme.running"].11))..(def
24c0	75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74 72 69 6e 67 2d 31 20 28 73 74 72 69 6e 67	un.xscheme-send-string-1.(string
24e0	73 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 09 5c 22 18 c6 08 21 88 0a c7 3d 85 12 00 08	s).(byte-code."...\"...!...=....
2500	89 13 29 87 22 20 5b 73 74 72 69 6e 67 20 73 74 72 69 6e 67 73 20 6d 61 6a 6f 72 2d 6d 6f 64 65	..).".[string.strings.major-mode
2520	20 78 73 63 68 65 6d 65 2d 70 72 65 76 69 6f 75 73 2d 73 65 6e 64 20 61 70 70 6c 79 20 63 6f 6e	.xscheme-previous-send.apply.con
2540	63 61 74 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74 72 69 6e 67 2d 32 20 73 63 68 65 6d 65	cat.xscheme-send-string-2.scheme
2560	2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78	-interaction-mode].4))..(defun.x
2580	73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74 72 69 6e 67 2d 32 20 28 73 74 72 69 6e 67 29 20 28 62	scheme-send-string-2.(string).(b
25a0	79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 18 c4 08 09 c5 50 5c 22 88 c6 20 85 16 00 c7 c8 08 21 60	yte-code."..!.....P\".........!`
25c0	5c 22 29 87 22 20 5b 70 72 6f 63 65 73 73 20 73 74 72 69 6e 67 20 67 65 74 2d 70 72 6f 63 65 73	\").".[process.string.get-proces
25e0	73 20 22 73 63 68 65 6d 65 22 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 22 0a 22 20 78 73 63 68 65	s."scheme".send-string.".".xsche
2600	6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 2d 63 75 72 72 65 6e 74 2d 70 20 73 65 74 2d	me-process-buffer-current-p.set-
2620	6d 61 72 6b 65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e	marker.process-mark].7))..(defun
2640	20 78 73 63 68 65 6d 65 2d 79 61 6e 6b 2d 70 72 65 76 69 6f 75 73 2d 73 65 6e 64 20 6e 69 6c 20	.xscheme-yank-previous-send.nil.
2660	22 5c 0a 49 6e 73 65 72 74 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20 65 78 70 72 65 73	"\.Insert.the.most.recent.expres
2680	73 69 6f 6e 20 61 74 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	sion.at.point.".(interactive).(b
26a0	79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 20 88 08 63 87 22 20 5b 78 73 63 68 65 6d 65 2d 70 72 65	yte-code."......c.".[xscheme-pre
26c0	76 69 6f 75 73 2d 73 65 6e 64 20 6e 69 6c 20 70 75 73 68 2d 6d 61 72 6b 5d 20 32 29 29 0a 0a 28	vious-send.nil.push-mark].2))..(
26e0	64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6c 65 63 74 2d 70 72 6f 63 65 73 73 2d 62 75 66	defun.xscheme-select-process-buf
2700	66 65 72 20 6e 69 6c 20 22 5c 0a 53 65 6c 65 63 74 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f	fer.nil."\.Select.the.Scheme.pro
2720	63 65 73 73 20 62 75 66 66 65 72 20 61 6e 64 20 6d 6f 76 65 20 74 6f 20 69 74 73 20 6f 75 74 70	cess.buffer.and.move.to.its.outp
2740	75 74 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	ut.point.".(interactive).(byte-c
2760	6f 64 65 20 22 c3 88 c4 c5 21 86 0b 00 c6 c7 21 18 c8 08 21 86 15 00 c6 c9 21 19 ca 09 21 1a 0a	ode."....!.....!...!.....!...!..
2780	83 24 00 cb 0a 21 82 27 00 cc 09 21 88 cd 08 21 62 29 29 29 87 22 20 5b 70 72 6f 63 65 73 73 20	.$...!.'...!...!b))).".[process.
27a0	62 75 66 66 65 72 20 77 69 6e 64 6f 77 20 6e 69 6c 20 67 65 74 2d 70 72 6f 63 65 73 73 20 22 73	buffer.window.nil.get-process."s
27c0	63 68 65 6d 65 22 20 65 72 72 6f 72 20 22 4e 6f 20 73 63 68 65 6d 65 20 70 72 6f 63 65 73 73 22	cheme".error."No.scheme.process"
27e0	20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 22 4e 6f 20 70 72 6f 63 65 73 73 20 62 75 66 66	.process-buffer."No.process.buff
2800	65 72 22 20 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e	er".get-buffer-window.select-win
2820	64 6f 77 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72	dow.switch-to-buffer.process-mar
2840	6b 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 72 65 67 69	k].9))..(defun.xscheme-send-regi
2860	6f 6e 20 28 73 74 61 72 74 20 65 6e 64 29 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65	on.(start.end)."\.Send.the.curre
2880	6e 74 20 72 65 67 69 6f 6e 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e	nt.region.to.the.Scheme.process.
28a0	0a 54 68 65 20 72 65 67 69 6f 6e 20 69 73 20 73 65 6e 74 20 74 65 72 6d 69 6e 61 74 65 64 20 62	.The.region.is.sent.terminated.b
28c0	79 20 61 20 6e 65 77 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 72 22 29 20	y.a.newline.".(interactive."r").
28e0	28 62 79 74 65 2d 63 6f 64 65 20 22 c2 88 c3 20 85 12 00 08 62 88 c4 c5 c6 c7 21 21 08 5c 22 88	(byte-code."........b.....!!.\".
2900	c8 c9 09 08 5c 22 21 87 22 20 5b 65 6e 64 20 73 74 61 72 74 20 6e 69 6c 20 78 73 63 68 65 6d 65	....\"!.".[end.start.nil.xscheme
2920	2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 2d 63 75 72 72 65 6e 74 2d 70 20 73 65 74 2d 6d 61	-process-buffer-current-p.set-ma
2940	72 6b 65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 67 65 74 2d 70 72 6f 63 65 73 73 20 22 73	rker.process-mark.get-process."s
2960	63 68 65 6d 65 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 62 75 66 66 65	cheme".xscheme-send-string.buffe
2980	72 2d 73 75 62 73 74 72 69 6e 67 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65	r-substring].8))..(defun.xscheme
29a0	2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65	-send-definition.nil."\.Send.the
29c0	20 63 75 72 72 65 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f 20 74 68 65 20 53 63 68 65 6d	.current.definition.to.the.Schem
29e0	65 20 70 72 6f 63 65 73 73 2e 0a 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 20 62	e.process..If.the.current.line.b
2a00	65 67 69 6e 73 20 77 69 74 68 20 61 20 6e 6f 6e 2d 77 68 69 74 65 73 70 61 63 65 20 63 68 61 72	egins.with.a.non-whitespace.char
2a20	61 63 74 65 72 2c 0a 70 61 72 73 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 66 72 6f 6d 20	acter,.parse.an.expression.from.
2a40	74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 74 68 65 20 6c 69 6e 65 20 61 6e 64 20 73 65	the.beginning.of.the.line.and.se
2a60	6e 64 20 74 68 61 74 20 69 6e 73 74 65 61 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20	nd.that.instead.".(interactive).
2a80	28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c1 c1 1a 18 8a c4 20 88 60 89 12 88 c5 c6 c1 c3 23 83	(byte-code."..........`.......#.
2aa0	1c 00 60 89 10 82 1f 00 c7 c8 21 29 88 c9 08 0a 5c 22 2a 87 22 20 5b 73 74 61 72 74 20 6e 69 6c	..`.......!)....\"*.".[start.nil
2ac0	20 65 6e 64 20 74 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 72 65 2d 73 65 61 72 63 68 2d 62 61	.end.t.end-of-defun.re-search-ba
2ae0	63 6b 77 61 72 64 20 22 5e 5c 5c 73 28 22 20 65 72 72 6f 72 20 22 43 61 6e 27 74 20 66 69 6e 64	ckward."^\\s(".error."Can't.find
2b00	20 64 65 66 69 6e 69 74 69 6f 6e 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 72 65 67 69 6f 6e	.definition".xscheme-send-region
2b20	5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 6e 65 78 74 2d	].6))..(defun.xscheme-send-next-
2b40	65 78 70 72 65 73 73 69 6f 6e 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 65 78 70 72 65	expression.nil."\.Send.the.expre
2b60	73 73 69 6f 6e 20 74 6f 20 74 68 65 20 72 69 67 68 74 20 6f 66 20 60 70 6f 69 6e 74 27 20 74 6f	ssion.to.the.right.of.`point'.to
2b80	20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69	.the.Scheme.process.".(interacti
2ba0	76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 60 18 c2 08 8a c3 20 88 60 29 5c 22 29 87	ve).(byte-code."..`.......`)\").
2bc0	22 20 5b 73 74 61 72 74 20 6e 69 6c 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 72 65 67 69 6f 6e	".[start.nil.xscheme-send-region
2be0	20 66 6f 72 77 61 72 64 2d 73 65 78 70 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65	.forward-sexp].4))..(defun.xsche
2c00	6d 65 2d 73 65 6e 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 6e 69 6c 20	me-send-previous-expression.nil.
2c20	22 5c 0a 53 65 6e 64 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 74 6f 20 74 68 65 20 6c 65	"\.Send.the.expression.to.the.le
2c40	66 74 20 6f 66 20 60 70 6f 69 6e 74 27 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63	ft.of.`point'.to.the.Scheme.proc
2c60	65 73 73 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 64 65 20 22	ess.".(interactive).(byte-code."
2c80	c1 88 60 18 c2 8a c3 20 88 60 29 08 5c 22 29 87 22 20 5b 65 6e 64 20 6e 69 6c 20 78 73 63 68 65	..`......`).\").".[end.nil.xsche
2ca0	6d 65 2d 73 65 6e 64 2d 72 65 67 69 6f 6e 20 62 61 63 6b 77 61 72 64 2d 73 65 78 70 5d 20 34 29	me-send-region.backward-sexp].4)
2cc0	29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 75 72 72 65 6e 74 2d 6c	)..(defun.xscheme-send-current-l
2ce0	69 6e 65 20 6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65	ine.nil."\.Send.the.current.line
2d00	20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 0a 55 73 65 66 75 6c 20 66	.to.the.Scheme.process..Useful.f
2d20	6f 72 20 77 6f 72 6b 69 6e 67 20 77 69 74 68 20 64 65 62 75 67 67 69 6e 67 20 53 63 68 65 6d 65	or.working.with.debugging.Scheme
2d40	20 75 6e 64 65 72 20 61 64 62 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65	.under.adb.".(interactive).(byte
2d60	2d 63 6f 64 65 20 22 c2 88 8a c3 20 88 60 19 c4 20 88 c5 09 60 5c 22 29 29 18 c4 20 88 c6 63 88	-code."......`......`\")).....c.
2d80	c7 08 21 29 87 22 20 5b 6c 69 6e 65 20 73 74 61 72 74 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e 67	..!).".[line.start.nil.beginning
2da0	2d 6f 66 2d 6c 69 6e 65 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 62 75 66 66 65 72 2d 73 75 62 73	-of-line.end-of-line.buffer-subs
2dc0	74 72 69 6e 67 20 31 30 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74 72 69 6e 67 2d 32 5d 20	tring.10.xscheme-send-string-2].
2de0	36 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 62 75 66 66 65 72 20	6))..(defun.xscheme-send-buffer.
2e00	6e 69 6c 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74	nil."\.Send.the.current.buffer.t
2e20	6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 20 28 69 6e 74 65 72 61 63 74	o.the.Scheme.process.".(interact
2e40	69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 85 0a 00 c2 c3 21 88 c4 65 64 5c	ive).(byte-code.".........!..ed\
2e60	22 87 22 20 5b 6e 69 6c 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 2d	".".[nil.xscheme-process-buffer-
2e80	63 75 72 72 65 6e 74 2d 70 20 65 72 72 6f 72 20 22 4e 6f 74 20 61 6c 6c 6f 77 65 64 20 74 6f 20	current-p.error."Not.allowed.to.
2ea0	73 65 6e 64 20 74 68 69 73 20 62 75 66 66 65 72 27 73 20 63 6f 6e 74 65 6e 74 73 20 74 6f 20 53	send.this.buffer's.contents.to.S
2ec0	63 68 65 6d 65 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 72 65 67 69 6f 6e 5d 20 35 29 29 0a	cheme".xscheme-send-region].5)).
2ee0	0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 68 61 72 20 28 63 68 61 72 29	.(defun.xscheme-send-char.(char)
2f00	20 22 5c 0a 50 72 6f 6d 70 74 20 66 6f 72 20 61 20 63 68 61 72 61 63 74 65 72 20 61 6e 64 20 73	."\.Prompt.for.a.character.and.s
2f20	65 6e 64 20 69 74 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 20 28	end.it.to.the.Scheme.process.".(
2f40	69 6e 74 65 72 61 63 74 69 76 65 20 22 63 43 68 61 72 61 63 74 65 72 20 74 6f 20 73 65 6e 64 3a	interactive."cCharacter.to.send:
2f60	20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c4 08 21 5c 22 87 22 20 5b 63 68 61	.").(byte-code."......!\".".[cha
2f80	72 20 6e 69 6c 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 22 73 63 68 65 6d 65 22 20 63 68 61 72 2d	r.nil.send-string."scheme".char-
2fa0	74 6f 2d 73 74 72 69 6e 67 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73	to-string].4))..(defun.xscheme-s
2fc0	65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 69 6e 74 65 72 72 75 70 74 20 6e 69 6c 20 22 5c 0a	end-breakpoint-interrupt.nil."\.
2fe0	43 61 75 73 65 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 74 6f 20 65 6e 74 65	Cause.the.Scheme.process.to.ente
3000	72 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28	r.a.breakpoint.".(interactive).(
3020	62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c0 5c 22 87 22 20 5b 6e 69 6c 20 78 73 63 68 65 6d	byte-code.".....\".".[nil.xschem
3040	65 2d 73 65 6e 64 2d 69 6e 74 65 72 72 75 70 74 20 39 38 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e	e-send-interrupt.98].3))..(defun
3060	20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 6f 63 65 65 64 20 6e 69 6c 20 22 5c 0a 43 61 75	.xscheme-send-proceed.nil."\.Cau
3080	73 65 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 74 6f 20 70 72 6f 63 65 65 64	se.the.Scheme.process.to.proceed
30a0	20 66 72 6f 6d 20 61 20 62 72 65 61 6b 70 6f 69 6e 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	.from.a.breakpoint.".(interactiv
30c0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 c3 5c 22 87 22 20 5b 6e 69 6c 20 73 65	e).(byte-code.".....\".".[nil.se
30e0	6e 64 2d 73 74 72 69 6e 67 20 22 73 63 68 65 6d 65 22 20 22 28 70 72 6f 63 65 65 64 29 0a 22 5d	nd-string."scheme"."(proceed)."]
3100	20 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f	.3))..(defun.xscheme-send-contro
3120	6c 2d 67 2d 69 6e 74 65 72 72 75 70 74 20 6e 69 6c 20 22 5c 0a 43 61 75 73 65 20 74 68 65 20 53	l-g-interrupt.nil."\.Cause.the.S
3140	63 68 65 6d 65 20 70 72 6f 63 65 73 73 6f 72 20 74 6f 20 68 61 6c 74 20 61 6e 64 20 66 6c 75 73	cheme.processor.to.halt.and.flus
3160	68 20 69 6e 70 75 74 2e 0a 43 6f 6e 74 72 6f 6c 20 72 65 74 75 72 6e 73 20 74 6f 20 74 68 65 20	h.input..Control.returns.to.the.
3180	74 6f 70 20 6c 65 76 65 6c 20 72 65 70 20 6c 6f 6f 70 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76	top.level.rep.loop.".(interactiv
31a0	65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c1 18 0a 3f 83 0f 00 c5 c6 21 82 2b 00 0b 83	e).(byte-code.".....?.....!.+...
31c0	19 00 c7 c8 21 82 2b 00 c1 89 13 88 c7 c9 21 88 c5 c6 21 88 ca c6 cb cc 21 5c 22 29 87 22 20 5b	....!.+.......!...!.....!\").".[
31e0	69 6e 68 69 62 69 74 2d 71 75 69 74 20 74 20 78 73 63 68 65 6d 65 2d 63 6f 6e 74 72 6f 6c 2d 67	inhibit-quit.t.xscheme-control-g
3200	2d 73 79 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e 2d 70 20 78 73 63 68 65 6d 65 2d 63 6f 6e 74 72	-synchronization-p.xscheme-contr
3220	6f 6c 2d 67 2d 64 69 73 61 62 6c 65 64 2d 70 20 6e 69 6c 20 69 6e 74 65 72 72 75 70 74 2d 70 72	ol-g-disabled-p.nil.interrupt-pr
3240	6f 63 65 73 73 20 22 73 63 68 65 6d 65 22 20 6d 65 73 73 61 67 65 20 22 52 65 6c 61 78 2e 2e 2e	ocess."scheme".message."Relax...
3260	22 20 22 53 65 6e 64 69 6e 67 20 43 2d 47 20 69 6e 74 65 72 72 75 70 74 20 74 6f 20 53 63 68 65	"."Sending.C-G.interrupt.to.Sche
3280	6d 65 2e 2e 2e 22 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e	me...".send-string.char-to-strin
32a0	67 20 30 5d 20 38 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f	g.0].8))..(defun.xscheme-send-co
32c0	6e 74 72 6f 6c 2d 75 2d 69 6e 74 65 72 72 75 70 74 20 6e 69 6c 20 22 5c 0a 43 61 75 73 65 20 74	ntrol-u-interrupt.nil."\.Cause.t
32e0	68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 74 6f 20 68 61 6c 74 2c 20 72 65 74 75 72	he.Scheme.process.to.halt,.retur
3300	6e 69 6e 67 20 74 6f 20 70 72 65 76 69 6f 75 73 20 72 65 70 20 6c 6f 6f 70 2e 22 20 28 69 6e 74	ning.to.previous.rep.loop.".(int
3320	65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c0 5c 22 87 22 20	eractive).(byte-code.".....\".".
3340	5b 74 20 6e 69 6c 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 69 6e 74 65 72 72 75 70 74 20 31 31	[t.nil.xscheme-send-interrupt.11
3360	37 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74	7].3))..(defun.xscheme-send-cont
3380	72 6f 6c 2d 78 2d 69 6e 74 65 72 72 75 70 74 20 6e 69 6c 20 22 5c 0a 43 61 75 73 65 20 74 68 65	rol-x-interrupt.nil."\.Cause.the
33a0	20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 74 6f 20 68 61 6c 74 2c 20 72 65 74 75 72 6e 69	.Scheme.process.to.halt,.returni
33c0	6e 67 20 74 6f 20 63 75 72 72 65 6e 74 20 72 65 70 20 6c 6f 6f 70 2e 22 20 28 69 6e 74 65 72 61	ng.to.current.rep.loop.".(intera
33e0	63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 88 c2 c3 c0 5c 22 87 22 20 5b 74 20	ctive).(byte-code.".....\".".[t.
3400	6e 69 6c 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 69 6e 74 65 72 72 75 70 74 20 31 32 30 5d 20	nil.xscheme-send-interrupt.120].
3420	33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 69 6e 74 65 72 72 75	3))..(defun.xscheme-send-interru
3440	70 74 20 28 63 68 61 72 20 6d 61 72 6b 2d 70 29 20 22 5c 0a 53 65 6e 64 20 61 20 5e 41 20 74 79	pt.(char.mark-p)."\.Send.a.^A.ty
3460	70 65 20 69 6e 74 65 72 72 75 70 74 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65	pe.interrupt.to.the.Scheme.proce
3480	73 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 63 49 6e 74 65 72 72 75 70 74 20 63 68	ss.".(interactive."cInterrupt.ch
34a0	61 72 61 63 74 65 72 20 74 6f 20 73 65 6e 64 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22	aracter.to.send:.").(byte-code."
34c0	c3 88 c4 c5 21 88 c6 c5 c7 08 21 5c 22 88 09 85 12 00 0a 85 1b 00 c6 c5 c7 c8 21 5c 22 87 22 20	....!.....!\".............!\".".
34e0	5b 63 68 61 72 20 6d 61 72 6b 2d 70 20 78 73 63 68 65 6d 65 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 73	[char.mark-p.xscheme-control-g-s
3500	79 6e 63 68 72 6f 6e 69 7a 61 74 69 6f 6e 2d 70 20 6e 69 6c 20 71 75 69 74 2d 70 72 6f 63 65 73	ynchronization-p.nil.quit-proces
3520	73 20 22 73 63 68 65 6d 65 22 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 63 68 61 72 2d 74 6f 2d 73	s."scheme".send-string.char-to-s
3540	74 72 69 6e 67 20 30 5d 20 37 29 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 70 72	tring.0].7))..(defvar.xscheme-pr
3560	6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 43 6f 6d 6d 61 6e	ocess-command-line.nil."\.Comman
3580	64 20 75 73 65 64 20 74 6f 20 73 74 61 72 74 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 20	d.used.to.start.the.most.recent.
35a0	53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65	Scheme.process.")..(defvar.xsche
35c0	6d 65 2d 70 72 65 76 69 6f 75 73 2d 73 65 6e 64 20 22 22 20 22 5c 0a 4d 6f 73 74 20 72 65 63 65	me-previous-send.""."\.Most.rece
35e0	6e 74 20 65 78 70 72 65 73 73 69 6f 6e 20 74 72 61 6e 73 6d 69 74 74 65 64 20 74 6f 20 74 68 65	nt.expression.transmitted.to.the
3600	20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68	.Scheme.process.")..(defvar.xsch
3620	65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 73 74 61 74 65 20 28 71 75 6f 74 65 20	eme-process-filter-state.(quote.
3640	69 64 6c 65 29 20 22 5c 0a 53 74 61 74 65 20 6f 66 20 73 63 68 65 6d 65 20 70 72 6f 63 65 73 73	idle)."\.State.of.scheme.process
3660	20 65 73 63 61 70 65 20 72 65 61 64 65 72 20 73 74 61 74 65 20 6d 61 63 68 69 6e 65 3a 0a 69 64	.escape.reader.state.machine:.id
3680	6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 61 69 74 69 6e 67 20 66 6f 72	le...................waiting.for
36a0	20 61 6e 20 65 73 63 61 70 65 20 73 65 71 75 65 6e 63 65 0a 72 65 61 64 69 6e 67 2d 74 79 70 65	.an.escape.sequence.reading-type
36c0	20 20 20 20 20 20 20 20 20 20 20 72 65 63 65 69 76 65 64 20 61 6e 20 61 6c 74 6d 6f 64 65 20 62	...........received.an.altmode.b
36e0	75 74 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65 0a 72 65 61 64 69 6e 67 2d 73 74 72 69 6e 67 20 20	ut.nothing.else.reading-string..
3700	20 20 20 20 20 20 20 72 65 61 64 69 6e 67 20 70 72 6f 6d 70 74 20 73 74 72 69 6e 67 22 29 0a 0a	.......reading.prompt.string")..
3720	28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 72 75 6e 6e 69 6e 67 2d 70 20 6e 69 6c 20 22 5c	(defvar.xscheme-running-p.nil."\
3740	0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 2c 20 69 66 20 6e 69 6c 2c 20 69 6e 64 69 63 61 74 65	.This.variable,.if.nil,.indicate
3760	73 20 74 68 61 74 20 74 68 65 20 73 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 0a 77 61 69	s.that.the.scheme.process.is.wai
3780	74 69 6e 67 20 66 6f 72 20 69 6e 70 75 74 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 69 74 20 69	ting.for.input...Otherwise,.it.i
37a0	73 20 62 75 73 79 20 65 76 61 6c 75 61 74 69 6e 67 20 73 6f 6d 65 74 68 69 6e 67 2e 22 29 0a 0a	s.busy.evaluating.something.")..
37c0	28 64 65 66 63 6f 6e 73 74 20 78 73 63 68 65 6d 65 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 73 79 6e 63	(defconst.xscheme-control-g-sync
37e0	68 72 6f 6e 69 7a 61 74 69 6f 6e 2d 70 20 74 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69	hronization-p.t."\.If.non-nil,.i
3800	6e 73 65 72 74 20 6d 61 72 6b 65 72 73 20 69 6e 20 74 68 65 20 73 63 68 65 6d 65 20 69 6e 70 75	nsert.markers.in.the.scheme.inpu
3820	74 20 73 74 72 65 61 6d 20 74 6f 20 69 6e 64 69 63 61 74 65 20 77 68 65 6e 0a 63 6f 6e 74 72 6f	t.stream.to.indicate.when.contro
3840	6c 2d 67 20 69 6e 74 65 72 72 75 70 74 73 20 77 65 72 65 20 73 69 67 6e 61 6c 6c 65 64 2e 20 20	l-g.interrupts.were.signalled...
3860	44 6f 20 6e 6f 74 20 61 6c 6c 6f 77 20 6d 6f 72 65 20 63 6f 6e 74 72 6f 6c 2d 67 27 73 20 74 6f	Do.not.allow.more.control-g's.to
3880	20 62 65 0a 73 69 67 6e 61 6c 6c 65 64 20 75 6e 74 69 6c 20 74 68 65 20 73 63 68 65 6d 65 20 70	.be.signalled.until.the.scheme.p
38a0	72 6f 63 65 73 73 20 61 63 6b 6e 6f 77 6c 65 64 67 65 73 20 72 65 63 65 69 70 74 2e 22 29 0a 0a	rocess.acknowledges.receipt.")..
38c0	28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 64 69 73 61 62 6c	(defvar.xscheme-control-g-disabl
38e0	65 64 2d 70 20 6e 69 6c 20 22 5c 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 2c 20 69 66 20 6e 6f	ed-p.nil."\.This.variable,.if.no
3900	6e 2d 6e 69 6c 2c 20 69 6e 64 69 63 61 74 65 73 20 74 68 61 74 20 61 20 63 6f 6e 74 72 6f 6c 2d	n-nil,.indicates.that.a.control-
3920	67 20 69 73 20 62 65 69 6e 67 20 70 72 6f 63 65 73 73 65 64 0a 62 79 20 74 68 65 20 73 63 68 65	g.is.being.processed.by.the.sche
3940	6d 65 20 70 72 6f 63 65 73 73 2c 20 73 6f 20 61 64 64 69 74 69 6f 6e 61 6c 20 63 6f 6e 74 72 6f	me.process,.so.additional.contro
3960	6c 2d 67 27 73 20 61 72 65 20 74 6f 20 62 65 20 69 67 6e 6f 72 65 64 2e 22 29 0a 0a 28 64 65 66	l-g's.are.to.be.ignored.")..(def
3980	76 61 72 20 78 73 63 68 65 6d 65 2d 61 6c 6c 6f 77 2d 6f 75 74 70 75 74 2d 70 20 74 20 22 5c 0a	var.xscheme-allow-output-p.t."\.
39a0	54 68 69 73 20 76 61 72 69 61 62 6c 65 2c 20 69 66 20 6e 69 6c 2c 20 70 72 65 76 65 6e 74 73 20	This.variable,.if.nil,.prevents.
39c0	6f 75 74 70 75 74 20 66 72 6f 6d 20 74 68 65 20 73 63 68 65 6d 65 20 70 72 6f 63 65 73 73 0a 66	output.from.the.scheme.process.f
39e0	72 6f 6d 20 62 65 69 6e 67 20 69 6e 73 65 72 74 65 64 20 69 6e 74 6f 20 74 68 65 20 70 72 6f 63	rom.being.inserted.into.the.proc
3a00	65 73 73 2d 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 70	ess-buffer.")..(defvar.xscheme-p
3a20	72 6f 6d 70 74 20 22 22 20 22 5c 0a 54 68 65 20 63 75 72 72 65 6e 74 20 73 63 68 65 6d 65 20 70	rompt.""."\.The.current.scheme.p
3a40	72 6f 6d 70 74 20 73 74 72 69 6e 67 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65	rompt.string.")..(defvar.xscheme
3a60	2d 73 74 72 69 6e 67 2d 61 63 63 75 6d 75 6c 61 74 6f 72 20 22 22 20 22 5c 0a 41 63 63 75 6d 75	-string-accumulator.""."\.Accumu
3a80	6c 61 74 6f 72 20 66 6f 72 20 74 68 65 20 73 74 72 69 6e 67 20 62 65 69 6e 67 20 72 65 63 65 69	lator.for.the.string.being.recei
3aa0	76 65 64 20 66 72 6f 6d 20 74 68 65 20 73 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 29 0a 0a	ved.from.the.scheme.process.")..
3ac0	28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 73 74 72 69 6e 67 2d 72 65 63 65 69 76 65 72 20	(defvar.xscheme-string-receiver.
3ae0	6e 69 6c 20 22 5c 0a 50 72 6f 63 65 64 75 72 65 20 74 6f 20 73 65 6e 64 20 74 68 65 20 73 74 72	nil."\.Procedure.to.send.the.str
3b00	69 6e 67 20 61 72 67 75 6d 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 73 63 68 65 6d 65 20 70 72 6f	ing.argument.from.the.scheme.pro
3b20	63 65 73 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 68	cess.")..(defvar.xscheme-start-h
3b40	6f 6f 6b 20 6e 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 20 70 72 6f 63 65 64 75	ook.nil."\.If.non-nil,.a.procedu
3b60	72 65 20 74 6f 20 63 61 6c 6c 20 77 68 65 6e 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65	re.to.call.when.the.Scheme.proce
3b80	73 73 20 69 73 20 73 74 61 72 74 65 64 2e 0a 57 68 65 6e 20 63 61 6c 6c 65 64 2c 20 74 68 65 20	ss.is.started..When.called,.the.
3ba0	63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 20 74 68 65 20 53 63 68 65 6d	current.buffer.will.be.the.Schem
3bc0	65 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63	e.process-buffer.")..(defvar.xsc
3be0	68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 2d 73 74 72 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 76	heme-runlight-string.nil)..(defv
3c00	61 72 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65	ar.xscheme-mode-string.nil)..(de
3c20	66 76 61 72 20 78 73 63 68 65 6d 65 2d 66 69 6c 74 65 72 2d 69 6e 70 75 74 20 6e 69 6c 29 0a 0a	fvar.xscheme-filter-input.nil)..
3c40	28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 28 63 6f	(defun.xscheme-start-process.(co
3c60	6d 6d 61 6e 64 2d 6c 69 6e 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c7 c8 21 18 c9 08 21 19	mmand-line).(byte-code."..!...!.
3c80	8a 08 71 88 09 85 15 00 ca 09 21 cb 3e 83 21 00 cc cd 09 21 64 5c 22 82 64 00 09 85 28 00 ce 09	..q.......!.>.!....!d\".d...(...
3ca0	21 88 64 62 88 cf 20 88 6f 85 38 00 d0 d1 0a 21 21 88 c4 1b d2 d3 d4 08 d5 0d 21 42 42 5c 22 29	!.db....o.8....!!.........!BB\")
3cc0	89 11 88 cc cd 09 21 64 5c 22 88 d6 c6 21 88 d7 20 88 d8 09 d9 5c 22 88 da 09 db 5c 22 88 dc dd	......!d\"...!.......\"....\"...
3ce0	21 29 29 88 08 29 87 22 20 5b 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 20 78 73 63 68 65 6d 65	!))..).".[buffer.process.xscheme
3d00	2d 73 74 61 72 74 75 70 2d 6d 65 73 73 61 67 65 20 70 72 6f 63 65 73 73 2d 63 6f 6e 6e 65 63 74	-startup-message.process-connect
3d20	69 6f 6e 2d 74 79 70 65 20 6e 69 6c 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 74 20 67 65 74 2d	ion-type.nil.command-line.t.get-
3d40	62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 73 63 68 65 6d 65 2a 22 20 67 65 74 2d 62 75 66	buffer-create."*scheme*".get-buf
3d60	66 65 72 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 28 72 75 6e 20	fer-process.process-status.(run.
3d80	73 74 6f 70 29 20 73 65 74 2d 6d 61 72 6b 65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 64 65	stop).set-marker.process-mark.de
3da0	6c 65 74 65 2d 70 72 6f 63 65 73 73 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d	lete-process.scheme-interaction-
3dc0	6d 6f 64 65 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 73 75 62 73 74	mode.insert-before-markers.subst
3de0	69 74 75 74 65 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 20 61 70 70 6c 79 20 73 74 61 72 74 2d 70	itute-command-keys.apply.start-p
3e00	72 6f 63 65 73 73 20 22 73 63 68 65 6d 65 22 20 78 73 63 68 65 6d 65 2d 70 61 72 73 65 2d 63 6f	rocess."scheme".xscheme-parse-co
3e20	6d 6d 61 6e 64 2d 6c 69 6e 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65	mmand-line.xscheme-process-filte
3e40	72 2d 69 6e 69 74 69 61 6c 69 7a 65 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 69 6e	r-initialize.xscheme-modeline-in
3e60	69 74 69 61 6c 69 7a 65 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 78 73	itialize.set-process-sentinel.xs
3e80	63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 73 65 74 2d 70 72 6f 63 65	cheme-process-sentinel.set-proce
3ea0	73 73 2d 66 69 6c 74 65 72 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72	ss-filter.xscheme-process-filter
3ec0	20 72 75 6e 2d 68 6f 6f 6b 73 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 68 6f 6f 6b 5d 20 31	.run-hooks.xscheme-start-hook].1
3ee0	39 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70 61 72 73 65 2d 63 6f 6d 6d 61 6e	9))..(defun.xscheme-parse-comman
3f00	64 2d 6c 69 6e 65 20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 08 21 89	d-line.(string).(byte-code."..!.
3f20	10 88 c7 c4 1a 19 09 85 46 00 c8 c9 08 09 23 1b 0b 3f 83 26 00 08 09 c4 4f 0a 42 89 12 88 c4 82	........F.....#..?.&....O.B.....
3f40	3f 00 0b 09 55 83 34 00 c8 ca 08 09 23 82 3f 00 08 09 0b 4f 0a 42 89 12 88 0b 54 89 11 29 88 82	?...U.4.....#.?....O.B....T..)..
3f60	0a 00 88 cb 0a 21 2a 87 22 20 5b 73 74 72 69 6e 67 20 73 74 61 72 74 20 72 65 73 75 6c 74 20 69	.....!*.".[string.start.result.i
3f80	6e 64 65 78 20 6e 69 6c 20 74 20 73 75 62 73 74 69 74 75 74 65 2d 69 6e 2d 66 69 6c 65 2d 6e 61	ndex.nil.t.substitute-in-file-na
3fa0	6d 65 20 30 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b 20 09 5d 22 20 22 5b 5e 20 09 5d 22	me.0.string-match."[..]"."[^..]"
3fc0	20 6e 72 65 76 65 72 73 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 77	.nreverse].7))..(defun.xscheme-w
3fe0	61 69 74 2d 66 6f 72 2d 70 72 6f 63 65 73 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22	ait-for-process.nil.(byte-code."
4000	c1 c2 21 88 08 85 0f 00 c1 c3 21 88 82 04 00 87 22 20 5b 78 73 63 68 65 6d 65 2d 72 75 6e 6e 69	..!.......!.....".[xscheme-runni
4020	6e 67 2d 70 20 73 6c 65 65 70 2d 66 6f 72 20 32 20 31 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20	ng-p.sleep-for.2.1].4))..(defun.
4040	78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 72 75 6e 6e 69 6e 67 2d 70 20 6e 69 6c 20 22 5c	xscheme-process-running-p.nil."\
4060	0a 54 72 75 65 20 69 66 66 20 74 68 65 72 65 20 69 73 20 61 20 53 63 68 65 6d 65 20 70 72 6f 63	.True.iff.there.is.a.Scheme.proc
4080	65 73 73 20 77 68 6f 73 65 20 73 74 61 74 75 73 20 69 73 20 60 72 75 6e 27 2e 22 20 28 62 79 74	ess.whose.status.is.`run'.".(byt
40a0	65 2d 63 6f 64 65 20 22 c1 c2 21 18 08 85 0d 00 c3 08 21 c4 3d 29 87 22 20 5b 70 72 6f 63 65 73	e-code."..!.......!.=).".[proces
40c0	73 20 67 65 74 2d 70 72 6f 63 65 73 73 20 22 73 63 68 65 6d 65 22 20 70 72 6f 63 65 73 73 2d 73	s.get-process."scheme".process-s
40e0	74 61 74 75 73 20 72 75 6e 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70	tatus.run].4))..(defun.xscheme-p
4100	72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2	rocess-buffer.nil.(byte-code."..
4120	21 18 08 85 0b 00 c3 08 21 29 87 22 20 5b 70 72 6f 63 65 73 73 20 67 65 74 2d 70 72 6f 63 65 73	!.......!).".[process.get-proces
4140	73 20 22 73 63 68 65 6d 65 22 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a	s."scheme".process-buffer].3))..
4160	28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 2d 77 69	(defun.xscheme-process-buffer-wi
4180	6e 64 6f 77 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 18 08 85 0a 00 c2 08 21 29	ndow.nil.(byte-code.".........!)
41a0	87 22 20 5b 62 75 66 66 65 72 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65	.".[buffer.xscheme-process-buffe
41c0	72 20 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e	r.get-buffer-window].3))..(defun
41e0	20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 2d 63 75 72 72 65 6e 74 2d	.xscheme-process-buffer-current-
4200	70 20 6e 69 6c 20 22 5c 0a 54 72 75 65 20 69 66 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75	p.nil."\.True.iff.the.current.bu
4220	66 66 65 72 20 69 73 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 62 75 66 66 65	ffer.is.the.Scheme.process.buffe
4240	72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 70 3d 87 22 20 5b 78 73 63 68 65 6d 65 2d	r.".(byte-code."..p=.".[xscheme-
4260	70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68	process-buffer].3))..(defun.xsch
4280	65 6d 65 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 20 72 65 61 73 6f	eme-process-sentinel.(proc.reaso
42a0	6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 08 c5 3d 21 88 08 c5 3d 83 11 00 c6 20 82 18 00	n).(byte-code."...=!...=........
42c0	c7 89 11 88 c8 89 12 88 08 c9 3e 3f 85 21 00 0b 85 2a 00 ca 20 88 cb cc 21 87 22 20 5b 72 65 61	..........>?.!...*......!.".[rea
42e0	73 6f 6e 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 20 78 73 63	son.scheme-mode-line-process.xsc
4300	68 65 6d 65 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 20 78 73 63 68 65 6d 65 2d 73 69 67 6e 61 6c 2d	heme-mode-string.xscheme-signal-
4320	64 65 61 74 68 2d 6d 65 73 73 61 67 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69	death-message.xscheme-process-fi
4340	6c 74 65 72 2d 69 6e 69 74 69 61 6c 69 7a 65 20 72 75 6e 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65	lter-initialize.run.xscheme-mode
4360	6c 69 6e 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 22 22 20 22 6e 6f 20 70 72 6f 63 65 73 73 22 20	line-initialize.""."no.process".
4380	28 72 75 6e 20 73 74 6f 70 29 20 62 65 65 70 20 6d 65 73 73 61 67 65 20 22 54 68 65 20 53 63 68	(run.stop).beep.message."The.Sch
43a0	65 6d 65 20 70 72 6f 63 65 73 73 20 68 61 73 20 64 69 65 64 21 20 20 44 6f 20 4d 2d 78 20 72 65	eme.process.has.died!..Do.M-x.re
43c0	73 65 74 2d 73 63 68 65 6d 65 20 74 6f 20 72 65 73 74 61 72 74 20 69 74 22 5d 20 35 29 29 0a 0a	set-scheme.to.restart.it"].5))..
43e0	28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 69 6e	(defun.xscheme-process-filter-in
4400	69 74 69 61 6c 69 7a 65 20 28 72 75 6e 6e 69 6e 67 2d 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20	itialize.(running-p).(byte-code.
4420	22 c9 89 10 88 0a 89 11 88 c4 89 13 88 c6 89 15 88 ca 89 16 07 88 cb 89 16 08 87 22 20 5b 78 73	"..........................".[xs
4440	63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 73 74 61 74 65 20 78 73 63 68 65	cheme-process-filter-state.xsche
4460	6d 65 2d 72 75 6e 6e 69 6e 67 2d 70 20 72 75 6e 6e 69 6e 67 2d 70 20 78 73 63 68 65 6d 65 2d 63	me-running-p.running-p.xscheme-c
4480	6f 6e 74 72 6f 6c 2d 67 2d 64 69 73 61 62 6c 65 64 2d 70 20 6e 69 6c 20 78 73 63 68 65 6d 65 2d	ontrol-g-disabled-p.nil.xscheme-
44a0	61 6c 6c 6f 77 2d 6f 75 74 70 75 74 2d 70 20 74 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 20	allow-output-p.t.xscheme-prompt.
44c0	73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 69 64 6c 65 20 22 22	scheme-mode-line-process.idle.""
44e0	20 28 22 3a 20 22 20 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 2d 73 74 72 69 6e 67 29 5d	.(":.".xscheme-runlight-string)]
4500	20 32 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c	.2))..(defun.xscheme-process-fil
4520	74 65 72 20 28 70 72 6f 63 20 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18	ter.(proc.string).(byte-code."..
4540	08 85 be 00 0a cb 3d 83 38 00 cc cd 08 5c 22 1b 0b 83 2a 00 ce 08 cf 0b 4f 21 88 08 0b 54 c4 4f	......=.8....\"...*.....O!...T.O
4560	89 10 88 d0 89 12 82 34 00 08 19 c4 89 10 88 ce 09 21 29 29 82 ba 00 0a d0 3d 83 7c 00 d1 08 47	.......4.........!)).....=.|...G
4580	21 83 4b 00 c4 89 10 82 79 00 08 cf 48 1d 08 d2 c4 4f 89 10 88 d3 0d 0e 07 5c 22 1e 06 0e 06 83	!.K.....y...H....O.......\".....
45a0	6f 00 d4 d5 0e 06 38 d2 0e 06 38 5c 22 82 77 00 ce d6 0d 5c 22 88 cb 89 12 29 29 82 ba 00 0a d7	o.....8...8\".w....\"....)).....
45c0	3d 83 b7 00 cc cd 08 5c 22 1b 0b 83 a8 00 0e 08 08 cf 0b 4f 50 19 08 0b 54 c4 4f 89 10 88 cb 89	=......\"..........OP...T.O.....
45e0	12 88 d4 0e 09 09 5c 22 29 82 b3 00 0e 08 08 50 89 16 08 88 c4 89 10 29 82 ba 00 d8 d9 21 88 82	......\")......P.......).....!..
4600	02 00 29 87 22 20 5b 78 73 63 68 65 6d 65 2d 66 69 6c 74 65 72 2d 69 6e 70 75 74 20 73 74 72 69	..).".[xscheme-filter-input.stri
4620	6e 67 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 73 74 61 74 65 20	ng.xscheme-process-filter-state.
4640	73 74 61 72 74 20 6e 69 6c 20 63 68 61 72 20 65 6e 74 72 79 20 78 73 63 68 65 6d 65 2d 70 72 6f	start.nil.char.entry.xscheme-pro
4660	63 65 73 73 2d 66 69 6c 74 65 72 2d 61 6c 69 73 74 20 78 73 63 68 65 6d 65 2d 73 74 72 69 6e 67	cess-filter-alist.xscheme-string
4680	2d 61 63 63 75 6d 75 6c 61 74 6f 72 20 78 73 63 68 65 6d 65 2d 73 74 72 69 6e 67 2d 72 65 63 65	-accumulator.xscheme-string-rece
46a0	69 76 65 72 20 74 20 69 64 6c 65 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 1b 22 20 78 73 63	iver.t.idle.string-match.".".xsc
46c0	68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 6f 75 74 70 75 74 20 30 20 72 65 61	heme-process-filter-output.0.rea
46e0	64 69 6e 67 2d 74 79 70 65 20 7a 65 72 6f 70 20 31 20 61 73 73 6f 63 20 66 75 6e 63 61 6c 6c 20	ding-type.zerop.1.assoc.funcall.
4700	32 20 32 37 20 72 65 61 64 69 6e 67 2d 73 74 72 69 6e 67 20 65 72 72 6f 72 20 22 53 63 68 65 6d	2.27.reading-string.error."Schem
4720	65 20 70 72 6f 63 65 73 73 20 66 69 6c 74 65 72 20 2d 2d 20 62 61 64 20 73 74 61 74 65 22 5d 20	e.process.filter.--.bad.state"].
4740	31 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c	13))..(defun.xscheme-process-fil
4760	74 65 72 2d 6f 75 74 70 75 74 20 28 26 72 65 73 74 20 61 72 67 73 29 20 28 62 79 74 65 2d 63 6f	ter-output.(&rest.args).(byte-co
4780	64 65 20 22 08 85 4f 00 c5 c6 0a 5c 22 19 8a c7 20 88 c8 c9 09 5c 22 85 49 00 ca cb 21 cc cb 21	de."..O....\"........\".I...!..!
47a0	1c 1b cd 09 cb 0b 4f 21 88 ce 09 0b 48 55 83 3a 00 6e 3f 85 33 00 cd cf 21 88 cd ce 21 82 3c 00	......O!....HU.:.n?.3...!...!.<.
47c0	d0 20 88 09 0b 54 d1 4f 89 11 2a 88 82 0d 00 88 cd 09 21 29 29 87 22 20 5b 78 73 63 68 65 6d 65	.....T.O..*.......!)).".[xscheme
47e0	2d 61 6c 6c 6f 77 2d 6f 75 74 70 75 74 2d 70 20 73 74 72 69 6e 67 20 61 72 67 73 20 73 74 61 72	-allow-output-p.string.args.star
4800	74 20 65 6e 64 20 61 70 70 6c 79 20 63 6f 6e 63 61 74 20 78 73 63 68 65 6d 65 2d 67 6f 74 6f 2d	t.end.apply.concat.xscheme-goto-
4820	6f 75 74 70 75 74 2d 70 6f 69 6e 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 28 07 5c	output-point.string-match."\\(.\
4840	5c 7c 0c 5c 5c 29 22 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 6d 61 74 63 68 2d	\|.\\)".match-beginning.0.match-
4860	65 6e 64 20 69 6e 73 65 72 74 2d 62 65 66 6f 72 65 2d 6d 61 72 6b 65 72 73 20 31 32 20 31 30 20	end.insert-before-markers.12.10.
4880	62 65 65 70 20 6e 69 6c 5d 20 31 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 67	beep.nil].13))..(defun.xscheme-g
48a0	75 61 72 61 6e 74 65 65 2d 6e 65 77 6c 69 6e 65 73 20 28 6e 29 20 28 62 79 74 65 2d 63 6f 64 65	uarantee-newlines.(n).(byte-code
48c0	20 22 08 85 40 00 8a c5 20 88 c2 19 09 3f 85 10 00 6e 85 28 00 0b 53 89 13 88 6f 83 5c 22 00 c4	."..@........?...n.(..S...o.\"..
48e0	89 11 82 24 00 c6 20 88 82 0a 00 29 88 c5 20 88 0b c7 56 85 3f 00 c8 c9 21 88 0b 53 89 13 88 82	...$.......)......V.?...!..S....
4900	2d 00 29 87 22 20 5b 78 73 63 68 65 6d 65 2d 61 6c 6c 6f 77 2d 6f 75 74 70 75 74 2d 70 20 73 74	-.).".[xscheme-allow-output-p.st
4920	6f 70 20 6e 69 6c 20 6e 20 74 20 78 73 63 68 65 6d 65 2d 67 6f 74 6f 2d 6f 75 74 70 75 74 2d 70	op.nil.n.t.xscheme-goto-output-p
4940	6f 69 6e 74 20 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 30 20 69 6e 73 65 72 74 2d 62 65 66 6f	oint.backward-char.0.insert-befo
4960	72 65 2d 6d 61 72 6b 65 72 73 20 31 30 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65	re-markers.10].7))..(defun.xsche
4980	6d 65 2d 67 6f 74 6f 2d 6f 75 74 70 75 74 2d 70 6f 69 6e 74 20 6e 69 6c 20 28 62 79 74 65 2d 63	me-goto-output-point.nil.(byte-c
49a0	6f 64 65 20 22 c1 c2 21 18 c3 08 21 71 88 c4 08 21 62 29 87 22 20 5b 70 72 6f 63 65 73 73 20 67	ode."..!...!q...!b).".[process.g
49c0	65 74 2d 70 72 6f 63 65 73 73 20 22 73 63 68 65 6d 65 22 20 70 72 6f 63 65 73 73 2d 62 75 66 66	et-process."scheme".process-buff
49e0	65 72 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63	er.process-mark].4))..(defun.xsc
4a00	68 65 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 6e 69 6c 20 28 62 79	heme-modeline-initialize.nil.(by
4a20	74 65 2d 63 6f 64 65 20 22 c3 89 10 88 c3 89 11 88 c4 89 12 87 22 20 5b 78 73 63 68 65 6d 65 2d	te-code."............".[xscheme-
4a40	72 75 6e 6c 69 67 68 74 2d 73 74 72 69 6e 67 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 74 72	runlight-string.xscheme-mode-str
4a60	69 6e 67 20 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65 72 2d 69 64 65 6e 74 69 66 69 63 61 74	ing.mode-line-buffer-identificat
4a80	69 6f 6e 20 22 22 20 28 22 53 63 68 65 6d 65 3a 20 22 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65 2d	ion."".("Scheme:.".xscheme-mode-
4aa0	73 74 72 69 6e 67 29 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 74	string)].2))..(defun.xscheme-set
4ac0	2d 72 75 6e 6c 69 67 68 74 20 28 72 75 6e 6c 69 67 68 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20	-runlight.(runlight).(byte-code.
4ae0	22 09 89 10 88 c2 20 87 22 20 5b 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 2d 73 74 72 69	".......".[xscheme-runlight-stri
4b00	6e 67 20 72 75 6e 6c 69 67 68 74 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 72 65 64	ng.runlight.xscheme-modeline-red
4b20	69 73 70 6c 61 79 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65	isplay].2))..(defun.xscheme-mode
4b40	6c 69 6e 65 2d 72 65 64 69 73 70 6c 61 79 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a	line-redisplay.nil.(byte-code.".
4b60	c0 20 71 29 88 c1 c2 20 21 88 c3 c4 21 87 22 20 5b 6f 74 68 65 72 2d 62 75 66 66 65 72 20 73 65	..q)....!...!.".[other-buffer.se
4b80	74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66	t-buffer-modified-p.buffer-modif
4ba0	69 65 64 2d 70 20 73 69 74 2d 66 6f 72 20 30 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 78 73	ied-p.sit-for.0].5))..(defvar.xs
4bc0	63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 61 6c 69 73 74 20 28 71 75 6f 74	cheme-process-filter-alist.(quot
4be0	65 20 28 28 36 38 20 78 73 63 68 65 6d 65 2d 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72 2d 6d 6f	e.((68.xscheme-enter-debugger-mo
4c00	64 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67	de.xscheme-process-filter:string
4c20	2d 61 63 74 69 6f 6e 29 20 28 38 30 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 70 72 6f 6d 70 74 2d	-action).(80.xscheme-set-prompt-
4c40	76 61 72 69 61 62 6c 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a	variable.xscheme-process-filter:
4c60	73 74 72 69 6e 67 2d 61 63 74 69 6f 6e 29 20 28 38 32 20 78 73 63 68 65 6d 65 2d 65 6e 74 65 72	string-action).(82.xscheme-enter
4c80	2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73	-interaction-mode.xscheme-proces
4ca0	73 2d 66 69 6c 74 65 72 3a 73 69 6d 70 6c 65 2d 61 63 74 69 6f 6e 29 20 28 39 38 20 78 73 63 68	s-filter:simple-action).(98.xsch
4cc0	65 6d 65 2d 73 74 61 72 74 2d 67 63 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c	eme-start-gc.xscheme-process-fil
4ce0	74 65 72 3a 73 69 6d 70 6c 65 2d 61 63 74 69 6f 6e 29 20 28 31 30 31 20 78 73 63 68 65 6d 65 2d	ter:simple-action).(101.xscheme-
4d00	66 69 6e 69 73 68 2d 67 63 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72	finish-gc.xscheme-process-filter
4d20	3a 73 69 6d 70 6c 65 2d 61 63 74 69 6f 6e 29 20 28 31 30 32 20 78 73 63 68 65 6d 65 2d 65 78 69	:simple-action).(102.xscheme-exi
4d40	74 2d 69 6e 70 75 74 2d 77 61 69 74 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c	t-input-wait.xscheme-process-fil
4d60	74 65 72 3a 73 69 6d 70 6c 65 2d 61 63 74 69 6f 6e 29 20 28 31 30 33 20 78 73 63 68 65 6d 65 2d	ter:simple-action).(103.xscheme-
4d80	65 6e 61 62 6c 65 2d 63 6f 6e 74 72 6f 6c 2d 67 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73	enable-control-g.xscheme-process
4da0	2d 66 69 6c 74 65 72 3a 73 69 6d 70 6c 65 2d 61 63 74 69 6f 6e 29 20 28 31 30 35 20 78 73 63 68	-filter:simple-action).(105.xsch
4dc0	65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78 70 72 65 73 73 69 6f 6e 20 78 73 63 68 65 6d	eme-prompt-for-expression.xschem
4de0	65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63 74 69 6f 6e 29 20	e-process-filter:string-action).
4e00	28 31 30 39 20 78 73 63 68 65 6d 65 2d 6d 65 73 73 61 67 65 20 78 73 63 68 65 6d 65 2d 70 72 6f	(109.xscheme-message.xscheme-pro
4e20	63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63 74 69 6f 6e 29 20 28 31 31 30 20	cess-filter:string-action).(110.
4e40	78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20	xscheme-prompt-for-confirmation.
4e60	78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63	xscheme-process-filter:string-ac
4e80	74 69 6f 6e 29 20 28 31 31 31 20 78 73 63 68 65 6d 65 2d 6f 75 74 70 75 74 2d 67 6f 74 6f 20 78	tion).(111.xscheme-output-goto.x
4ea0	73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 69 6d 70 6c 65 2d 61 63 74	scheme-process-filter:simple-act
4ec0	69 6f 6e 29 20 28 31 31 32 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 70 72 6f 6d 70 74 20 78 73 63	ion).(112.xscheme-set-prompt.xsc
4ee0	68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63 74 69 6f	heme-process-filter:string-actio
4f00	6e 29 20 28 31 31 35 20 78 73 63 68 65 6d 65 2d 65 6e 74 65 72 2d 69 6e 70 75 74 2d 77 61 69 74	n).(115.xscheme-enter-input-wait
4f20	20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 69 6d 70 6c 65 2d 61	.xscheme-process-filter:simple-a
4f40	63 74 69 6f 6e 29 20 28 31 31 38 20 78 73 63 68 65 6d 65 2d 77 72 69 74 65 2d 76 61 6c 75 65 20	ction).(118.xscheme-write-value.
4f60	78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63	xscheme-process-filter:string-ac
4f80	74 69 6f 6e 29 20 28 31 31 39 20 78 73 63 68 65 6d 65 2d 63 64 20 78 73 63 68 65 6d 65 2d 70 72	tion).(119.xscheme-cd.xscheme-pr
4fa0	6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63 74 69 6f 6e 29 20 28 31 32 32	ocess-filter:string-action).(122
4fc0	20 78 73 63 68 65 6d 65 2d 64 69 73 70 6c 61 79 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20	.xscheme-display-process-buffer.
4fe0	78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 69 6d 70 6c 65 2d 61 63	xscheme-process-filter:simple-ac
5000	74 69 6f 6e 29 20 28 39 39 20 78 73 63 68 65 6d 65 2d 75 6e 73 6f 6c 69 63 69 74 65 64 2d 72 65	tion).(99.xscheme-unsolicited-re
5020	61 64 2d 63 68 61 72 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73	ad-char.xscheme-process-filter:s
5040	69 6d 70 6c 65 2d 61 63 74 69 6f 6e 29 29 29 20 22 5c 0a 54 61 62 6c 65 20 75 73 65 64 20 74 6f	imple-action)))."\.Table.used.to
5060	20 64 65 63 69 64 65 20 68 6f 77 20 74 6f 20 68 61 6e 64 6c 65 20 70 72 6f 63 65 73 73 20 66 69	.decide.how.to.handle.process.fi
5080	6c 74 65 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 56 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 20 6f	lter.commands..Value.is.a.list.o
50a0	66 20 65 6e 74 72 69 65 73 2c 20 65 61 63 68 20 65 6e 74 72 79 20 69 73 20 61 20 6c 69 73 74 20	f.entries,.each.entry.is.a.list.
50c0	6f 66 20 74 68 72 65 65 20 69 74 65 6d 73 2e 0a 0a 54 68 65 20 66 69 72 73 74 20 69 74 65 6d 20	of.three.items...The.first.item.
50e0	69 73 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 74 68 61 74 20 74 68 65 20 70 72 6f 63 65 73	is.the.character.that.the.proces
5100	73 20 66 69 6c 74 65 72 20 64 69 73 70 61 74 63 68 65 73 20 6f 6e 2e 0a 54 68 65 20 73 65 63 6f	s.filter.dispatches.on..The.seco
5120	6e 64 20 69 74 65 6d 20 69 73 20 74 68 65 20 61 63 74 69 6f 6e 20 74 6f 20 62 65 20 74 61 6b 65	nd.item.is.the.action.to.be.take
5140	6e 2c 20 61 20 66 75 6e 63 74 69 6f 6e 2e 0a 54 68 65 20 74 68 69 72 64 20 69 74 65 6d 20 69 73	n,.a.function..The.third.item.is
5160	20 74 68 65 20 68 61 6e 64 6c 65 72 20 66 6f 72 20 74 68 65 20 65 6e 74 72 79 2c 20 61 20 66 75	.the.handler.for.the.entry,.a.fu
5180	6e 63 74 69 6f 6e 2e 0a 0a 57 68 65 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 66 69 6c 74 65 72	nction...When.the.process.filter
51a0	20 73 65 65 73 20 61 20 63 6f 6d 6d 61 6e 64 20 77 68 6f 73 65 20 63 68 61 72 61 63 74 65 72 20	.sees.a.command.whose.character.
51c0	6d 61 74 63 68 65 73 20 61 0a 70 61 72 74 69 63 75 6c 61 72 20 65 6e 74 72 79 2c 20 69 74 20 63	matches.a.particular.entry,.it.c
51e0	61 6c 6c 73 20 74 68 65 20 68 61 6e 64 6c 65 72 20 77 69 74 68 20 74 77 6f 20 61 72 67 75 6d 65	alls.the.handler.with.two.argume
5200	6e 74 73 3a 20 74 68 65 20 61 63 74 69 6f 6e 0a 61 6e 64 20 74 68 65 20 73 74 72 69 6e 67 20 63	nts:.the.action.and.the.string.c
5220	6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 72 65 73 74 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73	ontaining.the.rest.of.the.proces
5240	73 20 66 69 6c 74 65 72 27 73 20 69 6e 70 75 74 0a 73 74 72 65 61 6d 2e 20 20 49 74 20 69 73 20	s.filter's.input.stream...It.is.
5260	74 68 65 20 72 65 73 70 6f 6e 73 69 62 69 6c 69 74 79 20 6f 66 20 74 68 65 20 68 61 6e 64 6c 65	the.responsibility.of.the.handle
5280	72 20 74 6f 20 69 6e 76 6f 6b 65 20 74 68 65 20 61 63 74 69 6f 6e 0a 77 69 74 68 20 74 68 65 20	r.to.invoke.the.action.with.the.
52a0	61 70 70 72 6f 70 72 69 61 74 65 20 61 72 67 75 6d 65 6e 74 73 2c 20 61 6e 64 20 74 6f 20 72 65	appropriate.arguments,.and.to.re
52c0	65 6e 74 65 72 20 74 68 65 20 70 72 6f 63 65 73 73 20 66 69 6c 74 65 72 20 77 69 74 68 0a 74 68	enter.the.process.filter.with.th
52e0	65 20 72 65 6d 61 69 6e 69 6e 67 20 69 6e 70 75 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 78 73 63	e.remaining.input.")..(defun.xsc
5300	68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 69 6d 70 6c 65 2d 61 63 74 69 6f	heme-process-filter:simple-actio
5320	6e 20 28 61 63 74 69 6f 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 89 10 88 c3 09 21 87 22	n.(action).(byte-code."......!."
5340	20 5b 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 73 74 61 74 65 20 61	.[xscheme-process-filter-state.a
5360	63 74 69 6f 6e 20 69 64 6c 65 20 66 75 6e 63 61 6c 6c 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20	ction.idle.funcall].2))..(defun.
5380	78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 3a 73 74 72 69 6e 67 2d 61 63	xscheme-process-filter:string-ac
53a0	74 69 6f 6e 20 28 61 63 74 69 6f 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 88 c4 89	tion.(action).(byte-code."......
53c0	12 88 c5 89 13 87 22 20 5b 78 73 63 68 65 6d 65 2d 73 74 72 69 6e 67 2d 72 65 63 65 69 76 65 72	......".[xscheme-string-receiver
53e0	20 61 63 74 69 6f 6e 20 78 73 63 68 65 6d 65 2d 73 74 72 69 6e 67 2d 61 63 63 75 6d 75 6c 61 74	.action.xscheme-string-accumulat
5400	6f 72 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 73 74 61 74 65 20	or.xscheme-process-filter-state.
5420	22 22 20 72 65 61 64 69 6e 67 2d 73 74 72 69 6e 67 5d 20 32 29 29 0a 0a 28 64 65 66 63 6f 6e 73	"".reading-string].2))..(defcons
5440	74 20 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 3a 72 75 6e 6e 69 6e 67 20 22 72 75 6e 22	t.xscheme-runlight:running."run"
5460	20 22 5c 0a 54 68 65 20 63 68 61 72 61 63 74 65 72 20 64 69 73 70 6c 61 79 65 64 20 77 68 65 6e	."\.The.character.displayed.when
5480	20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 75 6e 6e 69 6e 67 2e 22	.the.Scheme.process.is.running."
54a0	29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 3a 69 6e	)..(defconst.xscheme-runlight:in
54c0	70 75 74 20 22 69 6e 70 75 74 22 20 22 5c 0a 54 68 65 20 63 68 61 72 61 63 74 65 72 20 64 69 73	put."input"."\.The.character.dis
54e0	70 6c 61 79 65 64 20 77 68 65 6e 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69	played.when.the.Scheme.process.i
5500	73 20 77 61 69 74 69 6e 67 20 66 6f 72 20 69 6e 70 75 74 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73	s.waiting.for.input.")..(defcons
5520	74 20 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 3a 67 63 20 22 67 63 22 20 22 5c 0a 54 68	t.xscheme-runlight:gc."gc"."\.Th
5540	65 20 63 68 61 72 61 63 74 65 72 20 64 69 73 70 6c 61 79 65 64 20 77 68 65 6e 20 74 68 65 20 53	e.character.displayed.when.the.S
5560	63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 20 67 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74	cheme.process.is.garbage.collect
5580	69 6e 67 2e 22 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 67 63 20	ing.")..(defun.xscheme-start-gc.
55a0	6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 78 73 63 68 65 6d 65 2d 72	nil.(byte-code."..!.".[xscheme-r
55c0	75 6e 6c 69 67 68 74 3a 67 63 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 72 75 6e 6c 69 67 68 74 5d	unlight:gc.xscheme-set-runlight]
55e0	20 32 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 66 69 6e 69 73 68 2d 67 63 20 6e	.2))..(defun.xscheme-finish-gc.n
5600	69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 83 09 00 09 82 0a 00 0a 21 87 22 20 5b 78 73	il.(byte-code."..........!.".[xs
5620	63 68 65 6d 65 2d 72 75 6e 6e 69 6e 67 2d 70 20 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74	cheme-running-p.xscheme-runlight
5640	3a 72 75 6e 6e 69 6e 67 20 78 73 63 68 65 6d 65 2d 72 75 6e 6c 69 67 68 74 3a 69 6e 70 75 74 20	:running.xscheme-runlight:input.
5660	78 73 63 68 65 6d 65 2d 73 65 74 2d 72 75 6e 6c 69 67 68 74 5d 20 32 29 29 0a 0a 28 64 65 66 75	xscheme-set-runlight].2))..(defu
5680	6e 20 78 73 63 68 65 6d 65 2d 65 6e 74 65 72 2d 69 6e 70 75 74 2d 77 61 69 74 20 6e 69 6c 20 28	n.xscheme-enter-input-wait.nil.(
56a0	62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 c2 89 11 87 22 20 5b 78 73 63 68 65 6d 65 2d 72 75	byte-code."..!.....".[xscheme-ru
56c0	6e 6c 69 67 68 74 3a 69 6e 70 75 74 20 78 73 63 68 65 6d 65 2d 72 75 6e 6e 69 6e 67 2d 70 20 6e	nlight:input.xscheme-running-p.n
56e0	69 6c 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 72 75 6e 6c 69 67 68 74 5d 20 33 29 29 0a 0a 28 64	il.xscheme-set-runlight].3))..(d
5700	65 66 75 6e 20 78 73 63 68 65 6d 65 2d 65 78 69 74 2d 69 6e 70 75 74 2d 77 61 69 74 20 6e 69 6c	efun.xscheme-exit-input-wait.nil
5720	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 c2 89 11 87 22 20 5b 78 73 63 68 65 6d 65 2d	.(byte-code."..!.....".[xscheme-
5740	72 75 6e 6c 69 67 68 74 3a 72 75 6e 6e 69 6e 67 20 78 73 63 68 65 6d 65 2d 72 75 6e 6e 69 6e 67	runlight:running.xscheme-running
5760	2d 70 20 74 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 72 75 6e 6c 69 67 68 74 5d 20 33 29 29 0a 0a	-p.t.xscheme-set-runlight].3))..
5780	28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 65 6e 61 62 6c 65 2d 63 6f 6e 74 72 6f 6c 2d 67 20	(defun.xscheme-enable-control-g.
57a0	6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 89 10 87 22 20 5b 78 73 63 68 65 6d 65 2d 63	nil.(byte-code."....".[xscheme-c
57c0	6f 6e 74 72 6f 6c 2d 67 2d 64 69 73 61 62 6c 65 64 2d 70 20 6e 69 6c 5d 20 32 29 29 0a 0a 28 64	ontrol-g-disabled-p.nil].2))..(d
57e0	65 66 75 6e 20 78 73 63 68 65 6d 65 2d 64 69 73 70 6c 61 79 2d 70 72 6f 63 65 73 73 2d 62 75 66	efun.xscheme-display-process-buf
5800	66 65 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 20 86 09 00 c2 c3 20 21 18 c4 8b	fer.nil.(byte-code."........!...
5820	29 87 22 20 5b 77 69 6e 64 6f 77 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66	).".[window.xscheme-process-buff
5840	65 72 2d 77 69 6e 64 6f 77 20 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 78 73 63 68 65 6d 65	er-window.display-buffer.xscheme
5860	2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 28 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21	-process-buffer.((byte-code."..!
5880	88 c2 20 88 c3 20 85 0e 00 c4 20 87 22 20 5b 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 2d 77 69 6e	............".[window.select-win
58a0	64 6f 77 20 78 73 63 68 65 6d 65 2d 67 6f 74 6f 2d 6f 75 74 70 75 74 2d 70 6f 69 6e 74 20 78 73	dow.xscheme-goto-output-point.xs
58c0	63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 2d 70 20 78 73 63 68 65 6d 65 2d 65 6e	cheme-debugger-mode-p.xscheme-en
58e0	74 65 72 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 5d 20 35 29 29 5d 20 34 29 29 0a 0a	ter-interaction-mode].5))].4))..
5900	28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 75 6e 73 6f 6c 69 63 69 74 65 64 2d 72 65 61 64 2d	(defun.xscheme-unsolicited-read-
5920	63 68 61 72 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 87 22 20 5b 6e 69 6c 5d 20 31	char.nil.(byte-code."..".[nil].1
5940	29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 6d 65 73 73 61 67 65 20 28 73 74 72 69	))..(defun.xscheme-message.(stri
5960	6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 47 21 3f 85 0f 00 c2 08 c3 c4 08 5c 22 5c	ng).(byte-code."..G!?........\"\
5980	22 87 22 20 5b 73 74 72 69 6e 67 20 7a 65 72 6f 70 20 78 73 63 68 65 6d 65 2d 77 72 69 74 65 2d	".".[string.zerop.xscheme-write-
59a0	6d 65 73 73 61 67 65 2d 31 20 66 6f 72 6d 61 74 20 22 3b 25 73 22 5d 20 36 29 29 0a 0a 28 64 65	message-1.format.";%s"].6))..(de
59c0	66 75 6e 20 78 73 63 68 65 6d 65 2d 77 72 69 74 65 2d 76 61 6c 75 65 20 28 73 74 72 69 6e 67 29	fun.xscheme-write-value.(string)
59e0	20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 47 21 83 0e 00 c2 c3 c4 5c 22 82 15 00 c2 08 c5 c6	.(byte-code."..G!......\".......
5a00	08 5c 22 5c 22 87 22 20 5b 73 74 72 69 6e 67 20 7a 65 72 6f 70 20 78 73 63 68 65 6d 65 2d 77 72	.\"\".".[string.zerop.xscheme-wr
5a20	69 74 65 2d 6d 65 73 73 61 67 65 2d 31 20 22 28 6e 6f 20 76 61 6c 75 65 29 22 20 22 3b 4e 6f 20	ite-message-1."(no.value)".";No.
5a40	76 61 6c 75 65 22 20 66 6f 72 6d 61 74 20 22 3b 56 61 6c 75 65 3a 20 25 73 22 5d 20 37 29 29 0a	value".format.";Value:.%s"].7)).
5a60	0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 77 72 69 74 65 2d 6d 65 73 73 61 67 65 2d 31 20	.(defun.xscheme-write-message-1.
5a80	28 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 6f 75 74 70 75 74 2d 73 74 72 69 6e 67 29 20 28	(message-string.output-string).(
5aa0	62 79 74 65 2d 63 6f 64 65 20 22 c4 c5 21 18 c6 c7 08 21 21 19 09 3f 86 16 00 c8 c9 08 21 09 5c	byte-code."..!....!!..?......!.\
5ac0	22 3f 85 1d 00 ca cb 0a 5c 22 2a 88 cc cd 21 88 ce 0b 21 87 22 20 5b 70 72 6f 63 65 73 73 20 77	"?......\"*...!...!.".[process.w
5ae0	69 6e 64 6f 77 20 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 6f 75 74 70 75 74 2d 73 74 72 69	indow.message-string.output-stri
5b00	6e 67 20 67 65 74 2d 70 72 6f 63 65 73 73 20 22 73 63 68 65 6d 65 22 20 67 65 74 2d 62 75 66 66	ng.get-process."scheme".get-buff
5b20	65 72 2d 77 69 6e 64 6f 77 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 6f 73 2d 76 69 73	er-window.process-buffer.pos-vis
5b40	69 62 6c 65 2d 69 6e 2d 77 69 6e 64 6f 77 2d 70 20 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 6d 65	ible-in-window-p.process-mark.me
5b60	73 73 61 67 65 20 22 25 73 22 20 78 73 63 68 65 6d 65 2d 67 75 61 72 61 6e 74 65 65 2d 6e 65 77	ssage."%s".xscheme-guarantee-new
5b80	6c 69 6e 65 73 20 31 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 2d 6f	lines.1.xscheme-process-filter-o
5ba0	75 74 70 75 74 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 70	utput].9))..(defun.xscheme-set-p
5bc0	72 6f 6d 70 74 2d 76 61 72 69 61 62 6c 65 20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f	rompt-variable.(string).(byte-co
5be0	64 65 20 22 09 89 10 87 22 20 5b 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 20 73 74 72 69 6e 67	de."....".[xscheme-prompt.string
5c00	5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 73 65 74 2d 70 72 6f 6d 70 74	].2))..(defun.xscheme-set-prompt
5c20	20 28 73 74 72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 89 10 88 c3 c4 21 88 c5 09	.(string).(byte-code."......!...
5c40	21 89 12 88 c6 20 87 22 20 5b 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 20 73 74 72 69 6e 67 20	!......".[xscheme-prompt.string.
5c60	78 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 73 74 72 69 6e 67 20 78 73 63 68 65 6d 65 2d 67 75 61 72	xscheme-mode-string.xscheme-guar
5c80	61 6e 74 65 65 2d 6e 65 77 6c 69 6e 65 73 20 32 20 78 73 63 68 65 6d 65 2d 63 6f 65 72 63 65 2d	antee-newlines.2.xscheme-coerce-
5ca0	70 72 6f 6d 70 74 20 78 73 63 68 65 6d 65 2d 6d 6f 64 65 6c 69 6e 65 2d 72 65 64 69 73 70 6c 61	prompt.xscheme-modeline-redispla
5cc0	79 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 6f 75 74 70 75 74 2d 67 6f	y].4))..(defun.xscheme-output-go
5ce0	74 6f 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 88 c1 c2 21 87 22 20 5b 78 73 63	to.nil.(byte-code.".....!.".[xsc
5d00	68 65 6d 65 2d 67 6f 74 6f 2d 6f 75 74 70 75 74 2d 70 6f 69 6e 74 20 78 73 63 68 65 6d 65 2d 67	heme-goto-output-point.xscheme-g
5d20	75 61 72 61 6e 74 65 65 2d 6e 65 77 6c 69 6e 65 73 20 32 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e	uarantee-newlines.2].3))..(defun
5d40	20 78 73 63 68 65 6d 65 2d 63 6f 65 72 63 65 2d 70 72 6f 6d 70 74 20 28 73 74 72 69 6e 67 29 20	.xscheme-coerce-prompt.(string).
5d60	28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 08 5c 22 83 2a 00 c7 c8 21 19 08 c8 09 4f 08 09 c9 4f	(byte-code."...\".*...!....O...O
5d80	1a ca 0a 0c 5c 22 1b 0b 83 5c 22 00 0b 41 82 23 00 0a 29 29 50 29 82 2b 00 08 87 22 20 5b 73 74	....\"...\"..A.#..))P).+...".[st
5da0	72 69 6e 67 20 65 6e 64 20 70 72 6f 6d 70 74 20 65 6e 74 72 79 20 78 73 63 68 65 6d 65 2d 70 72	ring.end.prompt.entry.xscheme-pr
5dc0	6f 6d 70 74 2d 61 6c 69 73 74 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5b 30 2d 39 5d 2b	ompt-alist.string-match."^[0-9]+
5de0	20 22 20 6d 61 74 63 68 2d 65 6e 64 20 30 20 6e 69 6c 20 61 73 73 6f 63 5d 20 36 29 29 0a 0a 28	.".match-end.0.nil.assoc].6))..(
5e00	64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 61 6c 69 73 74 20 28 71 75 6f	defvar.xscheme-prompt-alist.(quo
5e20	74 65 20 28 28 22 5b 4e 6f 72 6d 61 6c 20 52 45 50 4c 5d 22 20 2e 20 22 5b 45 76 61 6c 75 61 74	te.(("[Normal.REPL]"..."[Evaluat
5e40	6f 72 5d 22 29 20 28 22 5b 45 72 72 6f 72 20 52 45 50 4c 5d 22 20 2e 20 22 5b 45 76 61 6c 75 61	or]").("[Error.REPL]"..."[Evalua
5e60	74 6f 72 5d 22 29 20 28 22 5b 42 72 65 61 6b 70 6f 69 6e 74 20 52 45 50 4c 5d 22 20 2e 20 22 5b	tor]").("[Breakpoint.REPL]"..."[
5e80	45 76 61 6c 75 61 74 6f 72 5d 22 29 20 28 22 5b 44 65 62 75 67 67 65 72 20 52 45 50 4c 5d 22 20	Evaluator]").("[Debugger.REPL]".
5ea0	2e 20 22 5b 45 76 61 6c 75 61 74 6f 72 5d 22 29 20 28 22 5b 56 69 73 69 74 69 6e 67 20 65 6e 76	.."[Evaluator]").("[Visiting.env
5ec0	69 72 6f 6e 6d 65 6e 74 5d 22 20 2e 20 22 5b 45 76 61 6c 75 61 74 6f 72 5d 22 29 20 28 22 5b 45	ironment]"..."[Evaluator]").("[E
5ee0	6e 76 69 72 6f 6e 6d 65 6e 74 20 49 6e 73 70 65 63 74 6f 72 5d 22 20 2e 20 22 5b 57 68 65 72 65	nvironment.Inspector]"..."[Where
5f00	5d 22 29 29 29 20 22 5c 0a 41 6e 20 61 6c 69 73 74 20 77 68 69 63 68 20 6d 61 70 73 20 74 68 65	]")))."\.An.alist.which.maps.the
5f20	20 53 63 68 65 6d 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 79 70 65	.Scheme.command.interpreter.type
5f40	20 74 6f 20 61 20 70 72 69 6e 74 20 73 74 72 69 6e 67 2e 22 29 0a 0a 28 64 65 66 75 6e 20 78 73	.to.a.print.string.")..(defun.xs
5f60	63 68 65 6d 65 2d 63 64 20 28 64 69 72 65 63 74 6f 72 79 2d 73 74 72 69 6e 67 29 20 28 62 79 74	cheme-cd.(directory-string).(byt
5f80	65 2d 63 6f 64 65 20 22 8a c1 20 71 88 c2 08 21 29 87 22 20 5b 64 69 72 65 63 74 6f 72 79 2d 73	e-code."...q...!).".[directory-s
5fa0	74 72 69 6e 67 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 63 64 5d	tring.xscheme-process-buffer.cd]
5fc0	20 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d	.3))..(defun.xscheme-prompt-for-
5fe0	63 6f 6e 66 69 72 6d 61 74 69 6f 6e 20 28 70 72 6f 6d 70 74 2d 73 74 72 69 6e 67 29 20 28 62 79	confirmation.(prompt-string).(by
6000	74 65 2d 63 6f 64 65 20 22 c1 c2 08 21 83 0b 00 c3 82 0c 00 c4 21 87 22 20 5b 70 72 6f 6d 70 74	te-code."...!........!.".[prompt
6020	2d 73 74 72 69 6e 67 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 68 61 72 20 79 2d 6f 72 2d 6e	-string.xscheme-send-char.y-or-n
6040	2d 70 20 31 32 31 20 31 31 30 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d	-p.121.110].3))..(defun.xscheme-
6060	70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78 70 72 65 73 73 69 6f 6e 20 28 70 72 6f 6d 70 74 2d 73 74	prompt-for-expression.(prompt-st
6080	72 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 c4 08 c1 0a 23 21 87 22 20 5b 70 72 6f	ring).(byte-code.".....#!.".[pro
60a0	6d 70 74 2d 73 74 72 69 6e 67 20 6e 69 6c 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f	mpt-string.nil.xscheme-prompt-fo
60c0	72 2d 65 78 70 72 65 73 73 69 6f 6e 2d 6d 61 70 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 73 74	r-expression-map.xscheme-send-st
60e0	72 69 6e 67 2d 32 20 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 5d 20 35 29 29	ring-2.read-from-minibuffer].5))
6100	0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78 70	..(defvar.xscheme-prompt-for-exp
6120	72 65 73 73 69 6f 6e 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 28 6e 6f 74 20 78 73 63 68 65	ression-map.nil)..(if.(not.xsche
6140	6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78 70 72 65 73 73 69 6f 6e 2d 6d 61 70 29 20 28 70	me-prompt-for-expression-map).(p
6160	72 6f 67 6e 20 28 73 65 74 71 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78	rogn.(setq.xscheme-prompt-for-ex
6180	70 72 65 73 73 69 6f 6e 2d 6d 61 70 20 28 63 6f 70 79 2d 6b 65 79 6d 61 70 20 6d 69 6e 69 62 75	pression-map.(copy-keymap.minibu
61a0	66 66 65 72 2d 6c 6f 63 61 6c 2d 6d 61 70 29 29 20 28 73 75 62 73 74 69 74 75 74 65 2d 6b 65 79	ffer-local-map)).(substitute-key
61c0	2d 64 65 66 69 6e 69 74 69 6f 6e 20 28 71 75 6f 74 65 20 65 78 69 74 2d 6d 69 6e 69 62 75 66 66	-definition.(quote.exit-minibuff
61e0	65 72 29 20 28 71 75 6f 74 65 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78	er).(quote.xscheme-prompt-for-ex
6200	70 72 65 73 73 69 6f 6e 2d 65 78 69 74 29 20 78 73 63 68 65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f	pression-exit).xscheme-prompt-fo
6220	72 2d 65 78 70 72 65 73 73 69 6f 6e 2d 6d 61 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68	r-expression-map)))..(defun.xsch
6240	65 6d 65 2d 70 72 6f 6d 70 74 2d 66 6f 72 2d 65 78 70 72 65 73 73 69 6f 6e 2d 65 78 69 74 20 6e	eme-prompt-for-expression-exit.n
6260	69 6c 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1	il.(interactive).(byte-code."...
6280	65 64 5c 22 c2 3d 83 10 00 c3 20 82 13 00 c4 c5 21 87 22 20 5b 6e 69 6c 20 78 73 63 68 65 6d 65	ed\".=..........!.".[nil.xscheme
62a0	2d 72 65 67 69 6f 6e 2d 65 78 70 72 65 73 73 69 6f 6e 2d 70 20 6f 6e 65 20 65 78 69 74 2d 6d 69	-region-expression-p.one.exit-mi
62c0	6e 69 62 75 66 66 65 72 20 65 72 72 6f 72 20 22 69 6e 70 75 74 20 6d 75 73 74 20 62 65 20 61 20	nibuffer.error."input.must.be.a.
62e0	73 69 6e 67 6c 65 2c 20 63 6f 6d 70 6c 65 74 65 20 65 78 70 72 65 73 73 69 6f 6e 22 5d 20 34 29	single,.complete.expression"].4)
6300	29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 72 65 67 69 6f 6e 2d 65 78 70 72 65 73 73	)..(defun.xscheme-region-express
6320	69 6f 6e 2d 70 20 28 73 74 61 72 74 20 65 6e 64 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c5	ion-p.(start.end).(byte-code."..
6340	20 18 c6 8e c7 09 21 88 c8 0b 0c 5c 22 1a c9 0a 40 21 85 2f 00 ca 0a 38 85 2f 00 c8 0b ca 0a 38	......!....\"...@!./...8./.....8
6360	5c 22 1a ca 0a 38 83 2d 00 cb 82 2e 00 cc 29 29 29 29 29 87 22 20 5b 6f 6c 64 2d 73 79 6e 74 61	\"...8.-......))))).".[old-synta
6380	78 2d 74 61 62 6c 65 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	x-table.scheme-mode-syntax-table
63a0	20 73 74 61 74 65 20 73 74 61 72 74 20 65 6e 64 20 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 28 28	.state.start.end.syntax-table.((
63c0	62 79 74 65 2d 63 6f 64 65 20 22 c1 08 21 87 22 20 5b 6f 6c 64 2d 73 79 6e 74 61 78 2d 74 61 62	byte-code."..!.".[old-syntax-tab
63e0	6c 65 20 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5d 20 32 29 29 20 73 65 74 2d 73 79 6e	le.set-syntax-table].2)).set-syn
6400	74 61 78 2d 74 61 62 6c 65 20 70 61 72 73 65 2d 70 61 72 74 69 61 6c 2d 73 65 78 70 20 7a 65 72	tax-table.parse-partial-sexp.zer
6420	6f 70 20 32 20 6d 61 6e 79 20 6f 6e 65 5d 20 38 29 29 0a	op.2.many.one].8)).