blob: f2ad77b31394cd7701ccddf6ae73e452b6edec46 (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 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.27.2.;;;.with.all.opt
0040	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 73 20	imizations...;;;.This.file.uses.
0060	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 64 20	dynamic.docstrings,.first.added.
0080	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 20 64	in.Emacs.19.29...;;;.This.file.d
00a0	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 49 20	oes.not.contain.utf-8.non-ASCII.
00c0	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 6c 6f	characters,.;;;.and.so.can.be.lo
00e0	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 20 74	aded.in.Emacs.versions.earlier.t
0100	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 3b 3b	han.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 0a 3b 3b 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 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	;;;;;;;;;;;;;;;;...(byte-code."\
01a0	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 32 31	300\301!\210\300\302\303\304#\21
01c0	30 5c 33 30 30 5c 33 30 35 5c 33 30 33 5c 33 30 34 23 5c 32 31 30 5c 33 30 36 5c 33 30 37 5c 33	0\300\305\303\304#\210\306\307\3
01e0	31 30 5c 33 31 31 5c 33 31 32 44 44 5c 33 31 33 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c 33 31 37	10\311\312DD\313\314\315\316\317
0200	5c 33 32 30 5c 33 32 31 5c 33 32 32 5c 33 32 33 26 0b 5c 32 30 37 22 20 5b 72 65 71 75 69 72 65	\320\321\322\323&.\207".[require
0220	20 6f 62 20 67 65 69 73 65 72 20 6e 69 6c 20 74 20 67 65 69 73 65 72 2d 69 6d 70 6c 20 63 75 73	.ob.geiser.nil.t.geiser-impl.cus
0240	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 73	tom-declare-variable.org-babel-s
0260	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 23	cheme-null-to.funcall.function.#
0280	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 63	[0."\300\207".[hline].1]."Replac
02a0	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 65	e.`null'.and.empty.lists.in.sche
02c0	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 72	me.tables.with.this.before.retur
02e0	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 6e	ning.".:group.org-babel.:version
0300	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 20	."26.1".:package-version.(Org...
0320	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 65	"9.1").:type.symbol].12).#@50.De
0340	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 6d	fault.header.arguments.for.schem
0360	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 65	e.code.blocks...(defvar.org-babe
0380	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 6c	l-default-header-args:scheme.nil
03a0	20 28 23 24 20 2e 20 38 33 30 29 29 0a 23 40 37 38 20 45 78 70 61 6e 64 20 42 4f 44 59 20 61 63	.(#$...830)).#@78.Expand.BODY.ac
03c0	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 78	cording.to.PARAMS,.return.the.ex
03e0	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 0a	panded.body...(fn.BODY.PARAMS)..
0400	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 79	(defalias.'org-babel-expand-body
0420	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 5c	:scheme.#[514."\300.!\301.\236A\
0440	33 30 32 03 5c 32 33 36 41 01 5c 32 30 35 12 00 01 5c 33 30 33 50 03 5c 32 30 34 1a 00 05 5c 32	302.\236A.\205...\303P.\204...\2
0460	30 32 25 00 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 33 30 37 06 07 5c 33 31 30 23 06 08 23 02 5c	02%.\304\305\306\307..\310#..#.\
0480	32 30 35 2c 00 5c 33 30 33 03 50 51 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 2d 67 65	205,.\303.PQ\207".[org-babel--ge
04a0	74 2d 76 61 72 73 20 3a 70 72 6f 6c 6f 67 75 65 20 3a 65 70 69 6c 6f 67 75 65 20 22 5c 6e 22 20	t-vars.:prologue.:epilogue."\n".
04c0	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 6d 61 70 63 6f 6e	format."(let.(%s)\n%s\n)".mapcon
04e0	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 33 30 33 05 41 44	cat.#[257."\300\301\302.@\303.AD
0500	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 6e 74 20 71 75 6f	D!\"\207".[format."%S".print.quo
0520	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 20 20 20 20 20 22	te].7."\n\n(fn.VAR)"]."\n......"
0540	5d 20 31 32 20 28 23 24 20 2e 20 39 34 36 29 5d 29 0a 23 40 34 32 20 4d 61 70 20 6f 66 20 73 63	].12.(#$...946)]).#@42.Map.of.sc
0560	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 61 6d 65 73 2e 1f	heme.sessions.to.session.names..
0580	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 72 65 70 6c 2d 6d	.(defvar.org-babel-scheme-repl-m
05a0	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 27 65 71 75 61 6c	ap.(make-hash-table.:test.'equal
05c0	29 20 28 23 24 20 2e 20 31 33 36 37 29 29 0a 23 40 34 30 20 52 65 6d 6f 76 65 20 64 65 61 64 20	).(#$...1367)).#@40.Remove.dead.
05e0	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 1f 0a 28 64 65 66	buffers.from.the.REPL.map...(def
0600	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 65 61 6e 73 65 2d	alias.'org-babel-scheme-cleanse-
0620	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 32 30 37 22 20 5b	repl-map.#[0."\301\302.\"\207".[
0640	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 6d 61 70 68 61 73	org-babel-scheme-repl-map.maphas
0660	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 02 08 5c 22 5c 32	h.#[514."\301.!?\205..\302..\"\2
0680	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 62	07".[org-babel-scheme-repl-map.b
06a0	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 6e 28 66 6e 20 58	uffer-name.remhash].5."\n\n(fn.X
06c0	20 59 29 22 5d 5d 20 33 20 28 23 24 20 2e 20 31 34 39 32 29 5d 29 0a 23 40 39 33 20 4c 6f 6f 6b	.Y)"]].3.(#$...1492)]).#@93.Look
06e0	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 61 20 73 65 73 73	.up.the.scheme.buffer.for.a.sess
0700	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 6e 27 74 20 65 78	ion;.return.nil.if.it.doesn't.ex
0720	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 64 65 66 61 6c 69	ist...(fn.SESSION-NAME)..(defali
0740	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 65 73 73 69 6f 6e	as.'org-babel-scheme-get-session
0760	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 30 32 01 08 5c 22	-buffer.#[257."\301.\210\302..\"
0780	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 2d 6d 61 70	\207".[org-babel-scheme-repl-map
07a0	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 72 65 70 6c 2d 6d	.org-babel-scheme-cleanse-repl-m
07c0	61 70 20 67 65 74 68 61 73 68 5d 20 34 20 28 23 24 20 2e 20 31 37 35 36 29 5d 29 0a 23 40 37 38	ap.gethash].4.(#$...1756)]).#@78
07e0	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 75 73 65 64 20 66	.Record.the.scheme.buffer.used.f
0800	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 45 53 53 49 4f 4e	or.a.given.session...(fn.SESSION
0820	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 6f 72 67 2d 62 61	-NAME.BUFFER)..(defalias.'org-ba
0840	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 66 65 72 20 23 5b	bel-scheme-set-session-buffer.#[
0860	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 62 65 6c 2d 73 63	514."\301...#\207".[org-babel-sc
0880	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 23 24 20 2e 20 32	heme-repl-map.puthash].6.(#$...2
08a0	30 31 37 29 5d 29 0a 23 40 38 32 20 52 65 74 75 72 6e 20 74 68 65 20 73 63 68 65 6d 65 20 69 6d	017)]).#@82.Return.the.scheme.im
08c0	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 69 61 74 65 73 20 77	plementation.geiser.associates.w
08e0	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 45 52 29 1f 0a 28 64	ith.the.buffer...(fn.BUFFER)..(d
0900	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 62 75	efalias.'org-babel-scheme-get-bu
0920	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 32 31 30 08 29 5c 32	ffer-impl.#[257."r\211qq\210.)\2
0940	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 6e 74 61 74 69 6f 6e	07".[geiser-impl--implementation
0960	5d 20 32 20 28 23 24 20 2e 20 32 32 32 30 29 5d 29 0a 23 40 37 35 20 53 77 69 74 63 68 20 74 6f	].2.(#$...2220)]).#@75.Switch.to
0980	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 69 74 20 69 66 20 69	.a.scheme.REPL,.creating.it.if.i
09a0	74 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 2e 0a 0a 28 66 6e 20 49 4d 50 4c 20 4e 41 4d 45 29	t.doesn't.exist...(fn.IMPL.NAME)
09c0	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 67 65	..(defalias.'org-babel-scheme-ge
09e0	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 32 30 36 1a 00 5c 33	t-repl.#[514."\300.!\211\206..\3
0a00	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 22 5c 32 31 30 5c 33	01.!\210.\203..\302.\303\"\210\3
0a20	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 65 6c 2d 73 63 68 65	04.p\"\210p\207".[org-babel-sche
0a40	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 2d 67 65 69 73 65 72	me-get-session-buffer.run-geiser
0a60	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 6c 2d 73 63 68 65 6d	.rename-buffer.t.org-babel-schem
0a80	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 23 24 20 2e 20 32 34	e-set-session-buffer].6.(#$...24
0aa0	32 33 29 5d 29 0a 23 40 33 30 37 20 47 65 6e 65 72 61 74 65 20 61 20 6e 61 6d 65 20 66 6f 72 20	23)]).#@307.Generate.a.name.for.
0ac0	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 61 20 6e 61 6d 65 64	the.session.buffer...For.a.named
0ae0	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 20 77 69 6c 6c 20 62	.session,.the.buffer.name.will.b
0b00	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 68 65 20 73 65 73 73	e.the.session.name...If.the.sess
0b20	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 65 72 61 74 65 20 61	ion.is.unnamed.(nil),.generate.a
0b40	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 20 60 6e 6f 6e 65 27	.name...If.the.session.is.`none'
0b60	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 20 6e 61 6d 65 2c 20	,.use.nil.for.the.session.name,.
0b80	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 75 74 65 2d 77 69 74	and.org-babel-scheme-execute-wit
0ba0	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 72 61 72 79 20 73 65	h-geiser.will.use.a.temporary.se
0bc0	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 4d 50 4c 29 1f 0a 28	ssion...(fn.BUFFER.NAME.IMPL)..(
0be0	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 6d 61 6b 65 2d	defalias.'org-babel-scheme-make-
0c00	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 5c 66 00 02 5c 33 30	session-name.#[771.".\204\f..\30
0c20	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 5c 32 30 33 14 00 5c	0\301.!\302R\207.\303\230\203..\
0c40	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 2d 6e 61 6d 65 20 22	304\207.\207".[".".symbol-name."
0c60	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 2e 20 32 37 33 32 29	.REPL"."none".nil].7.(#$...2732)
0c80	5d 29 0a 23 40 38 37 20 43 61 70 74 75 72 65 20 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 65 20	]).#@87.Capture.current.message.
0ca0	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 6f 6e 69 6e 74 65 72	in.both.interactive.and.noninter
0cc0	61 63 74 69 76 65 20 6d 6f 64 65 2e 0a 0a 28 66 6e 20 26 72 65 73 74 20 42 4f 44 59 29 1f 0a 28	active.mode...(fn.&rest.BODY)..(
0ce0	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 61 70 74 75	defalias.'org-babel-scheme-captu
0d00	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 20 2e 20 23 5b 31	re-current-message.'(macro...#[1
0d20	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 30 35 5c 33 30 36	28."\300\301\302\303\304\305\306
0d40	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 33 30 37 05 5c 33	\307..\310\"BB\311BBE\305\307.\3
0d60	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 74 69 76 65 20 6c	12\"BF\207".[if.noninteractive.l
0d80	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 62 6f 6c 2d 66 75	et.((original-message.(symbol-fu
0da0	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 2d 6d 65 73 73 61	nction.'message)).(current-messa
0dc0	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 6f 67 6e 20 28 64	ge.nil)).unwind-protect.progn.(d
0de0	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 28 73 65 74 71 20	efun.message.(&rest.args).(setq.
0e00	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 67 69 6e 61 6c 2d	current-message.(apply.original-
0e20	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 72 72 65 6e 74 2d	message.args))).append.(current-
0e40	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 72 69 67 69 6e 61	message).((fset.'message.origina
0e60	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 61 67 65 29 29 5d	l-message)).((current-message))]
0e80	20 31 31 20 28 23 24 20 2e 20 33 32 30 38 29 5d 29 29 0a 23 40 32 34 36 20 45 78 65 63 75 74 65	.11.(#$...3208)])).#@246.Execute
0ea0	20 63 6f 64 65 20 69 6e 20 73 70 65 63 69 66 69 65 64 20 52 45 50 4c 2e 0a 49 66 20 74 68 65 20	.code.in.specified.REPL..If.the.
0ec0	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 20 69 74 20 75 73	REPL.doesn't.exist,.create.it.us
0ee0	69 6e 67 20 74 68 65 20 67 69 76 65 6e 20 73 63 68 65 6d 65 0a 69 6d 70 6c 65 6d 65 6e 74 61 74	ing.the.given.scheme.implementat
0f00	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 66 20 65 78 65 63	ion...Returns.the.output.of.exec
0f20	75 74 69 6e 67 20 74 68 65 20 63 6f 64 65 20 69 66 20 74 68 65 20 4f 55 54 50 55 54 20 70 61 72	uting.the.code.if.the.OUTPUT.par
0f40	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 72 65 74 75 72 6e	ameter.is.true;.otherwise.return
0f60	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 45 20 4f 55 54 50	s.the.last.value...(fn.CODE.OUTP
0f80	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 6f 72 67 2d 62 61	UT.IMPL.REPL)..(defalias.'org-ba
0fa0	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 69 73 65 72 20 23	bel-scheme-execute-with-geiser.#
0fc0	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 5c 32 31 30 5c 33	[1028."\306\307\310!r\211q\210\3
0fe0	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 5c 33 31 37 24 5c	11\312\313\314\315.!\316\"\317$\
1000	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 31 30 05 63 5c 32	216\320\321.\"c\210\322.\210.c\2
1020	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 04 04 5c 22 29 04	10\323.\210\306\211..r\324..\").
1040	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 31 39 5c 33 32 35	\325p!=\204D.\326\327..\2119\325
1060	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 31 13 5c 33 30 36	p!\325p!9%\210\211.\306\211.\306
1080	1c 1d 5c 33 33 30 65 64 5c 22 06 06 5c 32 30 33 5f 00 5c 33 33 31 01 21 5c 32 30 36 63 00 5c 33	..\330ed\"..\203_.\331.!\206c.\3
10a0	33 32 5c 32 30 32 63 00 5c 33 33 33 01 5c 33 33 34 5c 22 5c 32 36 32 04 5c 32 31 30 2a 03 5c 32	32\202c.\333.\334\"\262.\210*.\2
10c0	30 34 7e 00 72 5c 32 31 31 71 5c 32 31 30 5c 33 33 35 20 5c 32 31 30 29 5c 33 33 36 5c 33 33 37	04~.r\211q\210\335.\210)\336\337
10e0	02 21 5c 33 30 36 5c 22 5c 32 31 30 5c 33 34 30 01 21 5c 32 31 30 5c 32 31 30 2c 5c 32 31 30 5c	.!\306\"\210\340.!\210\210,\210\
1100	32 31 31 5c 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	211\207".[geiser-repl-use-other-
1120	77 69 6e 64 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	window.geiser-repl-window-allow-
1140	73 70 6c 69 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	split.geiser-repl--repl.geiser-i
1160	6d 70 6c 2d 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	mpl--implementation.geiser-debug
1180	2d 73 68 6f 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	-show-debug-p.geiser-debug-jump-
11a0	74 6f 2d 64 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	to-debug-p.nil.generate-new-buff
11c0	65 72 20 22 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	er.".*temp*".make-byte-code.0."\
11e0	33 30 31 5c 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	301\300!\205..\302\300!\207".vco
1200	6e 63 61 74 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	ncat.vector.[buffer-name.kill-bu
1220	66 66 65 72 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	ffer].2.format.";;.-*-.geiser-sc
1240	68 65 6d 65 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	heme-implementation:.%s.-*-".new
1260	6c 69 6e 65 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	line.geiser-mode.org-babel-schem
1280	65 2d 67 65 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	e-get-repl.org-babel-scheme-get-
12a0	62 75 66 66 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	buffer-impl.message."Implementat
12c0	69 6f 6e 20 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	ion.mismatch:.%s.(%s).%s.(%s)".g
12e0	65 69 73 65 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	eiser-eval-region.geiser-eval--r
1300	65 74 6f 72 74 2d 6f 75 74 70 75 74 20 22 47 65 69 73 65 72 20 49 6e 74 65 72 70 72 65 74 65 72	etort-output."Geiser.Interpreter
1320	20 70 72 6f 64 75 63 65 64 20 6e 6f 20 6f 75 74 70 75 74 22 20 67 65 69 73 65 72 2d 65 76 61 6c	.produced.no.output".geiser-eval
1340	2d 2d 72 65 74 6f 72 74 2d 72 65 73 75 6c 74 2d 73 74 72 20 22 22 20 67 65 69 73 65 72 2d 72 65	--retort-result-str."".geiser-re
1360	70 6c 2d 65 78 69 74 20 73 65 74 2d 70 72 6f 63 65 73 73 2d 71 75 65 72 79 2d 6f 6e 2d 65 78 69	pl-exit.set-process-query-on-exi
1380	74 2d 66 6c 61 67 20 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 6b 69 6c 6c 2d 62	t-flag.get-buffer-process.kill-b
13a0	75 66 66 65 72 5d 20 31 35 20 28 23 24 20 2e 20 33 37 33 37 29 5d 29 0a 23 40 31 39 32 20 43 6f	uffer].15.(#$...3737)]).#@192.Co
13c0	6e 76 65 72 74 20 52 45 53 55 4c 54 53 20 69 6e 74 6f 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74	nvert.RESULTS.into.an.appropriat
13e0	65 20 65 6c 69 73 70 20 76 61 6c 75 65 2e 0a 49 66 20 74 68 65 20 72 65 73 75 6c 74 73 20 6c 6f	e.elisp.value..If.the.results.lo
1400	6f 6b 20 6c 69 6b 65 20 61 20 6c 69 73 74 20 6f 72 20 74 75 70 6c 65 2c 20 74 68 65 6e 20 63 6f	ok.like.a.list.or.tuple,.then.co
1420	6e 76 65 72 74 20 74 68 65 6d 20 69 6e 74 6f 20 61 6e 0a 45 6d 61 63 73 2d 6c 69 73 70 20 74 61	nvert.them.into.an.Emacs-lisp.ta
1440	62 6c 65 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74	ble,.otherwise.return.the.result
1460	73 20 61 73 20 61 20 73 74 72 69 6e 67 2e 0a 0a 28 66 6e 20 52 45 53 55 4c 54 53 29 1f 0a 28 64	s.as.a.string...(fn.RESULTS)..(d
1480	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 2d 74 61 62 6c 65	efalias.'org-babel-scheme--table
14a0	2d 6f 72 2d 73 74 72 69 6e 67 20 23 5b 32 35 37 20 22 5c 33 30 30 01 21 5c 32 31 31 3c 5c 32 30	-or-string.#[257."\300.!\211<\20
14c0	33 0f 00 5c 33 30 31 5c 33 30 32 02 5c 22 5c 32 30 32 10 00 5c 32 31 31 5c 32 30 37 22 20 5b 6f	3..\301\302.\"\202..\211\207".[o
14e0	72 67 2d 62 61 62 65 6c 2d 73 63 72 69 70 74 2d 65 73 63 61 70 65 20 6d 61 70 63 61 72 20 23 5b	rg-babel-script-escape.mapcar.#[
1500	32 35 37 20 22 5c 32 31 31 5c 32 30 33 5c 6e 00 5c 32 31 31 5c 33 30 31 3d 5c 32 30 33 5c 66 00	257."\211\203\n.\211\301=\203\f.
1520	08 5c 32 30 37 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65 2d 6e 75 6c	.\207\207".[org-babel-scheme-nul
1540	6c 2d 74 6f 20 6e 75 6c 6c 5d 20 33 20 22 5c 6e 5c 6e 28 66 6e 20 45 4c 29 22 5d 5d 20 35 20 28	l-to.null].3."\n\n(fn.EL)"]].5.(
1560	23 24 20 2e 20 35 30 35 34 29 5d 29 0a 23 40 31 32 34 20 45 78 65 63 75 74 65 20 61 20 62 6c 6f	#$...5054)]).#@124.Execute.a.blo
1580	63 6b 20 6f 66 20 53 63 68 65 6d 65 20 63 6f 64 65 20 77 69 74 68 20 6f 72 67 2d 62 61 62 65 6c	ck.of.Scheme.code.with.org-babel
15a0	2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20 62 79 20 60 6f 72	..This.function.is.called.by.`or
15c0	67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 2d 73 72 63 2d 62 6c 6f 63 6b 27 2e 0a 0a 28 66 6e	g-babel-execute-src-block'...(fn
15e0	20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61	.BODY.PARAMS)..(defalias.'org-ba
1600	62 65 6c 2d 65 78 65 63 75 74 65 3a 73 63 68 65 6d 65 20 23 5b 35 31 34 20 22 70 5c 33 30 33 5c	bel-execute:scheme.#[514."p\303\
1620	33 30 34 5c 33 30 35 5c 33 30 36 04 21 23 5c 32 31 32 5c 33 30 37 03 5c 32 33 36 41 5c 33 31 30	304\305\306.!#\212\307.\236A\310
1640	04 5c 32 33 36 41 5c 32 30 33 1d 00 5c 33 31 31 5c 33 31 30 05 5c 32 33 36 41 21 5c 32 30 36 27	.\236A\203..\311\310.\236A!\206'
1660	00 08 5c 32 30 36 27 00 09 5c 32 30 36 27 00 5c 6e 40 5c 33 31 32 03 5c 33 31 33 06 07 5c 32 33	..\206'..\206'.\n@\312.\313..\23
1680	36 41 03 23 5c 33 31 34 06 07 06 07 5c 22 5c 33 31 35 06 07 5c 32 33 36 41 5c 33 31 36 02 06 06	6A.#\314....\"\315..\236A\316...
16a0	5c 33 31 37 5c 32 33 30 06 06 06 06 5c 33 32 30 5c 32 33 30 3f 5c 32 30 35 4d 00 06 06 24 5c 33	\317\230....\320\230?\205M...$\3
16c0	32 31 01 5c 33 32 32 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	21.\322\323.\f\236A\324..\236A\"
16e0	5c 33 32 32 5c 33 32 35 06 0d 5c 32 33 36 41 5c 33 32 36 06 0e 5c 32 33 36 41 5c 22 23 02 5c 33	\322\325..\236A\326..\236A\"#.\3
1700	32 30 01 5c 32 33 35 3f 5c 32 30 35 5c 32 37 32 00 5c 33 32 37 01 5c 32 33 35 5c 32 30 34 5c 32	20.\235?\205\272.\327.\235\204\2
1720	36 33 00 5c 33 33 30 01 5c 32 33 35 5c 32 30 34 5c 32 36 33 00 5c 33 33 31 01 5c 32 33 35 5c 32	63.\330.\235\204\263.\331.\235\2
1740	30 34 5c 32 36 33 00 5c 33 33 32 01 5c 32 33 35 5c 32 30 34 5c 32 36 33 00 5c 33 33 33 01 5c 32	04\263.\332.\235\204\263.\333.\2
1760	33 35 5c 32 30 34 5c 32 36 33 00 5c 33 33 34 01 5c 32 33 35 5c 32 30 34 5c 32 36 33 00 5c 33 31	35\204\263.\334.\235\204\263.\31
1780	37 01 5c 32 33 35 5c 32 30 34 5c 32 35 35 00 5c 33 33 35 01 5c 32 33 35 5c 32 30 34 5c 32 35 35	7.\235\204\255.\335.\235\204\255
17a0	00 5c 33 33 36 01 5c 32 33 35 5c 32 30 34 5c 32 35 35 00 5c 33 33 37 01 5c 32 33 35 5c 32 30 33	.\336.\235\204\255.\337.\235\203
17c0	5c 32 36 37 00 5c 33 34 30 01 5c 32 33 35 5c 32 30 34 5c 32 36 37 00 02 5c 32 30 32 5c 32 37 32	\267.\340.\235\204\267..\202\272
17e0	00 5c 33 34 31 02 21 5c 32 36 32 01 5c 32 36 32 01 5c 32 36 36 5c 32 30 36 29 5c 32 30 37 22 20	.\341.!\262.\262.\266\206)\207".
1800	5b 67 65 69 73 65 72 2d 73 63 68 65 6d 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65	[geiser-scheme-implementation.ge
1820	69 73 65 72 2d 64 65 66 61 75 6c 74 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 67 65 69 73	iser-default-implementation.geis
1840	65 72 2d 61 63 74 69 76 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 73 20 72 65 70 6c 61 63	er-active-implementations.replac
1860	65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5e 20 3f 5c 5c 2a 5c 5c 28 5b 5e 2a	e-regexp-in-string."^.?\\*\\([^*
1880	5d 2b 5c 5c 29 5c 5c 2a 22 20 22 5c 5c 31 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 20 3a 72 65 73	]+\\)\\*"."\\1".buffer-name.:res
18a0	75 6c 74 2d 74 79 70 65 20 3a 73 63 68 65 6d 65 20 69 6e 74 65 72 6e 20 6f 72 67 2d 62 61 62 65	ult-type.:scheme.intern.org-babe
18c0	6c 2d 73 63 68 65 6d 65 2d 6d 61 6b 65 2d 73 65 73 73 69 6f 6e 2d 6e 61 6d 65 20 3a 73 65 73 73	l-scheme-make-session-name.:sess
18e0	69 6f 6e 20 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a 73 63 68 65 6d 65	ion.org-babel-expand-body:scheme
1900	20 3a 72 65 73 75 6c 74 2d 70 61 72 61 6d 73 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d 65	.:result-params.org-babel-scheme
1920	2d 65 78 65 63 75 74 65 2d 77 69 74 68 2d 67 65 69 73 65 72 20 22 6f 75 74 70 75 74 22 20 22 6e	-execute-with-geiser."output"."n
1940	6f 6e 65 22 20 6f 72 67 2d 62 61 62 65 6c 2d 72 65 61 73 73 65 6d 62 6c 65 2d 74 61 62 6c 65 20	one".org-babel-reassemble-table.
1960	6f 72 67 2d 62 61 62 65 6c 2d 70 69 63 6b 2d 6e 61 6d 65 20 3a 63 6f 6c 6e 61 6d 65 2d 6e 61 6d	org-babel-pick-name.:colname-nam
1980	65 73 20 3a 63 6f 6c 6e 61 6d 65 73 20 3a 72 6f 77 6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 72 6f 77	es.:colnames.:rowname-names.:row
19a0	6e 61 6d 65 73 20 22 73 63 61 6c 61 72 22 20 22 76 65 72 62 61 74 69 6d 22 20 22 68 74 6d 6c 22	names."scalar"."verbatim"."html"
19c0	20 22 63 6f 64 65 22 20 22 70 70 22 20 22 66 69 6c 65 22 20 22 72 61 77 22 20 22 6f 72 67 22 20	."code"."pp"."file"."raw"."org".
19e0	22 64 72 61 77 65 72 22 20 22 74 61 62 6c 65 22 20 6f 72 67 2d 62 61 62 65 6c 2d 73 63 68 65 6d	"drawer"."table".org-babel-schem
1a00	65 2d 2d 74 61 62 6c 65 2d 6f 72 2d 73 74 72 69 6e 67 5d 20 31 37 20 28 23 24 20 2e 20 35 34 39	e--table-or-string].17.(#$...549
1a20	31 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 62 2d 73 63 68 65 6d 65 29 0a	1)]).(provide.'ob-scheme).