blob: e35f92104ac722151134b98d924d1d66d8cf109e (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 21 5c 32 30 37 22 20 5b 72 65 71 75	300\301!\210\300\302!\207".[requ
01c0	69 72 65 20 6f 62 20 6f 72 67 2d 6d 61 63 73 5d 20 32 29 0a 23 40 34 39 20 44 65 66 61 75 6c 74	ire.ob.org-macs].2).#@49.Default
01e0	20 68 65 61 64 65 72 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 66 6f 72 74 68 20 63 6f 64 65	.header.arguments.for.forth.code
0200	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 6c 2d 64 65 66 61	.blocks...(defvar.org-babel-defa
0220	75 6c 74 2d 68 65 61 64 65 72 2d 61 72 67 73 3a 66 6f 72 74 68 20 27 28 28 3a 73 65 73 73 69 6f	ult-header-args:forth.'((:sessio
0240	6e 20 2e 20 22 79 65 73 22 29 29 20 28 23 24 20 2e 20 34 37 33 29 29 0a 23 40 31 32 33 20 45 78	n..."yes")).(#$...473)).#@123.Ex
0260	65 63 75 74 65 20 61 20 62 6c 6f 63 6b 20 6f 66 20 46 6f 72 74 68 20 63 6f 64 65 20 77 69 74 68	ecute.a.block.of.Forth.code.with
0280	20 6f 72 67 2d 62 61 62 65 6c 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c	.org-babel..This.function.is.cal
02a0	6c 65 64 20 62 79 20 60 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 2d 73 72 63 2d 62 6c	led.by.`org-babel-execute-src-bl
02c0	6f 63 6b 27 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69	ock'...(fn.BODY.PARAMS)..(defali
02e0	61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 66 6f 72 74 68 20 23 5b 35 31	as.'org-babel-execute:forth.#[51
0300	34 20 22 5c 33 30 30 01 5c 32 33 36 41 5c 33 30 31 5c 32 33 30 5c 32 30 33 0d 00 5c 33 30 32 5c	4."\300.\236A\301\230\203..\302\
0320	33 30 33 21 5c 32 30 37 5c 33 30 34 02 02 5c 22 5c 33 30 35 5c 33 30 36 03 5c 32 33 36 41 5c 32	303!\207\304..\"\305\306.\236A\2
0340	33 35 5c 32 30 33 5c 22 00 5c 33 30 37 5c 33 31 30 02 5c 33 31 31 23 5c 32 30 32 26 00 5c 33 31	35\203\".\307\310.\311#\202&.\31
0360	32 01 21 40 5c 32 30 37 22 20 5b 3a 73 65 73 73 69 6f 6e 20 22 6e 6f 6e 65 22 20 65 72 72 6f 72	2.!@\207".[:session."none".error
0380	20 22 4e 6f 6e 2d 73 65 73 73 69 6f 6e 20 65 76 61 6c 75 61 74 69 6f 6e 20 6e 6f 74 20 73 75 70	."Non-session.evaluation.not.sup
03a0	70 6f 72 74 65 64 20 66 6f 72 20 46 6f 72 74 68 20 63 6f 64 65 20 62 6c 6f 63 6b 73 22 20 6f 72	ported.for.Forth.code.blocks".or
03c0	67 2d 62 61 62 65 6c 2d 66 6f 72 74 68 2d 73 65 73 73 69 6f 6e 2d 65 78 65 63 75 74 65 20 22 6f	g-babel-forth-session-execute."o
03e0	75 74 70 75 74 22 20 3a 72 65 73 75 6c 74 2d 70 61 72 61 6d 73 20 6d 61 70 63 6f 6e 63 61 74 20	utput".:result-params.mapconcat.
0400	69 64 65 6e 74 69 74 79 20 22 5c 6e 22 20 6c 61 73 74 5d 20 37 20 28 23 24 20 2e 20 36 30 36 29	identity."\n".last].7.(#$...606)
0420	5d 29 0a 23 40 32 30 20 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66	]).#@20...(fn.BODY.PARAMS)..(def
0440	61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 66 6f 72 74 68 2d 73 65 73 73 69 6f 6e 2d 65	alias.'org-babel-forth-session-e
0460	78 65 63 75 74 65 20 23 5b 35 31 34 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 20	xecute.#[514."\300\301!\210\302.
0480	5c 33 30 33 5c 33 30 34 43 72 5c 33 30 35 5c 33 30 32 20 21 71 5c 32 31 30 5c 33 30 36 5c 33 30	\303\304Cr\305\302.!q\210\306\30
04a0	37 5c 33 31 30 5c 33 31 31 5c 33 31 32 5c 33 31 33 06 08 06 08 06 08 23 5c 33 31 34 5c 22 5c 33	7\310\311\312\313......#\314\"\3
04c0	31 35 5c 33 31 36 25 5c 33 31 37 5c 33 32 30 06 08 06 08 5c 22 5c 33 30 34 5c 33 32 31 01 5c 32	15\316%\317\320....\"\304\321.\2
04e0	30 33 33 00 5c 33 32 32 5c 32 30 32 34 00 5c 33 32 33 5c 33 32 34 5c 33 32 31 5c 33 32 35 5c 33	033.\322\2024.\323\324\321\325\3
0500	32 34 06 07 23 23 5c 32 36 36 5c 32 30 32 5c 33 32 36 5c 33 32 37 23 5c 22 29 5c 32 30 37 22 20	24..##\266\202\326\327#\")\207".
0520	5b 72 65 71 75 69 72 65 20 66 6f 72 74 68 2d 6d 6f 64 65 20 66 6f 72 74 68 2d 70 72 6f 63 20 22	[require.forth-mode.forth-proc."
0540	20 5c 5c 28 5c 6e 3a 5c 5c 7c 63 6f 6d 70 69 6c 65 64 5c 6e 5c 5c 7c 6f 6b 5c 6e 5c 5c 29 22 20	.\\(\n:\\|compiled\n\\|ok\n\\)".
0560	6e 69 6c 20 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 6d 61 70 63 61 72 20 6d 61 6b 65 2d 62	nil.process-buffer.mapcar.make-b
0580	79 74 65 2d 63 6f 64 65 20 32 35 37 20 22 5c 33 30 32 5c 33 30 33 5c 33 30 30 21 62 5c 32 31 30	yte-code.257."\302\303\300!b\210
05a0	60 5c 32 34 30 5c 32 31 30 5c 33 30 34 5c 33 30 30 02 5c 33 30 35 50 5c 22 5c 32 31 30 5c 33 30	`\240\210\304\300.\305P\"\210\30
05c0	32 5c 32 34 32 62 5c 32 31 30 5c 33 30 36 5c 33 30 31 5c 33 30 37 5c 33 31 30 23 5c 32 30 34 24	2\242b\210\306\301\307\310#\204$
05e0	00 5c 33 31 31 5c 33 30 30 5c 33 31 32 5c 22 5c 32 31 30 5c 32 30 32 10 00 5c 33 31 33 5c 33 31	.\311\300\312\"\210\202..\313\31
0600	34 21 5c 32 31 31 5c 33 31 35 5c 32 33 30 5c 32 30 33 3a 00 5c 33 31 36 5c 33 30 32 5c 32 34 32	4!\211\315\230\203:.\316\302\242
0620	5c 33 31 34 04 47 23 5c 33 31 37 5c 32 32 34 7b 5c 32 30 32 50 00 5c 32 31 31 5c 33 32 30 5c 32	\314.G#\317\224{\202P.\211\320\2
0640	33 30 5c 32 30 36 50 00 5c 32 31 31 5c 33 32 31 5c 32 33 30 5c 32 30 35 50 00 5c 33 32 32 5c 33	30\206P.\211\321\230\205P.\322\3
0660	31 34 5c 33 31 37 5c 32 32 34 54 64 7b 5c 22 5c 32 31 30 5c 33 30 37 5c 32 30 37 22 20 76 63 6f	14\317\224Td{\"\210\307\207".vco
0680	6e 63 61 74 20 76 65 63 74 6f 72 20 5b 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 63 6f 6d 69 6e 74	ncat.vector.[process-mark.comint
06a0	2d 73 65 6e 64 2d 73 74 72 69 6e 67 20 22 5c 6e 22 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77	-send-string."\n".re-search-forw
06c0	61 72 64 20 6e 69 6c 20 74 20 61 63 63 65 70 74 2d 70 72 6f 63 65 73 73 2d 6f 75 74 70 75 74 20	ard.nil.t.accept-process-output.
06e0	30 2e 30 31 20 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 22 6f 6b 5c 6e 22 20 2b 20 30 20 22	0.01.match-string.1."ok\n".+.0."
0700	63 6f 6d 70 69 6c 65 64 5c 6e 22 20 22 5c 6e 3a 22 20 6f 72 67 2d 62 61 62 65 6c 2d 65 76 61 6c	compiled\n"."\n:".org-babel-eval
0720	2d 65 72 72 6f 72 2d 6e 6f 74 69 66 79 5d 20 36 20 22 5c 6e 5c 6e 28 66 6e 20 4c 49 4e 45 29 22	-error-notify].6."\n\n(fn.LINE)"
0740	20 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62	.split-string.org-babel-expand-b
0760	6f 64 79 3a 67 65 6e 65 72 69 63 20 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74	ody:generic.replace-regexp-in-st
0780	72 69 6e 67 20 22 5c 5c 60 5c 5c 28 5b 20 09 5d 2a 5c 6e 5c 5c 29 2b 22 20 22 5c 5c 60 5b 20 09	ring."\\`\\([..]*\n\\)+"."\\`[..
07a0	5c 6e 0d 5d 2b 22 20 22 22 20 22 5b 20 09 5c 6e 0d 5d 2b 5c 5c 27 22 20 22 5c 6e 22 20 6f 6d 69	\n.]+".""."[..\n.]+\\'"."\n".omi
07c0	74 2d 6e 75 6c 6c 73 5d 20 31 37 20 28 23 24 20 2e 20 31 30 36 34 29 5d 29 0a 28 70 72 6f 76 69	t-nulls].17.(#$...1064)]).(provi
07e0	64 65 20 27 6f 62 2d 66 6f 72 74 68 29 0a	de.'ob-forth).