blob: 25b17deff5ffc4fcf7586e5a5e92d6bb1d7e50a7 (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 35 2e 33 2e 31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f	cs.version.25.3.1.;;;.with.all.o
0040	70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65	ptimizations...;;;.This.file.use
0060	73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65	s.dynamic.docstrings,.first.adde
0080	64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65	d.in.Emacs.19.29...;;;.This.file
00a0	20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49	.does.not.contain.utf-8.non-ASCI
00c0	49 20 63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20	I.characters,.;;;.and.so.can.be.
00e0	6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72	loaded.in.Emacs.versions.earlier
0100	20 74 68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.than.23...;;;;;;;;;;;;;;;;;;;;;
0120	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;
0160	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20	;;;;;;;;;;;;;;;;;;...(byte-code.
01a0	22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 23 5c	"\300\301!\210\300\302\303\304#\
01c0	32 31 30 5c 33 30 35 5c 33 30 36 5c 33 30 37 5c 33 31 30 5c 33 31 31 44 44 5c 33 31 32 5c 33 31	210\305\306\307\310\311DD\312\31
01e0	33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37 5c 33 32 30 5c 33 32 31 5c 33 32 32 26 0b 5c	3\314\315\316\317\320\321\322&.\
0200	32 30 37 22 20 5b 72 65 71 75 69 72 65 20 6f 62 20 67 65 69 73 65 72 20 6e 69 6c 20 74 20 63 75	207".[require.ob.geiser.nil.t.cu
0220	73 74 6f 6d 2d 64 65 63 6c 61 72 65 2d 76 61 72 69 61 62 6c 65 20 6f 72 67 2d 62 61 62 65 6c 2d	stom-declare-variable.org-babel-
0240	73 63 68 65 6d 65 2d 6e 75 6c 6c 2d 74 6f 20 66 75 6e 63 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 20	scheme-null-to.funcall.function.
0260	23 5b 30 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 68 6c 69 6e 65 5d 20 31 5d 20 22 52 65 70 6c 61	#[0."\300\207".[hline].1]."Repla
0280	63 65 20 60 6e 75 6c 6c 27 20 61 6e 64 20 65 6d 70 74 79 20 6c 69 73 74 73 20 69 6e 20 73 63 68	ce.`null'.and.empty.lists.in.sch
02a0	65 6d 65 20 74 61 62 6c 65 73 20 77 69 74 68 20 74 68 69 73 20 62 65 66 6f 72 65 20 72 65 74 75	eme.tables.with.this.before.retu
02c0	72 6e 69 6e 67 2e 22 20 3a 67 72 6f 75 70 20 6f 72 67 2d 62 61 62 65 6c 20 3a 76 65 72 73 69 6f	rning.".:group.org-babel.:versio
02e0	6e 20 22 32 36 2e 31 22 20 3a 70 61 63 6b 61 67 65 2d 76 65 72 73 69 6f 6e 20 28 4f 72 67 20 2e	n."26.1".:package-version.(Org..
0300	20 22 39 2e 31 22 29 20 3a 74 79 70 65 20 73 79 6d 62 6f 6c 5d 20 31 32 29 0a 23 40 35 30 20 44	."9.1").:type.symbol].12).#@50.D
0320	65 66 61 75 6c 74 20 68 65 61 64 65 72 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 73 63 68 65	efault.header.arguments.for.sche
0340	6d 65 20 63 6f 64 65 20 62 6c 6f 63 6b 73 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62	me.code.blocks...(defvar.org-bab
0360	65 6c 2d 64 65 66 61 75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 73 63 68 65 6d 65 20 6e 69	el-default-header-args:scheme.ni
0380	6c 20 28 23 24 20 2e 20 37 39 39 29 29 0a 23 40 37 38 20 45 78 70 61 6e 64 20 42 4f 44 59 20 61	l.(#$...799)).#@78.Expand.BODY.a
03a0	63 63 6f 72 64 69 6e 67 20 74 6f 20 50 41 52 41 4d 53 2c 20 72 65 74 75 72 6e 20 74 68 65 20 65	ccording.to.PARAMS,.return.the.e
03c0	78 70 61 6e 64 65 64 20 62 6f 64 79 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f	xpanded.body...(fn.BODY.PARAMS).
03e0	0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64	.(defalias.'org-babel-expand-bod
0400	79 3a 73 63 68 65 6d 65 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 33 30 31 02 5c 32 33 36 41	y:scheme.#[514."\300.!\301.\236A
0420	5c 32 31 31 5c 32 30 35 0e 00 5c 32 31 31 5c 33 30 32 50 02 5c 32 30 34 16 00 04 5c 32 30 32 21	\211\205..\211\302P.\204...\202!
0440	00 5c 33 30 33 5c 33 30 34 5c 33 30 35 5c 33 30 36 06 06 5c 33 30 37 23 06 07 23 50 5c 32 30 37	.\303\304\305\306..\307#..#P\207
0460	22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 2d 67 65 74 2d 76 61 72 73 20 3a 70 72 6f 6c 6f 67 75 65	".[org-babel--get-vars.:prologue
0480	20 22 5c 6e 22 20 66 6f 72 6d 61 74 20 22 28 6c 65 74 20 28 25 73 29 5c 6e 25 73 5c 6e 29 22 20	."\n".format."(let.(%s)\n%s\n)".
04a0	6d 61 70 63 6f 6e 63 61 74 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 03 40 5c	mapconcat.#[257."\300\301\302.@\
04c0	33 30 33 05 41 44 44 21 5c 22 5c 32 30 37 22 20 5b 66 6f 72 6d 61 74 20 22 25 53 22 20 70 72 69	303.ADD!\"\207".[format."%S".pri
04e0	6e 74 20 71 75 6f 74 65 5d 20 37 20 22 5c 6e 5c 6e 28 66 6e 20 56 41 52 29 22 5d 20 22 5c 6e 20	nt.quote].7."\n\n(fn.VAR)"]."\n.
0500	20 20 20 20 20 22 5d 20 31 31 20 28 23 24 20 2e 20 39 31 35 29 5d 29 0a 23 40 34 32 20 4d 61 70	....."].11.(#$...915)]).#@42.Map
0520	20 6f 66 20 73 63 68 65 6d 65 20 73 65 73 73 69 6f 6e 73 20 74 6f 20 73 65 73 73 69 6f 6e 20 6e	.of.scheme.sessions.to.session.n
0540	61 6d 65 73 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d	ames...(defvar.org-babel-scheme-
0560	72 65 70 6c 2d 6d 61 70 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20	repl-map.(make-hash-table.:test.
0580	27 65 71 75 61 6c 29 20 28 23 24 20 2e 20 31 33 30 39 29 29 0a 23 40 34 30 20 52 65 6d 6f 76 65	'equal).(#$...1309)).#@40.Remove
05a0	20 64 65 61 64 20 62 75 66 66 65 72 73 20 66 72 6f 6d 20 74 68 65 20 52 45 50 4c 20 6d 61 70 2e	.dead.buffers.from.the.REPL.map.
05c0	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 63 6c	..(defalias.'org-babel-scheme-cl
05e0	65 61 6e 73 65 2d 72 65 70 6c 2d 6d 61 70 20 23 5b 30 20 22 5c 33 30 31 5c 33 30 32 08 5c 22 5c	eanse-repl-map.#[0."\301\302.\"\
0600	32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 72 65 70 6c 2d 6d 61 70 20	207".[org-babel-scheme-repl-map.
0620	6d 61 70 68 61 73 68 20 23 5b 35 31 34 20 22 5c 33 30 31 01 21 3f 5c 32 30 35 0b 00 5c 33 30 32	maphash.#[514."\301.!?\205..\302
0640	02 08 5c 22 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 72 65 70 6c	..\"\207".[org-babel-scheme-repl
0660	2d 6d 61 70 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 72 65 6d 68 61 73 68 5d 20 35 20 22 5c 6e 5c	-map.buffer-name.remhash].5."\n\
0680	6e 28 66 6e 20 58 20 59 29 22 5d 5d 20 33 20 28 23 24 20 2e 20 31 34 33 34 29 5d 29 0a 23 40 39	n(fn.X.Y)"]].3.(#$...1434)]).#@9
06a0	33 20 4c 6f 6f 6b 20 75 70 20 74 68 65 20 73 63 68 65 6d 65 20 62 75 66 66 65 72 20 66 6f 72 20	3.Look.up.the.scheme.buffer.for.
06c0	61 20 73 65 73 73 69 6f 6e 3b 20 72 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 69 74 20 64 6f 65 73	a.session;.return.nil.if.it.does
06e0	6e 27 74 20 65 78 69 73 74 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 2d 4e 41 4d 45 29 1f 0a 28	n't.exist...(fn.SESSION-NAME)..(
0700	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 67 65 74 2d 73	defalias.'org-babel-scheme-get-s
0720	65 73 73 69 6f 6e 2d 62 75 66 66 65 72 20 23 5b 32 35 37 20 22 5c 33 30 31 20 5c 32 31 30 5c 33	ession-buffer.#[257."\301.\210\3
0740	30 32 01 08 5c 22 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 72 65	02..\"\207".[org-babel-scheme-re
0760	70 6c 2d 6d 61 70 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 63 6c 65 61 6e 73 65 2d	pl-map.org-babel-scheme-cleanse-
0780	72 65 70 6c 2d 6d 61 70 20 67 65 74 68 61 73 68 5d 20 34 20 28 23 24 20 2e 20 31 36 39 38 29 5d	repl-map.gethash].4.(#$...1698)]
07a0	29 0a 23 40 37 38 20 52 65 63 6f 72 64 20 74 68 65 20 73 63 68 65 6d 65 20 62 75 66 66 65 72 20	).#@78.Record.the.scheme.buffer.
07c0	75 73 65 64 20 66 6f 72 20 61 20 67 69 76 65 6e 20 73 65 73 73 69 6f 6e 2e 0a 0a 28 66 6e 20 53	used.for.a.given.session...(fn.S
07e0	45 53 53 49 4f 4e 2d 4e 41 4d 45 20 42 55 46 46 45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	ESSION-NAME.BUFFER)..(defalias.'
0800	6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 73 65 74 2d 73 65 73 73 69 6f 6e 2d 62 75 66	org-babel-scheme-set-session-buf
0820	66 65 72 20 23 5b 35 31 34 20 22 5c 33 30 31 02 02 08 23 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61	fer.#[514."\301...#\207".[org-ba
0840	62 65 6c 2d 73 63 68 65 6d 65 2d 72 65 70 6c 2d 6d 61 70 20 70 75 74 68 61 73 68 5d 20 36 20 28	bel-scheme-repl-map.puthash].6.(
0860	23 24 20 2e 20 31 39 35 39 29 5d 29 0a 23 40 38 33 20 52 65 74 75 72 6e 73 20 74 68 65 20 73 63	#$...1959)]).#@83.Returns.the.sc
0880	68 65 6d 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 69 73 65 72 20 61 73 73 6f 63	heme.implementation.geiser.assoc
08a0	69 61 74 65 73 20 77 69 74 68 20 74 68 65 20 62 75 66 66 65 72 2e 0a 0a 28 66 6e 20 42 55 46 46	iates.with.the.buffer...(fn.BUFF
08c0	45 52 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65	ER)..(defalias.'org-babel-scheme
08e0	2d 67 65 74 2d 62 75 66 66 65 72 2d 69 6d 70 6c 20 23 5b 32 35 37 20 22 72 5c 32 31 31 71 71 5c	-get-buffer-impl.#[257."r\211qq\
0900	32 31 30 08 29 5c 32 30 37 22 20 5b 67 65 69 73 65 72 2d 69 6d 70 6c 2d 2d 69 6d 70 6c 65 6d 65	210.)\207".[geiser-impl--impleme
0920	6e 74 61 74 69 6f 6e 5d 20 32 20 28 23 24 20 2e 20 32 31 36 32 29 5d 29 0a 23 40 37 35 20 53 77	ntation].2.(#$...2162)]).#@75.Sw
0940	69 74 63 68 20 74 6f 20 61 20 73 63 68 65 6d 65 20 52 45 50 4c 2c 20 63 72 65 61 74 69 6e 67 20	itch.to.a.scheme.REPL,.creating.
0960	69 74 20 69 66 20 69 74 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 3a 0a 0a 28 66 6e 20 49 4d 50	it.if.it.doesn't.exist:..(fn.IMP
0980	4c 20 4e 41 4d 45 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 73 63	L.NAME)..(defalias.'org-babel-sc
09a0	68 65 6d 65 2d 67 65 74 2d 72 65 70 6c 20 23 5b 35 31 34 20 22 5c 33 30 30 01 21 5c 32 31 31 5c	heme-get-repl.#[514."\300.!\211\
09c0	32 30 36 1a 00 5c 33 30 31 03 21 5c 32 31 30 01 5c 32 30 33 19 00 5c 33 30 32 02 5c 33 30 33 5c	206..\301.!\210.\203..\302.\303\
09e0	22 5c 32 31 30 5c 33 30 34 02 70 5c 22 5c 32 31 30 70 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62	"\210\304.p\"\210p\207".[org-bab
0a00	65 6c 2d 73 63 68 65 6d 65 2d 67 65 74 2d 73 65 73 73 69 6f 6e 2d 62 75 66 66 65 72 20 72 75 6e	el-scheme-get-session-buffer.run
0a20	2d 67 65 69 73 65 72 20 72 65 6e 61 6d 65 2d 62 75 66 66 65 72 20 74 20 6f 72 67 2d 62 61 62 65	-geiser.rename-buffer.t.org-babe
0a40	6c 2d 73 63 68 65 6d 65 2d 73 65 74 2d 73 65 73 73 69 6f 6e 2d 62 75 66 66 65 72 5d 20 36 20 28	l-scheme-set-session-buffer].6.(
0a60	23 24 20 2e 20 32 33 36 36 29 5d 29 0a 23 40 33 30 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e 61	#$...2366)]).#@307.Generate.a.na
0a80	6d 65 20 66 6f 72 20 74 68 65 20 73 65 73 73 69 6f 6e 20 62 75 66 66 65 72 2e 0a 0a 46 6f 72 20	me.for.the.session.buffer...For.
0aa0	61 20 6e 61 6d 65 64 20 73 65 73 73 69 6f 6e 2c 20 74 68 65 20 62 75 66 66 65 72 20 6e 61 6d 65	a.named.session,.the.buffer.name
0ac0	20 77 69 6c 6c 20 62 65 20 74 68 65 20 73 65 73 73 69 6f 6e 20 6e 61 6d 65 2e 0a 0a 49 66 20 74	.will.be.the.session.name...If.t
0ae0	68 65 20 73 65 73 73 69 6f 6e 20 69 73 20 75 6e 6e 61 6d 65 64 20 28 6e 69 6c 29 2c 20 67 65 6e	he.session.is.unnamed.(nil),.gen
0b00	65 72 61 74 65 20 61 20 6e 61 6d 65 2e 0a 0a 49 66 20 74 68 65 20 73 65 73 73 69 6f 6e 20 69 73	erate.a.name...If.the.session.is
0b20	20 60 6e 6f 6e 65 27 2c 20 75 73 65 20 6e 69 6c 20 66 6f 72 20 74 68 65 20 73 65 73 73 69 6f 6e	.`none',.use.nil.for.the.session
0b40	20 6e 61 6d 65 2c 20 61 6e 64 0a 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 65 78 65 63	.name,.and.org-babel-scheme-exec
0b60	75 74 65 2d 77 69 74 68 2d 67 65 69 73 65 72 20 77 69 6c 6c 20 75 73 65 20 61 20 74 65 6d 70 6f	ute-with-geiser.will.use.a.tempo
0b80	72 61 72 79 20 73 65 73 73 69 6f 6e 2e 0a 0a 28 66 6e 20 42 55 46 46 45 52 20 4e 41 4d 45 20 49	rary.session...(fn.BUFFER.NAME.I
0ba0	4d 50 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d	MPL)..(defalias.'org-babel-schem
0bc0	65 2d 6d 61 6b 65 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 23 5b 37 37 31 20 22 01 5c 32 30 34	e-make-session-name.#[771.".\204
0be0	5c 66 00 02 5c 33 30 30 5c 33 30 31 03 21 5c 33 30 32 52 5c 32 30 37 01 5c 33 30 33 5c 32 33 30	\f..\300\301.!\302R\207.\303\230
0c00	5c 32 30 33 14 00 5c 33 30 34 5c 32 30 37 01 5c 32 30 37 22 20 5b 22 20 22 20 73 79 6d 62 6f 6c	\203..\304\207.\207".[".".symbol
0c20	2d 6e 61 6d 65 20 22 20 52 45 50 4c 22 20 22 6e 6f 6e 65 22 20 6e 69 6c 5d 20 37 20 28 23 24 20	-name.".REPL"."none".nil].7.(#$.
0c40	2e 20 32 36 37 35 29 5d 29 0a 23 40 38 36 20 43 61 70 74 75 72 65 20 63 75 72 72 65 6e 74 20 6d	..2675)]).#@86.Capture.current.m
0c60	65 73 73 61 67 65 20 69 6e 20 62 6f 74 68 20 69 6e 74 65 72 61 63 74 69 76 65 20 61 6e 64 20 6e	essage.in.both.interactive.and.n
0c80	6f 6e 69 6e 74 65 72 61 63 74 69 76 65 20 6d 6f 64 65 0a 0a 28 66 6e 20 26 72 65 73 74 20 42 4f	oninteractive.mode..(fn.&rest.BO
0ca0	44 59 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65	DY)..(defalias.'org-babel-scheme
0cc0	2d 63 61 70 74 75 72 65 2d 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 27 28 6d 61 63 72 6f	-capture-current-message.'(macro
0ce0	20 2e 20 23 5b 31 32 38 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33	...#[128."\300\301\302\303\304\3
0d00	30 35 5c 33 30 36 5c 33 30 37 06 08 5c 33 31 30 5c 22 42 42 5c 33 31 31 42 42 45 5c 33 30 35 5c	05\306\307..\310\"BB\311BBE\305\
0d20	33 30 37 05 5c 33 31 32 5c 22 42 46 5c 32 30 37 22 20 5b 69 66 20 6e 6f 6e 69 6e 74 65 72 61 63	307.\312\"BF\207".[if.noninterac
0d40	74 69 76 65 20 6c 65 74 20 28 28 6f 72 69 67 69 6e 61 6c 2d 6d 65 73 73 61 67 65 20 28 73 79 6d	tive.let.((original-message.(sym
0d60	62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 6d 65 73 73 61 67 65 29 29 20 28 63 75 72 72 65 6e 74	bol-function.'message)).(current
0d80	2d 6d 65 73 73 61 67 65 20 6e 69 6c 29 29 20 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 70 72	-message.nil)).unwind-protect.pr
0da0	6f 67 6e 20 28 64 65 66 75 6e 20 6d 65 73 73 61 67 65 20 28 26 72 65 73 74 20 61 72 67 73 29 20	ogn.(defun.message.(&rest.args).
0dc0	28 73 65 74 71 20 63 75 72 72 65 6e 74 2d 6d 65 73 73 61 67 65 20 28 61 70 70 6c 79 20 6f 72 69	(setq.current-message.(apply.ori
0de0	67 69 6e 61 6c 2d 6d 65 73 73 61 67 65 20 61 72 67 73 29 29 29 20 61 70 70 65 6e 64 20 28 63 75	ginal-message.args))).append.(cu
0e00	72 72 65 6e 74 2d 6d 65 73 73 61 67 65 29 20 28 28 66 73 65 74 20 27 6d 65 73 73 61 67 65 20 6f	rrent-message).((fset.'message.o
0e20	72 69 67 69 6e 61 6c 2d 6d 65 73 73 61 67 65 29 29 20 28 28 63 75 72 72 65 6e 74 2d 6d 65 73 73	riginal-message)).((current-mess
0e40	61 67 65 29 29 5d 20 31 31 20 28 23 24 20 2e 20 33 31 35 31 29 5d 29 29 0a 23 40 32 34 36 20 45	age))].11.(#$...3151)])).#@246.E
0e60	78 65 63 75 74 65 20 63 6f 64 65 20 69 6e 20 73 70 65 63 69 66 69 65 64 20 52 45 50 4c 2e 20 49	xecute.code.in.specified.REPL..I
0e80	66 20 74 68 65 20 52 45 50 4c 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 2c 20 63 72 65 61 74 65	f.the.REPL.doesn't.exist,.create
0ea0	20 69 74 0a 75 73 69 6e 67 20 74 68 65 20 67 69 76 65 6e 20 73 63 68 65 6d 65 20 69 6d 70 6c 65	.it.using.the.given.scheme.imple
0ec0	6d 65 6e 74 61 74 69 6f 6e 2e 0a 0a 52 65 74 75 72 6e 73 20 74 68 65 20 6f 75 74 70 75 74 20 6f	mentation...Returns.the.output.o
0ee0	66 20 65 78 65 63 75 74 69 6e 67 20 74 68 65 20 63 6f 64 65 20 69 66 20 74 68 65 20 6f 75 74 70	f.executing.the.code.if.the.outp
0f00	75 74 20 70 61 72 61 6d 65 74 65 72 0a 69 73 20 74 72 75 65 3b 20 6f 74 68 65 72 77 69 73 65 20	ut.parameter.is.true;.otherwise.
0f20	72 65 74 75 72 6e 73 20 74 68 65 20 6c 61 73 74 20 76 61 6c 75 65 2e 0a 0a 28 66 6e 20 43 4f 44	returns.the.last.value...(fn.COD
0f40	45 20 4f 55 54 50 55 54 20 49 4d 50 4c 20 52 45 50 4c 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	E.OUTPUT.IMPL.REPL)..(defalias.'
0f60	6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 65 78 65 63 75 74 65 2d 77 69 74 68 2d 67 65	org-babel-scheme-execute-with-ge
0f80	69 73 65 72 20 23 5b 31 30 32 38 20 22 5c 33 30 36 5c 33 30 37 5c 33 31 30 21 72 5c 32 31 31 71	iser.#[1028."\306\307\310!r\211q
0fa0	5c 32 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 5c 33 31 34 5c 33 31 35 05 21 5c 33 31 36 5c 22	\210\311\312\313\314\315.!\316\"
0fc0	5c 33 31 37 24 5c 32 31 36 5c 33 32 30 5c 33 32 31 05 5c 22 63 5c 32 31 30 5c 33 32 32 20 5c 32	\317$\216\320\321.\"c\210\322.\2
0fe0	31 30 05 63 5c 32 31 30 5c 33 32 33 20 5c 32 31 30 5c 33 30 36 5c 32 31 31 18 19 72 5c 33 32 34	10.c\210\323.\210\306\211..r\324
1000	04 04 5c 22 29 04 5c 33 32 35 70 21 3d 5c 32 30 34 44 00 5c 33 32 36 5c 33 32 37 06 06 5c 32 31	..\").\325p!=\204D.\326\327..\21
1020	31 39 5c 33 32 35 70 21 5c 33 32 35 70 21 39 25 5c 32 31 30 5c 32 31 31 12 5c 33 30 36 5c 32 31	19\325p!\325p!9%\210\211.\306\21
1040	31 13 5c 33 30 36 1c 1d 5c 33 33 30 65 64 5c 22 06 06 5c 32 30 33 5b 00 5c 33 33 31 01 21 5c 32	1.\306..\330ed\"..\203[.\331.!\2
1060	30 32 5f 00 5c 33 33 32 01 5c 33 33 33 5c 22 5c 32 36 32 04 5c 32 31 30 2a 03 5c 32 30 34 7a 00	02_.\332.\333\"\262.\210*.\204z.
1080	72 5c 32 31 31 71 5c 32 31 30 5c 33 33 34 20 5c 32 31 30 29 5c 33 33 35 5c 33 33 36 02 21 5c 33	r\211q\210\334.\210)\335\336.!\3
10a0	30 36 5c 22 5c 32 31 30 5c 33 33 37 01 21 5c 32 31 30 5c 32 31 30 2c 5c 32 31 30 5c 32 31 31 5c	06\"\210\337.!\210\210,\210\211\
10c0	32 30 37 22 20 5b 67 65 69 73 65 72 2d 72 65 70 6c 2d 75 73 65 2d 6f 74 68 65 72 2d 77 69 6e 64	207".[geiser-repl-use-other-wind
10e0	6f 77 20 67 65 69 73 65 72 2d 72 65 70 6c 2d 77 69 6e 64 6f 77 2d 61 6c 6c 6f 77 2d 73 70 6c 69	ow.geiser-repl-window-allow-spli
1100	74 20 67 65 69 73 65 72 2d 72 65 70 6c 2d 2d 72 65 70 6c 20 67 65 69 73 65 72 2d 69 6d 70 6c 2d	t.geiser-repl--repl.geiser-impl-
1120	2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 69 73 65 72 2d 64 65 62 75 67 2d 73 68 6f	-implementation.geiser-debug-sho
1140	77 2d 64 65 62 75 67 2d 70 20 67 65 69 73 65 72 2d 64 65 62 75 67 2d 6a 75 6d 70 2d 74 6f 2d 64	w-debug-p.geiser-debug-jump-to-d
1160	65 62 75 67 2d 70 20 6e 69 6c 20 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22	ebug-p.nil.generate-new-buffer."
1180	20 2a 74 65 6d 70 2a 22 20 6d 61 6b 65 2d 62 79 74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30 31 5c	.*temp*".make-byte-code.0."\301\
11a0	33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33 30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74	300!\205..\302\300!\207".vconcat
11c0	20 76 65 63 74 6f 72 20 5b 62 75 66 66 65 72 2d 6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72	.vector.[buffer-name.kill-buffer
11e0	5d 20 32 20 66 6f 72 6d 61 74 20 22 3b 3b 20 2d 2a 2d 20 67 65 69 73 65 72 2d 73 63 68 65 6d 65	].2.format.";;.-*-.geiser-scheme
1200	2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 3a 20 25 73 20 2d 2a 2d 22 20 6e 65 77 6c 69 6e 65	-implementation:.%s.-*-".newline
1220	20 67 65 69 73 65 72 2d 6d 6f 64 65 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 67 65	.geiser-mode.org-babel-scheme-ge
1240	74 2d 72 65 70 6c 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 67 65 74 2d 62 75 66 66	t-repl.org-babel-scheme-get-buff
1260	65 72 2d 69 6d 70 6c 20 6d 65 73 73 61 67 65 20 22 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20	er-impl.message."Implementation.
1280	6d 69 73 6d 61 74 63 68 3a 20 25 73 20 28 25 73 29 20 25 73 20 28 25 73 29 22 20 67 65 69 73 65	mismatch:.%s.(%s).%s.(%s)".geise
12a0	72 2d 65 76 61 6c 2d 72 65 67 69 6f 6e 20 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 72 65 74 6f 72	r-eval-region.geiser-eval--retor
12c0	74 2d 6f 75 74 70 75 74 20 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 72 65 74 6f 72 74 2d 72 65 73	t-output.geiser-eval--retort-res
12e0	75 6c 74 2d 73 74 72 20 22 22 20 67 65 69 73 65 72 2d 72 65 70 6c 2d 65 78 69 74 20 73 65 74 2d	ult-str."".geiser-repl-exit.set-
1300	70 72 6f 63 65 73 73 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 69 74 2d 66 6c 61 67 20 67 65 74 2d 62	process-query-on-exit-flag.get-b
1320	75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 31 35 20 28 23	uffer-process.kill-buffer].15.(#
1340	24 20 2e 20 33 36 37 39 29 5d 29 0a 23 40 31 39 32 20 43 6f 6e 76 65 72 74 20 52 45 53 55 4c 54	$...3679)]).#@192.Convert.RESULT
1360	53 20 69 6e 74 6f 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74 65 20 65 6c 69 73 70 20 76 61 6c 75	S.into.an.appropriate.elisp.valu
1380	65 2e 0a 49 66 20 74 68 65 20 72 65 73 75 6c 74 73 20 6c 6f 6f 6b 20 6c 69 6b 65 20 61 20 6c 69	e..If.the.results.look.like.a.li
13a0	73 74 20 6f 72 20 74 75 70 6c 65 2c 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 20 74 68 65 6d 20 69	st.or.tuple,.then.convert.them.i
13c0	6e 74 6f 20 61 6e 0a 45 6d 61 63 73 2d 6c 69 73 70 20 74 61 62 6c 65 2c 20 6f 74 68 65 72 77 69	nto.an.Emacs-lisp.table,.otherwi
13e0	73 65 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 73 20 61 20 73 74 72 69 6e	se.return.the.results.as.a.strin
1400	67 2e 0a 0a 28 66 6e 20 52 45 53 55 4c 54 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67	g...(fn.RESULTS)..(defalias.'org
1420	2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 2d 74 61 62 6c 65 2d 6f 72 2d 73 74 72 69 6e 67 20 23	-babel-scheme--table-or-string.#
1440	5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 3c 5c 32 30 33 0f 00 5c 33 30 31 5c 33 30 32 02	[257."\300.!\211<\203..\301\302.
1460	5c 22 5c 32 30 32 10 00 5c 32 31 31 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 73 63 72	\"\202..\211\207".[org-babel-scr
1480	69 70 74 2d 65 73 63 61 70 65 20 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 32 31 31 5c 32 30	ipt-escape.mapcar.#[257."\211\20
14a0	33 5c 6e 00 5c 32 31 31 5c 33 30 31 3d 5c 32 30 33 5c 66 00 08 5c 32 30 37 5c 32 30 37 22 20 5b	3\n.\211\301=\203\f..\207\207".[
14c0	6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 6e 75 6c 6c 2d 74 6f 20 6e 75 6c 6c 5d 20 33	org-babel-scheme-null-to.null].3
14e0	20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 29 22 5d 5d 20 35 20 28 23 24 20 2e 20 34 39 34 36 29 5d 29	."\n\n(fn.EL)"]].5.(#$...4946)])
1500	0a 23 40 31 32 33 20 45 78 65 63 75 74 65 20 61 20 62 6c 6f 63 6b 20 6f 66 20 53 63 68 65 6d 65	.#@123.Execute.a.block.of.Scheme
1520	20 63 6f 64 65 20 77 69 74 68 20 6f 72 67 2d 62 61 62 65 6c 2e 0a 54 68 69 73 20 66 75 6e 63 74	.code.with.org-babel..This.funct
1540	69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 62 79 20 60 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63	ion.is.called.by.`org-babel-exec
1560	75 74 65 2d 73 72 63 2d 62 6c 6f 63 6b 27 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29	ute-src-block'..(fn.BODY.PARAMS)
1580	1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 73	..(defalias.'org-babel-execute:s
15a0	63 68 65 6d 65 20 23 5b 35 31 34 20 22 70 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 33 30 35 04 21	cheme.#[514."p\302\303\304\305.!
15c0	23 5c 32 31 32 5c 33 30 36 03 5c 32 33 36 41 5c 33 30 37 04 5c 32 33 36 41 5c 32 30 33 1d 00 5c	#\212\306.\236A\307.\236A\203..\
15e0	33 31 30 5c 33 30 37 05 5c 32 33 36 41 21 5c 32 30 36 23 00 08 5c 32 30 36 23 00 09 40 5c 33 31	310\307.\236A!\206#..\206#..@\31
1600	31 03 5c 33 31 32 06 07 5c 32 33 36 41 03 23 5c 33 31 33 06 07 06 07 5c 22 5c 33 31 34 01 05 5c	1.\312..\236A.#\313....\"\314..\
1620	33 31 35 5c 32 33 30 05 05 5c 33 31 36 5c 32 33 30 3f 5c 32 30 35 40 00 05 24 5c 33 31 37 01 5c	315\230..\316\230?\205@..$\317.\
1640	33 32 30 5c 33 32 31 06 0b 5c 32 33 36 41 5c 33 32 32 06 5c 66 5c 32 33 36 41 5c 22 5c 33 32 30	320\321..\236A\322.\f\236A\"\320
1660	5c 33 32 33 06 5c 66 5c 32 33 36 41 5c 33 32 34 06 0d 5c 32 33 36 41 5c 22 23 5c 33 32 35 01 21	\323.\f\236A\324..\236A\"#\325.!
1680	5c 32 36 32 01 5c 32 36 36 5c 32 30 35 29 5c 32 30 37 22 20 5b 67 65 69 73 65 72 2d 64 65 66 61	\262.\266\205)\207".[geiser-defa
16a0	75 6c 74 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 69 73 65 72 2d 61 63 74 69 76 65	ult-implementation.geiser-active
16c0	2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d	-implementations.replace-regexp-
16e0	69 6e 2d 73 74 72 69 6e 67 20 22 5e 20 3f 5c 5c 2a 5c 5c 28 5b 5e 2a 5d 2b 5c 5c 29 5c 5c 2a 22	in-string."^.?\\*\\([^*]+\\)\\*"
1700	20 22 5c 5c 31 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 72 65 73 75 6c 74 2d 74 79 70 65 20	."\\1".buffer-name.:result-type.
1720	3a 73 63 68 65 6d 65 20 69 6e 74 65 72 6e 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d	:scheme.intern.org-babel-scheme-
1740	6d 61 6b 65 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 3a 73 65 73 73 69 6f 6e 20 6f 72 67 2d 62	make-session-name.:session.org-b
1760	61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 73 63 68 65 6d 65 20 6f 72 67 2d 62 61 62 65	abel-expand-body:scheme.org-babe
1780	6c 2d 73 63 68 65 6d 65 2d 65 78 65 63 75 74 65 2d 77 69 74 68 2d 67 65 69 73 65 72 20 22 6f 75	l-scheme-execute-with-geiser."ou
17a0	74 70 75 74 22 20 22 6e 6f 6e 65 22 20 6f 72 67 2d 62 61 62 65 6c 2d 72 65 61 73 73 65 6d 62 6c	tput"."none".org-babel-reassembl
17c0	65 2d 74 61 62 6c 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 69 63 6b 2d 6e 61 6d 65 20 3a 63 6f 6c	e-table.org-babel-pick-name.:col
17e0	6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 63 6f 6c 6e 61 6d 65 73 20 3a 72 6f 77 6e 61 6d 65 2d 6e 61	name-names.:colnames.:rowname-na
1800	6d 65 73 20 3a 72 6f 77 6e 61 6d 65 73 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 2d	mes.:rownames.org-babel-scheme--
1820	74 61 62 6c 65 2d 6f 72 2d 73 74 72 69 6e 67 5d 20 31 36 20 28 23 24 20 2e 20 35 33 38 33 29 5d	table-or-string].16.(#$...5383)]
1840	29 0a 28 70 72 6f 76 69 64 65 20 27 6f 62 2d 73 63 68 65 6d 65 29 0a	).(provide.'ob-scheme).