blob: 67d231e327a1b7ebdfe987a7062957d3ec5ba1bb (plain)

ofs	hex dump	ascii
0000	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 00 00 00 00 00 00 00 00 00 00 00 00	geiser-guile-0.28.3/............
0020	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0040	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0060	00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000755.0000000.0000000.0000
0080	30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 32 34 00 20 35 00 00 00	0000000.00000000000.012624..5...
00a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
00c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
00e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0100	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
0120	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
0140	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0160	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0180	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
01a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
01c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
01e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0200	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 6c 69 63 65 6e 73 65 00 00 00 00 00	geiser-guile-0.28.3/license.....
0220	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0260	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
0280	30 30 30 33 30 32 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 31 36 36 00 20 30 00 00 00	0003022.00000000000.014166..0...
02a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
02c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
02e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0300	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
0320	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
0340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
03a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
03c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
03e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0400	42 53 44 20 33 2d 43 6c 61 75 73 65 20 4c 69 63 65 6e 73 65 0a 0a 43 6f 70 79 72 69 67 68 74 20	BSD.3-Clause.License..Copyright.
0420	28 63 29 20 32 30 30 39 2c 20 32 30 31 30 2c 20 32 30 31 31 2c 20 32 30 31 32 2c 20 32 30 31 33	(c).2009,.2010,.2011,.2012,.2013
0440	2c 20 32 30 31 35 2c 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a	,.2015,.Jose.Antonio.Ortega.Ruiz
0460	0a 41 6c 6c 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 2e 0a 0a 52 65 64 69 73 74 72 69 62	.All.rights.reserved...Redistrib
0480	75 74 69 6f 6e 20 61 6e 64 20 75 73 65 20 69 6e 20 73 6f 75 72 63 65 20 61 6e 64 20 62 69 6e 61	ution.and.use.in.source.and.bina
04a0	72 79 20 66 6f 72 6d 73 2c 20 77 69 74 68 20 6f 72 20 77 69 74 68 6f 75 74 0a 6d 6f 64 69 66 69	ry.forms,.with.or.without.modifi
04c0	63 61 74 69 6f 6e 2c 20 61 72 65 20 70 65 72 6d 69 74 74 65 64 20 70 72 6f 76 69 64 65 64 20 74	cation,.are.permitted.provided.t
04e0	68 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 72 65	hat.the.following.conditions.are
0500	20 6d 65 74 3a 0a 0a 2a 20 52 65 64 69 73 74 72 69 62 75 74 69 6f 6e 73 20 6f 66 20 73 6f 75 72	.met:..*.Redistributions.of.sour
0520	63 65 20 63 6f 64 65 20 6d 75 73 74 20 72 65 74 61 69 6e 20 74 68 65 20 61 62 6f 76 65 20 63 6f	ce.code.must.retain.the.above.co
0540	70 79 72 69 67 68 74 20 6e 6f 74 69 63 65 2c 20 74 68 69 73 0a 20 20 6c 69 73 74 20 6f 66 20 63	pyright.notice,.this...list.of.c
0560	6f 6e 64 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 69 73 63	onditions.and.the.following.disc
0580	6c 61 69 6d 65 72 2e 0a 0a 2a 20 52 65 64 69 73 74 72 69 62 75 74 69 6f 6e 73 20 69 6e 20 62 69	laimer...*.Redistributions.in.bi
05a0	6e 61 72 79 20 66 6f 72 6d 20 6d 75 73 74 20 72 65 70 72 6f 64 75 63 65 20 74 68 65 20 61 62 6f	nary.form.must.reproduce.the.abo
05c0	76 65 20 63 6f 70 79 72 69 67 68 74 20 6e 6f 74 69 63 65 2c 0a 20 20 74 68 69 73 20 6c 69 73 74	ve.copyright.notice,...this.list
05e0	20 6f 66 20 63 6f 6e 64 69 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67	.of.conditions.and.the.following
0600	20 64 69 73 63 6c 61 69 6d 65 72 20 69 6e 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e	.disclaimer.in.the.documentation
0620	0a 20 20 61 6e 64 2f 6f 72 20 6f 74 68 65 72 20 6d 61 74 65 72 69 61 6c 73 20 70 72 6f 76 69 64	...and/or.other.materials.provid
0640	65 64 20 77 69 74 68 20 74 68 65 20 64 69 73 74 72 69 62 75 74 69 6f 6e 2e 0a 0a 2a 20 4e 65 69	ed.with.the.distribution...*.Nei
0660	74 68 65 72 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 63 6f 70 79 72 69 67 68 74 20 68	ther.the.name.of.the.copyright.h
0680	6f 6c 64 65 72 20 6e 6f 72 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 69 74 73 0a 20 20 63 6f 6e	older.nor.the.names.of.its...con
06a0	74 72 69 62 75 74 6f 72 73 20 6d 61 79 20 62 65 20 75 73 65 64 20 74 6f 20 65 6e 64 6f 72 73 65	tributors.may.be.used.to.endorse
06c0	20 6f 72 20 70 72 6f 6d 6f 74 65 20 70 72 6f 64 75 63 74 73 20 64 65 72 69 76 65 64 20 66 72 6f	.or.promote.products.derived.fro
06e0	6d 0a 20 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 77 69 74 68 6f 75 74 20 73 70 65 63 69 66	m...this.software.without.specif
0700	69 63 20 70 72 69 6f 72 20 77 72 69 74 74 65 6e 20 70 65 72 6d 69 73 73 69 6f 6e 2e 0a 0a 54 48	ic.prior.written.permission...TH
0720	49 53 20 53 4f 46 54 57 41 52 45 20 49 53 20 50 52 4f 56 49 44 45 44 20 42 59 20 54 48 45 20 43	IS.SOFTWARE.IS.PROVIDED.BY.THE.C
0740	4f 50 59 52 49 47 48 54 20 48 4f 4c 44 45 52 53 20 41 4e 44 20 43 4f 4e 54 52 49 42 55 54 4f 52	OPYRIGHT.HOLDERS.AND.CONTRIBUTOR
0760	53 20 22 41 53 20 49 53 22 0a 41 4e 44 20 41 4e 59 20 45 58 50 52 45 53 53 20 4f 52 20 49 4d 50	S."AS.IS".AND.ANY.EXPRESS.OR.IMP
0780	4c 49 45 44 20 57 41 52 52 41 4e 54 49 45 53 2c 20 49 4e 43 4c 55 44 49 4e 47 2c 20 42 55 54 20	LIED.WARRANTIES,.INCLUDING,.BUT.
07a0	4e 4f 54 20 4c 49 4d 49 54 45 44 20 54 4f 2c 20 54 48 45 0a 49 4d 50 4c 49 45 44 20 57 41 52 52	NOT.LIMITED.TO,.THE.IMPLIED.WARR
07c0	41 4e 54 49 45 53 20 4f 46 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 41 4e 44 20 46 49	ANTIES.OF.MERCHANTABILITY.AND.FI
07e0	54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 20 41	TNESS.FOR.A.PARTICULAR.PURPOSE.A
0800	52 45 0a 44 49 53 43 4c 41 49 4d 45 44 2e 20 49 4e 20 4e 4f 20 45 56 45 4e 54 20 53 48 41 4c 4c	RE.DISCLAIMED..IN.NO.EVENT.SHALL
0820	20 54 48 45 20 43 4f 50 59 52 49 47 48 54 20 48 4f 4c 44 45 52 20 4f 52 20 43 4f 4e 54 52 49 42	.THE.COPYRIGHT.HOLDER.OR.CONTRIB
0840	55 54 4f 52 53 20 42 45 20 4c 49 41 42 4c 45 0a 46 4f 52 20 41 4e 59 20 44 49 52 45 43 54 2c 20	UTORS.BE.LIABLE.FOR.ANY.DIRECT,.
0860	49 4e 44 49 52 45 43 54 2c 20 49 4e 43 49 44 45 4e 54 41 4c 2c 20 53 50 45 43 49 41 4c 2c 20 45	INDIRECT,.INCIDENTAL,.SPECIAL,.E
0880	58 45 4d 50 4c 41 52 59 2c 20 4f 52 20 43 4f 4e 53 45 51 55 45 4e 54 49 41 4c 0a 44 41 4d 41 47	XEMPLARY,.OR.CONSEQUENTIAL.DAMAG
08a0	45 53 20 28 49 4e 43 4c 55 44 49 4e 47 2c 20 42 55 54 20 4e 4f 54 20 4c 49 4d 49 54 45 44 20 54	ES.(INCLUDING,.BUT.NOT.LIMITED.T
08c0	4f 2c 20 50 52 4f 43 55 52 45 4d 45 4e 54 20 4f 46 20 53 55 42 53 54 49 54 55 54 45 20 47 4f 4f	O,.PROCUREMENT.OF.SUBSTITUTE.GOO
08e0	44 53 20 4f 52 0a 53 45 52 56 49 43 45 53 3b 20 4c 4f 53 53 20 4f 46 20 55 53 45 2c 20 44 41 54	DS.OR.SERVICES;.LOSS.OF.USE,.DAT
0900	41 2c 20 4f 52 20 50 52 4f 46 49 54 53 3b 20 4f 52 20 42 55 53 49 4e 45 53 53 20 49 4e 54 45 52	A,.OR.PROFITS;.OR.BUSINESS.INTER
0920	52 55 50 54 49 4f 4e 29 20 48 4f 57 45 56 45 52 0a 43 41 55 53 45 44 20 41 4e 44 20 4f 4e 20 41	RUPTION).HOWEVER.CAUSED.AND.ON.A
0940	4e 59 20 54 48 45 4f 52 59 20 4f 46 20 4c 49 41 42 49 4c 49 54 59 2c 20 57 48 45 54 48 45 52 20	NY.THEORY.OF.LIABILITY,.WHETHER.
0960	49 4e 20 43 4f 4e 54 52 41 43 54 2c 20 53 54 52 49 43 54 20 4c 49 41 42 49 4c 49 54 59 2c 0a 4f	IN.CONTRACT,.STRICT.LIABILITY,.O
0980	52 20 54 4f 52 54 20 28 49 4e 43 4c 55 44 49 4e 47 20 4e 45 47 4c 49 47 45 4e 43 45 20 4f 52 20	R.TORT.(INCLUDING.NEGLIGENCE.OR.
09a0	4f 54 48 45 52 57 49 53 45 29 20 41 52 49 53 49 4e 47 20 49 4e 20 41 4e 59 20 57 41 59 20 4f 55	OTHERWISE).ARISING.IN.ANY.WAY.OU
09c0	54 20 4f 46 20 54 48 45 20 55 53 45 0a 4f 46 20 54 48 49 53 20 53 4f 46 54 57 41 52 45 2c 20 45	T.OF.THE.USE.OF.THIS.SOFTWARE,.E
09e0	56 45 4e 20 49 46 20 41 44 56 49 53 45 44 20 4f 46 20 54 48 45 20 50 4f 53 53 49 42 49 4c 49 54	VEN.IF.ADVISED.OF.THE.POSSIBILIT
0a00	59 20 4f 46 20 53 55 43 48 20 44 41 4d 41 47 45 2e 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00	Y.OF.SUCH.DAMAGE................
0a20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0a40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0a60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0a80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0c00	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 72 65 61 64 6d 65 2e 6f 72 67 00 00	geiser-guile-0.28.3/readme.org..
0c20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0c60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
0c80	30 30 30 36 32 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 35 37 35 00 20 30 00 00 00	0006241.00000000000.014575..0...
0ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0d00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
0d20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
0d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
0e00	23 2b 54 49 54 4c 45 3a 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 74 61 6c 6b 20 74	#+TITLE:.Geiser.and.Guile.talk.t
0e20	6f 20 65 61 63 68 20 6f 74 68 65 72 0a 23 2b 4f 50 54 49 4f 4e 53 3a 20 64 3a 6e 69 6c 0a 23 2b	o.each.other.#+OPTIONS:.d:nil.#+
0e40	45 58 50 4f 52 54 5f 46 49 4c 45 5f 4e 41 4d 45 3a 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 74	EXPORT_FILE_NAME:.geiser-guile.t
0e60	65 78 69 0a 23 2b 54 45 58 49 4e 46 4f 5f 44 49 52 5f 43 41 54 45 47 4f 52 59 3a 20 45 6d 61 63	exi.#+TEXINFO_DIR_CATEGORY:.Emac
0e80	73 0a 23 2b 54 45 58 49 4e 46 4f 5f 44 49 52 5f 54 49 54 4c 45 3a 20 47 65 69 73 65 72 20 47 75	s.#+TEXINFO_DIR_TITLE:.Geiser.Gu
0ea0	69 6c 65 3a 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 29 2e 0a 23 2b 54 45 58 49 4e 46 4f 5f 44	ile:.(geiser-guile)..#+TEXINFO_D
0ec0	49 52 5f 44 45 53 43 3a 20 53 75 70 70 6f 72 74 20 66 6f 72 20 47 75 69 6c 65 20 69 6e 20 47 65	IR_DESC:.Support.for.Guile.in.Ge
0ee0	69 73 65 72 0a 0a 2a 20 4f 76 65 72 76 69 65 77 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 70	iser..*.Overview..This.package.p
0f00	72 6f 76 69 64 65 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 75 73 69 6e 67 20 5b 5b 68 74 74 70	rovides.support.for.using.[[http
0f20	73 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 73 6f 66 74 77 61 72 65 2f 67 75 69 6c 65 2f 5d	s://www.gnu.org/software/guile/]
0f40	5b 47 4e 55 20 47 75 69 6c 65 5d 5d 20 69 6e 20 45 6d 61 63 73 20 77 69 74 68 0a 5b 5b 68 74 74	[GNU.Guile]].in.Emacs.with.[[htt
0f60	70 3a 2f 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 5d 5b 47 65 69 73 65 72 5d 5d 2e	p://geiser.nongnu.org][Geiser]].
0f80	0a 0a 50 72 6f 76 69 64 65 64 20 5b 5b 68 74 74 70 73 3a 2f 2f 67 69 74 6c 61 62 2e 63 6f 6d 2f	..Provided.[[https://gitlab.com/
0fa0	65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 65 69 73 65 72 5d 5b 67 65 69 73 65 72 5d 5d 20 69 73	emacs-geiser/geiser][geiser]].is
0fc0	20 69 6e 73 74 61 6c 6c 65 64 20 69 6e 20 79 6f 75 72 20 73 79 73 74 65 6d 2c 20 69 66 20 74 68	.installed.in.your.system,.if.th
0fe0	69 73 20 70 61 63 6b 61 67 65 27 73 0a 64 69 72 65 63 74 6f 72 79 20 69 73 20 69 6e 20 79 6f 75	is.package's.directory.is.in.you
1000	72 20 6c 6f 61 64 20 70 61 74 68 2c 20 6a 75 73 74 20 61 64 64 20 7e 28 72 65 71 75 69 72 65 20	r.load.path,.just.add.~(require.
1020	27 67 65 69 73 65 72 2d 67 75 69 6c 65 29 7e 20 74 6f 0a 79 6f 75 72 20 69 6e 69 74 69 61 6c 69	'geiser-guile)~.to.your.initiali
1040	73 61 74 69 6f 6e 20 66 69 6c 65 73 20 61 6e 64 20 74 68 65 6e 20 7e 4d 2d 78 20 67 65 69 73 65	sation.files.and.then.~M-x.geise
1060	72 2d 67 75 69 6c 65 7e 20 74 6f 20 73 74 61 72 74 20 61 20 52 45 50 4c 2e 0a 53 63 68 65 6d 65	r-guile~.to.start.a.REPL..Scheme
1080	20 66 69 6c 65 73 20 77 69 74 68 20 61 20 47 75 69 6c 65 20 6d 6f 64 75 6c 65 20 64 65 63 6c 61	.files.with.a.Guile.module.decla
10a0	72 61 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 72	ration.should.be.automatically.r
10c0	65 63 6f 67 6e 69 73 65 64 20 61 73 20 47 75 69 6c 65 2d 66 6c 61 76 6f 75 72 65 64 20 47 65 69	ecognised.as.Guile-flavoured.Gei
10e0	73 65 72 20 62 75 66 66 65 72 73 2e 0a 0a 54 68 65 20 65 61 73 69 65 73 74 20 77 61 79 20 6f 66	ser.buffers...The.easiest.way.of
1100	20 69 6e 73 74 61 6c 6c 69 6e 67 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 75 73 69 6e	.installing.this.package.is.usin
1120	67 20 4e 6f 6e 47 4e 55 20 45 6c 70 61 20 6f 72 0a 4d 45 4c 50 41 2e 20 20 49 66 20 79 6f 75 27	g.NonGNU.Elpa.or.MELPA...If.you'
1140	72 65 20 69 6e 20 45 6d 61 63 73 20 32 38 20 6f 72 20 68 69 67 68 65 72 2c 20 74 68 65 20 66 6f	re.in.Emacs.28.or.higher,.the.fo
1160	72 6d 65 72 20 69 73 20 61 6c 72 65 61 64 79 20 65 6e 61 62 6c 65 64 0a 61 6e 64 20 61 6c 6c 20	rmer.is.already.enabled.and.all.
1180	79 6f 75 20 6e 65 65 64 20 69 73 20 74 68 65 20 66 61 6d 69 6c 69 61 72 0a 0a 23 2b 62 65 67 69	you.need.is.the.familiar..#+begi
11a0	6e 5f 73 72 63 20 65 6c 69 73 70 0a 20 20 4d 2d 78 20 69 6e 73 74 61 6c 6c 2d 70 61 63 6b 61 67	n_src.elisp...M-x.install-packag
11c0	65 20 52 45 54 20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 52 45 54 0a 23 2b 65 6e 64 5f 73 72 63	e.RET.geiser-guile.RET.#+end_src
11e0	0a 0a 54 68 61 74 20 77 69 6c 6c 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 20 67 65 69 73 65 72 2c	..That.will.also.install.geiser,
1200	20 61 6e 64 20 69 74 73 20 66 69 6e 65 20 69 6e 66 6f 20 6d 61 6e 75 61 6c 2e 20 20 50 6c 65 61	.and.its.fine.info.manual...Plea
1220	73 65 20 72 65 66 65 72 0a 74 6f 20 69 74 20 28 6f 72 20 69 74 73 20 5b 5b 68 74 74 70 73 3a 2f	se.refer.to.it.(or.its.[[https:/
1240	2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 5d 5b 6f 6e 6c 69 6e 65 20 76 65 72 73 69	/geiser.nongnu.org][online.versi
1260	6f 6e 5d 5d 29 20 66 6f 72 20 61 20 67 65 6e 65 72 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20	on]]).for.a.general.description.
1280	6f 66 20 68 6f 77 20 67 65 69 73 65 72 0a 73 63 68 65 6d 65 73 20 77 6f 72 6b 2e 20 20 57 65 20	of.how.geiser.schemes.work...We.
12a0	70 72 6f 76 69 64 65 20 62 65 6c 6f 77 20 73 6f 6d 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 64 65	provide.below.some.additional.de
12c0	74 61 69 6c 73 20 73 70 65 63 69 66 69 63 20 74 6f 0a 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 0a	tails.specific.to.geiser-guile..
12e0	0a 2a 20 53 74 61 72 74 20 75 70 0a 0a 20 20 57 68 65 6e 20 6c 61 75 6e 63 68 69 6e 67 20 74 68	.*.Start.up....When.launching.th
1300	65 20 47 75 69 6c 65 20 52 45 50 4c 2c 20 67 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 76 6f 6b 65	e.Guile.REPL,.geiser.will.invoke
1320	20 74 68 65 20 62 69 6e 61 72 79 0a 20 20 63 6f 6e 66 69 67 75 72 65 64 20 69 6e 20 7e 67 65 69	.the.binary...configured.in.~gei
1340	73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 7e 20 28 73 69 6d 70 6c 79 20 22 67 75 69 6c 65	ser-guile-binary~.(simply."guile
1360	22 20 62 79 20 64 65 66 61 75 6c 74 29 0a 20 20 77 68 69 63 68 20 69 6e 20 74 75 72 6e 20 77 69	".by.default)...which.in.turn.wi
1380	6c 6c 20 6c 6f 61 64 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7e	ll.load.~geiser-guile-init-file~
13a0	2c 20 69 66 20 61 6e 79 2e 0a 0a 20 20 4e 6f 74 65 2c 20 68 6f 77 65 76 65 72 2c 20 74 68 61 74	,.if.any.....Note,.however,.that
13c0	20 73 70 65 63 69 66 79 69 6e 67 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66	.specifying.~geiser-guile-init-f
13e0	69 6c 65 7e 20 69 73 20 2f 6e 6f 74 2f 0a 20 20 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 63 68	ile~.is./not/...equivalent.to.ch
1400	61 6e 67 69 6e 67 20 47 75 69 6c 65 27 73 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69	anging.Guile's.initialization.fi
1420	6c 65 20 28 3d 7e 2f 2e 67 75 69 6c 65 3d 29 2c 0a 20 20 62 65 63 61 75 73 65 20 74 68 65 20 66	le.(=~/.guile=),...because.the.f
1440	6f 72 6d 65 72 20 69 73 20 6c 6f 61 64 65 64 20 75 73 69 6e 67 20 74 68 65 20 3d 2d 6c 3d 20 66	ormer.is.loaded.using.the.=-l=.f
1460	6c 61 67 2c 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20 3d 2d 71 3d 0a 20 20 74 6f 20 64 69 73	lag,.together.with.=-q=...to.dis
1480	61 62 6c 65 20 6c 6f 61 64 69 6e 67 20 74 68 65 20 73 65 63 6f 6e 64 2e 20 20 42 75 74 20 74 68	able.loading.the.second...But.th
14a0	65 72 65 20 61 72 65 20 73 75 62 74 6c 65 20 64 69 66 66 65 72 65 6e 63 65 73 0a 20 20 69 6e 20	ere.are.subtle.differences...in.
14c0	74 68 65 20 77 61 79 20 47 75 69 6c 65 20 6c 6f 61 64 73 20 74 68 65 20 69 6e 69 74 69 61 6c 69	the.way.Guile.loads.the.initiali
14e0	7a 61 74 69 6f 6e 20 66 69 6c 65 20 76 65 72 73 75 73 20 68 6f 77 20 69 74 20 6c 6f 61 64 73 0a	zation.file.versus.how.it.loads.
1500	20 20 61 20 66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 76 69 61 20 74 68 65 20 3d 2d 6c 3d 20	..a.file.specified.via.the.=-l=.
1520	66 6c 61 67 2e 20 20 49 66 20 77 68 61 74 20 79 6f 75 20 77 61 6e 74 20 69 73 20 6a 75 73 74 0a	flag...If.what.you.want.is.just.
1540	20 20 6c 6f 61 64 69 6e 67 20 3d 7e 2f 2e 67 75 69 6c 65 3d 2c 20 6c 65 61 76 65 20 7e 67 65 69	..loading.=~/.guile=,.leave.~gei
1560	73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7e 20 61 6c 6f 6e 65 20 61 6e 64 20 73	ser-guile-init-file~.alone.and.s
1580	65 74 0a 20 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c	et...~geiser-guile-load-init-fil
15a0	65 7e 20 74 6f 20 7e 74 7e 20 69 6e 73 74 65 61 64 2e 0a 0a 20 20 4f 6e 65 20 63 61 6e 20 61 6c	e~.to.~t~.instead.....One.can.al
15c0	73 6f 20 70 72 6f 76 69 64 65 20 61 20 67 6c 6f 62 61 6c 20 6c 69 73 74 20 6f 66 20 70 61 74 68	so.provide.a.global.list.of.path
15e0	73 20 74 6f 20 61 64 64 20 74 6f 20 47 75 69 6c 65 27 73 0a 20 20 3d 25 6c 6f 61 64 2d 70 61 74	s.to.add.to.Guile's...=%load-pat
1600	68 3d 20 76 69 61 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 7e 2e	h=.via.~geiser-guile-load-path~.
1620	0a 0a 2a 20 54 65 78 69 6e 66 6f 20 64 6f 63 73 74 72 69 6e 67 73 0a 0a 20 20 59 6f 75 20 63 61	..*.Texinfo.docstrings....You.ca
1640	6e 20 65 6e 61 62 6c 65 20 70 72 6f 63 65 73 73 69 6e 67 20 6f 66 20 74 65 78 69 6e 66 6f 20 69	n.enable.processing.of.texinfo.i
1660	6e 20 64 6f 63 73 74 72 69 6e 67 73 20 62 79 20 63 75 73 74 6f 6d 69 7a 69 6e 67 0a 20 20 7e 67	n.docstrings.by.customizing...~g
1680	65 69 73 65 72 2d 67 75 69 6c 65 2d 64 6f 63 2d 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 7e	eiser-guile-doc-process-texinfo~
16a0	20 74 6f 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 20 20 49 66 20 65 6e 61 62 6c 65 64	.to.a.non-nil.value...If.enabled
16c0	20 61 6e 64 0a 20 20 64 6f 63 73 74 72 69 6e 67 20 69 73 20 61 20 76 61 6c 69 64 20 74 65 78 69	.and...docstring.is.a.valid.texi
16e0	6e 66 6f 20 73 6e 69 70 70 65 74 2c 20 69 74 20 77 69 6c 6c 20 62 65 20 63 6f 6e 76 65 72 74 65	nfo.snippet,.it.will.be.converte
1700	64 20 69 6e 74 6f 20 61 20 70 6c 61 69 6e 20 74 65 78 74 0a 20 20 62 65 66 6f 72 65 20 62 65 69	d.into.a.plain.text...before.bei
1720	6e 67 20 64 69 73 70 6c 61 79 65 64 2e 0a 0a 2a 20 44 65 62 75 67 67 69 6e 67 20 73 75 70 70 6f	ng.displayed...*.Debugging.suppo
1740	72 74 0a 0a 20 20 47 75 69 6c 65 20 73 75 70 70 6f 72 74 73 20 61 6c 6c 20 74 68 65 20 64 65 62	rt....Guile.supports.all.the.deb
1760	75 67 67 65 72 20 63 6f 6d 6d 61 6e 64 73 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 47 65 69 73	ugger.commands.supported.by.Geis
1780	65 72 20 28 69 74 27 73 0a 20 20 69 6e 20 66 61 63 74 20 75 73 65 64 20 61 73 20 74 68 65 20 72	er.(it's...in.fact.used.as.the.r
17a0	65 66 65 72 65 6e 63 65 20 66 6f 72 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20	eference.for.the.implementation.
17c0	61 6e 64 20 64 65 73 69 67 6e 20 6f 66 0a 20 20 74 68 61 74 20 73 75 70 70 6f 72 74 29 2e 20 20	and.design.of...that.support)...
17e0	57 68 65 6e 20 74 68 65 20 52 45 50 4c 20 77 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 20 65 6e 74	When.the.REPL.would.normally.ent
1800	65 72 20 69 74 73 20 64 65 62 75 67 20 6d 6f 64 65 2c 0a 20 20 77 69 74 68 20 61 20 70 72 6f 6d	er.its.debug.mode,...with.a.prom
1820	70 74 20 6f 66 20 74 68 65 20 73 74 79 6c 65 3a 0a 0a 20 20 20 20 20 20 73 63 68 65 6d 65 40 28	pt.of.the.style:........scheme@(
1840	67 75 69 6c 65 2d 75 73 65 72 29 20 5b 31 5d 3e 0a 0a 20 20 73 68 6f 77 69 6e 67 20 61 20 64 65	guile-user).[1]>....showing.a.de
1860	62 75 67 67 69 6e 67 20 6c 65 76 65 6c 2c 20 47 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 73 74 65	bugging.level,.Geiser.will.inste
1880	61 64 20 62 72 69 6e 67 20 79 6f 75 20 74 6f 20 74 68 65 0a 20 20 3d 2a 47 65 69 73 65 72 20 44	ad.bring.you.to.the...=*Geiser.D
18a0	62 67 2a 3d 20 62 75 66 66 65 72 2c 20 77 68 65 72 65 20 79 6f 75 20 63 61 6e 20 61 63 63 65 73	bg*=.buffer,.where.you.can.acces
18c0	73 20 61 20 6d 65 6e 75 20 6f 66 20 64 65 62 75 67 67 69 6e 67 0a 20 20 63 6f 6d 6d 61 6e 64 73	s.a.menu.of.debugging...commands
18e0	20 76 69 61 20 74 68 65 20 7e 2c 7e 20 28 63 6f 6d 6d 61 29 20 6b 65 79 2e 0a 0a 20 20 54 68 65	.via.the.~,~.(comma).key.....The
1900	20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 67 72 6f 75	.geiser-guile.customization.grou
1920	70 20 77 69 6c 6c 20 73 68 6f 77 20 79 6f 75 2c 20 61 6d 6f 6e 67 20 6d 61 6e 79 0a 20 20 6f 74	p.will.show.you,.among.many...ot
1940	68 65 72 2c 20 61 20 66 65 77 20 66 6c 61 67 73 20 66 69 6e 65 2d 74 75 6e 69 6e 67 20 69 6e 74	her,.a.few.flags.fine-tuning.int
1960	65 72 61 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 64 65 62 75 67 67 65 72 2c 20 61 73 0a 20	eraction.with.the.debugger,.as..
1980	20 77 65 6c 6c 20 61 73 20 74 68 69 6e 67 73 20 6c 69 6b 65 20 74 68 65 20 64 65 74 61 69 6c 20	.well.as.things.like.the.detail.
19a0	6c 65 76 65 6c 20 6f 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 20 28 65 2e 67 2e 20 76 69	level.of.error.messages.(e.g..vi
19c0	61 0a 20 20 7e 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 7e	a...~geiser-guile-warning-level~
19e0	29 2e 0a 0a 2a 20 54 72 61 6d 70 20 73 75 70 70 6f 72 74 0a 20 20 47 65 69 73 65 72 20 67 75 69	)...*.Tramp.support...Geiser.gui
1a00	6c 65 20 63 61 6e 20 62 65 20 75 73 65 64 20 72 65 6d 6f 74 65 6c 79 20 76 69 61 20 74 72 61 6d	le.can.be.used.remotely.via.tram
1a20	70 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 3a 20 74 68 65 20 52 45 50 4c 0a 20 20 70 72 6f 63 65 73	p.connections:.the.REPL...proces
1a40	73 20 77 69 6c 6c 20 62 65 20 72 75 6e 20 69 6e 20 74 68 65 20 6d 61 63 68 69 6e 65 20 77 68 65	s.will.be.run.in.the.machine.whe
1a60	72 65 20 74 68 65 20 74 72 61 6d 70 2d 61 63 63 65 73 73 65 64 20 66 69 6c 65 0a 20 20 6c 69 76	re.the.tramp-accessed.file...liv
1a80	65 73 2e 20 20 49 6d 70 6c 65 6d 65 6e 74 65 64 20 62 79 20 46 65 6c 69 70 65 20 4c 65 6d 61 2e	es...Implemented.by.Felipe.Lema.
1aa0	0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1b00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1b20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1c00	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 67 65 69 73 65 72 2d 67 75 69 6c 65	geiser-guile-0.28.3/geiser-guile
1c20	2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.el.............................
1c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1c60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
1c80	30 30 36 36 32 35 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 34 35 00 20 30 00 00 00	0066255.00000000000.015545..0...
1ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1d00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
1d20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
1d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
1e00	3b 3b 3b 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 65 6c 20 2d 2d 2d 20 47 75 69 6c 65 20 61 6e	;;;.geiser-guile.el.---.Guile.an
1e20	64 20 47 65 69 73 65 72 20 74 61 6c 6b 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 20 20 2d 2a 2d	d.Geiser.talk.to.each.other..-*-
1e40	20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70	.lexical-binding:.t;.-*-..;;.Cop
1e60	79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2d 32 30 32 34 20 4a 6f 73 65 20 41 6e 74 6f 6e 69	yright.(C).2009-2024.Jose.Antoni
1e80	6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 53 75 6e	o.Ortega.Ruiz.;;.Start.date:.Sun
1ea0	20 4d 61 72 20 30 38 2c 20 32 30 30 39 20 32 33 3a 30 33 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20	.Mar.08,.2009.23:03..;;.Author:.
1ec0	4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 20 28 6a 61 6f 40 67 6e	Jose.Antonio.Ortega.Ruiz.(jao@gn
1ee0	75 2e 6f 72 67 29 0a 3b 3b 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 4a 6f 73 65 20 41 6e 74 6f 6e	u.org).;;.Maintainer:.Jose.Anton
1f00	69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 20 28 6a 61 6f 40 67 6e 75 2e 6f 72 67 29 0a 3b 3b 20	io.Ortega.Ruiz.(jao@gnu.org).;;.
1f20	4b 65 79 77 6f 72 64 73 3a 20 6c 61 6e 67 75 61 67 65 73 2c 20 67 75 69 6c 65 2c 20 73 63 68 65	Keywords:.languages,.guile,.sche
1f40	6d 65 2c 20 67 65 69 73 65 72 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f	me,.geiser.;;.Homepage:.https://
1f60	67 69 74 6c 61 62 2e 63 6f 6d 2f 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 75 69 6c 65 0a 3b 3b	gitlab.com/emacs-geiser/guile.;;
1f80	20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 36 2e 31	.Package-Requires:.((emacs."26.1
1fa0	22 29 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 33 22 29 20 28 67 65 69 73 65 72 20 22 30 2e	").(transient."0.3").(geiser."0.
1fc0	32 38 2e 31 22 29 29 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69	28.1")).;;.SPDX-License-Identifi
1fe0	65 72 3a 20 42 53 44 2d 33 2d 43 6c 61 75 73 65 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 30 2e 32	er:.BSD-3-Clause.;;.Version:.0.2
2000	38 2e 33 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 70 61 72 74 20 6f 66	8.3..;;.This.file.is.NOT.part.of
2020	20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b	.GNU.Emacs...;;;.Commentary:..;;
2040	20 54 68 69 73 20 70 61 63 6b 61 67 65 20 65 78 74 65 6e 64 73 20 74 68 65 20 60 67 65 69 73 65	.This.package.extends.the.`geise
2060	72 27 20 63 6f 72 65 20 70 61 63 6b 61 67 65 20 74 6f 20 73 75 70 70 6f 72 74 20 47 4e 55 0a 3b	r'.core.package.to.support.GNU.;
2080	3b 20 47 75 69 6c 65 2e 0a 0a 0c 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20	;.Guile.....;;;.Code:..(require.
20a0	27 67 65 69 73 65 72 2d 63 6f 6e 6e 65 63 74 69 6f 6e 29 0a 28 72 65 71 75 69 72 65 20 27 67 65	'geiser-connection).(require.'ge
20c0	69 73 65 72 2d 73 79 6e 74 61 78 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 63 75	iser-syntax).(require.'geiser-cu
20e0	73 74 6f 6d 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 72 65 70 6c 29 0a 28 72 65	stom).(require.'geiser-repl).(re
2100	71 75 69 72 65 20 27 67 65 69 73 65 72 2d 64 65 62 75 67 29 0a 28 72 65 71 75 69 72 65 20 27 67	quire.'geiser-debug).(require.'g
2120	65 69 73 65 72 2d 69 6d 70 6c 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 62 61 73	eiser-impl).(require.'geiser-bas
2140	65 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 2d 65 76 61 6c 29 0a 28 72 65 71 75 69	e).(require.'geiser-eval).(requi
2160	72 65 20 27 67 65 69 73 65 72 2d 65 64 69 74 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65	re.'geiser-edit).(require.'geise
2180	72 2d 6c 6f 67 29 0a 28 72 65 71 75 69 72 65 20 27 67 65 69 73 65 72 29 0a 0a 28 72 65 71 75 69	r-log).(require.'geiser)..(requi
21a0	72 65 20 27 74 72 61 6e 73 69 65 6e 74 29 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 70 69 6c 65	re.'transient).(require.'compile
21c0	29 0a 28 72 65 71 75 69 72 65 20 27 69 6e 66 6f 2d 6c 6f 6f 6b 29 0a 28 72 65 71 75 69 72 65 20	).(require.'info-look).(require.
21e0	27 74 72 61 6d 70 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 72	'tramp)..(eval-when-compile...(r
2200	65 71 75 69 72 65 20 27 63 6c 2d 6c 69 62 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 75 62 72	equire.'cl-lib)...(require.'subr
2220	2d 78 29 29 0a 0a 0c 0a 3b 3b 3b 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 0a 28 64 65 66 67	-x))....;;;.Customization..(defg
2240	72 6f 75 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 6e 69 6c 0a 20 20 22 43 75 73 74 6f 6d 69	roup.geiser-guile.nil..."Customi
2260	7a 61 74 69 6f 6e 20 66 6f 72 20 47 65 69 73 65 72 27 73 20 47 75 69 6c 65 20 66 6c 61 76 6f 75	zation.for.Geiser's.Guile.flavou
2280	72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 67 65 69 73 65 72 29 0a 0a 28 67 65 69 73 65 72 2d 63	r."...:group.'geiser)..(geiser-c
22a0	75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69	ustom--defcustom.geiser-guile-bi
22c0	6e 61 72 79 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20	nary.....(cond.((eq.system-type.
22e0	27 77 69 6e 64 6f 77 73 2d 6e 74 29 20 22 67 75 69 6c 65 2e 65 78 65 22 29 0a 20 20 20 20 20 20	'windows-nt)."guile.exe").......
2300	20 20 20 20 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 20 22 67	....((eq.system-type.'darwin)."g
2320	75 69 6c 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 22 67 75 69 6c 65 22 29 29 0a 20 20	uile")...........(t."guile"))...
2340	22 4e 61 6d 65 20 74 6f 20 75 73 65 20 74 6f 20 63 61 6c 6c 20 74 68 65 20 47 75 69 6c 65 20 65	"Name.to.use.to.call.the.Guile.e
2360	78 65 63 75 74 61 62 6c 65 20 77 68 65 6e 20 73 74 61 72 74 69 6e 67 20 61 20 52 45 50 4c 2e 22	xecutable.when.starting.a.REPL."
2380	0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 73 74 72 69 6e 67 20 28 72 65 70 65 61 74	...:type.'(choice.string.(repeat
23a0	20 73 74 72 69 6e 67 29 29 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63	.string)))..(geiser-custom--defc
23c0	75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 20 6e 69 6c	ustom.geiser-guile-load-path.nil
23e0	0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 70 61 74 68 73 20 74 6f 20 62 65 20 61 64 64 65 64 20	..."A.list.of.paths.to.be.added.
2400	74 6f 20 47 75 69 6c 65 27 73 20 6c 6f 61 64 20 70 61 74 68 20 77 68 65 6e 20 69 74 27 73 20 73	to.Guile's.load.path.when.it's.s
2420	74 61 72 74 65 64 2e 0a 54 68 65 20 70 61 74 68 73 20 61 72 65 20 61 64 64 65 64 20 74 6f 20 62	tarted..The.paths.are.added.to.b
2440	6f 74 68 20 25 60 6c 6f 61 64 2d 70 61 74 68 27 20 61 6e 64 20 25 6c 6f 61 64 2d 63 6f 6d 70 69	oth.%`load-path'.and.%load-compi
2460	6c 65 64 20 70 61 74 68 2c 0a 61 6e 64 20 6f 6e 6c 79 20 69 66 20 74 68 65 79 20 61 72 65 20 6e	led.path,.and.only.if.they.are.n
2480	6f 74 20 61 6c 72 65 61 64 79 20 70 72 65 73 65 6e 74 2e 20 20 54 68 69 73 20 76 61 72 69 61 62	ot.already.present...This.variab
24a0	6c 65 20 69 73 20 61 0a 67 6f 6f 64 20 63 61 6e 64 69 64 61 74 65 20 66 6f 72 20 61 6e 20 65 6e	le.is.a.good.candidate.for.an.en
24c0	74 72 79 20 69 6e 20 79 6f 75 72 20 70 72 6f 6a 65 63 74 27 73 20 2e 64 69 72 2d 6c 6f 63 61 6c	try.in.your.project's..dir-local
24e0	73 2e 65 6c 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 66 69 6c 65 29 29 0a 0a	s.el."...:type.'(repeat.file))..
2500	28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72	(geiser-custom--defcustom.geiser
2520	2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 20 22 7e 2f 2e 67 75 69 6c 65 2d 67 65 69 73 65	-guile-init-file."~/.guile-geise
2540	72 22 0a 20 20 22 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69 6c 65 20 77 69 74 68 20 75	r"..."Initialization.file.with.u
2560	73 65 72 20 63 6f 64 65 20 66 6f 72 20 74 68 65 20 47 75 69 6c 65 20 52 45 50 4c 2e 0a 49 66 20	ser.code.for.the.Guile.REPL..If.
2580	61 6c 6c 20 79 6f 75 20 77 61 6e 74 20 69 73 20 74 6f 20 6c 6f 61 64 20 7e 2f 2e 67 75 69 6c 65	all.you.want.is.to.load.~/.guile
25a0	2c 20 73 65 74 0a 60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69	,.set.`geiser-guile-load-init-fi
25c0	6c 65 27 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a	le'.instead."...:type.'string)..
25e0	28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a	(define-obsolete-variable-alias.
2600	20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 2d 70	..'geiser-guile-load-init-file-p
2620	20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 20 22 30	.'geiser-guile-load-init-file."0
2640	2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74	.26.2")..(geiser-custom--defcust
2660	6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 20 6e	om.geiser-guile-load-init-file.n
2680	69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 6c 6f 61 64 20 7e 2f 2e 67 75 69 6c 65 20 77	il..."Whether.to.load.~/.guile.w
26a0	68 65 6e 20 73 74 61 72 74 69 6e 67 20 47 75 69 6c 65 2e 0a 4e 6f 74 65 20 74 68 61 74 2c 20 64	hen.starting.Guile..Note.that,.d
26c0	75 65 20 74 6f 20 70 65 63 75 6c 69 61 72 69 74 69 65 73 20 69 6e 20 74 68 65 20 77 61 79 20 47	ue.to.peculiarities.in.the.way.G
26e0	75 69 6c 65 20 6c 6f 61 64 73 20 69 74 73 20 69 6e 69 74 0a 66 69 6c 65 2c 20 75 73 69 6e 67 20	uile.loads.its.init.file,.using.
2700	60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 27 20 69 73 20 6e 6f 74 20	`geiser-guile-init-file'.is.not.
2720	65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 73 65 74 74 69 6e 67 0a 74 68 69 73 20 76 61 72 69 61	equivalent.to.setting.this.varia
2740	62 6c 65 20 74 6f 20 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64	ble.to.t."...:type.'boolean)..(d
2760	65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20	efine-obsolete-variable-alias...
2780	27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f	'geiser-guile-use-declarative-mo
27a0	64 75 6c 65 73 2d 70 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 72	dules-p.'geiser-guile-use-declar
27c0	61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 0a 20 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 73	ative-modules..."0.26.2")..(geis
27e0	65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c	er-custom--defcustom.geiser-guil
2800	65 2d 75 73 65 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 20 6e 69 6c 0a 20 20	e-use-declarative-modules.nil...
2820	22 57 68 65 74 68 65 72 20 47 75 69 6c 65 20 73 68 6f 75 6c 64 20 75 73 65 20 5c 22 64 65 63 6c	"Whether.Guile.should.use.\"decl
2840	61 72 61 74 69 76 65 5c 22 20 6d 6f 64 75 6c 65 73 20 6c 69 6d 69 74 69 6e 67 20 6d 75 74 61 62	arative\".modules.limiting.mutab
2860	69 6c 69 74 79 2e 0a 57 68 65 6e 20 73 65 74 20 74 6f 20 60 74 27 2c 20 47 75 69 6c 65 20 77 69	ility..When.set.to.`t',.Guile.wi
2880	6c 6c 20 65 6e 66 6f 72 63 65 20 69 6d 6d 75 74 61 62 6c 65 20 62 69 6e 64 69 6e 67 73 20 69 6e	ll.enforce.immutable.bindings.in
28a0	0a 65 78 70 6f 72 74 65 64 20 6d 6f 64 75 6c 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f	.exported.modules."...:type.'boo
28c0	6c 65 61 6e 0a 20 20 3a 6c 69 6e 6b 20 27 28 69 6e 66 6f 2d 6c 69 6e 6b 20 22 28 67 75 69 6c 65	lean...:link.'(info-link."(guile
28e0	29 20 44 65 63 6c 61 72 61 74 69 76 65 20 4d 6f 64 75 6c 65 73 22 29 29 0a 0a 28 67 65 69 73 65	).Declarative.Modules"))..(geise
2900	72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65	r-custom--defcustom.geiser-guile
2920	2d 64 65 62 75 67 2d 62 61 63 6b 77 61 72 64 73 2d 62 61 63 6b 74 72 61 63 65 20 74 0a 20 20 22	-debug-backwards-backtrace.t..."
2940	57 68 65 74 68 65 72 20 74 6f 20 63 6f 6e 66 69 67 75 72 65 20 62 61 63 6b 74 72 61 63 65 73 20	Whether.to.configure.backtraces.
2960	75 73 69 6e 67 20 74 68 65 20 5c 5c 3d 27 62 61 63 6b 77 61 72 64 73 20 6f 72 64 65 72 69 6e 67	using.the.\\='backwards.ordering
2980	2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 67 65 69 73 65 72 2d 63 75	."...:type.'boolean)..(geiser-cu
29a0	73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62	stom--defcustom.geiser-guile-deb
29c0	75 67 2d 74 65 72 6d 69 6e 61 6c 2d 77 69 64 74 68 20 39 39 39 0a 20 20 22 4d 61 78 69 6d 75 6d	ug-terminal-width.999..."Maximum
29e0	20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 6e 73 20 73 68 6f 77 6e 20 69 6e 20 62 61 63 6b	.number.of.columns.shown.in.back
2a00	74 72 61 63 65 73 2e 0a 4e 6f 72 6d 61 6c 6c 79 2c 20 79 6f 75 27 64 20 77 61 6e 74 20 61 20 62	traces..Normally,.you'd.want.a.b
2a20	69 67 20 76 61 6c 75 65 20 68 65 72 65 20 73 6f 20 74 68 61 74 20 6d 65 73 73 61 67 65 73 20 61	ig.value.here.so.that.messages.a
2a40	72 65 20 6e 6f 74 0a 74 72 75 6e 63 61 74 65 64 2e 20 20 53 65 74 20 74 6f 20 61 20 6e 65 67 61	re.not.truncated...Set.to.a.nega
2a60	74 69 76 65 20 76 61 6c 75 65 20 69 66 20 79 6f 75 20 70 72 65 66 65 72 20 74 68 61 74 20 67 65	tive.value.if.you.prefer.that.ge
2a80	69 73 65 72 0a 64 6f 65 73 20 6e 6f 74 20 73 65 74 20 69 74 20 6f 6e 20 73 74 61 72 74 75 70 2e	iser.does.not.set.it.on.startup.
2aa0	22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73	"...:type.'integer)..(define-obs
2ac0	6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 65 72 2d 67	olete-variable-alias...'geiser-g
2ae0	75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 74 2d 70 20 27 67 65 69 73 65 72 2d 67 75 69	uile-debug-show-bt-p.'geiser-gui
2b00	6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 74 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69	le-debug-show-bt."0.26.2")..(gei
2b20	73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69	ser-custom--defcustom.geiser-gui
2b40	6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 74 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f	le-debug-show-bt.t..."Whether.to
2b60	20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 73 68 6f 77 20 61 20 66 75 6c 6c 20 62 61 63 6b 74	.automatically.show.a.full.backt
2b80	72 61 63 65 20 77 68 65 6e 20 65 6e 74 65 72 69 6e 67 20 74 68 65 20 64 65 62 75 67 67 65 72 2e	race.when.entering.the.debugger.
2ba0	0a 49 66 20 6e 69 6c 2c 20 6f 6e 6c 79 20 74 68 65 20 6c 61 73 74 20 66 72 61 6d 65 20 69 73 20	.If.nil,.only.the.last.frame.is.
2bc0	73 68 6f 77 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69	shown."...:type.'boolean)..(defi
2be0	6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65	ne-obsolete-variable-alias...'ge
2c00	69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 66 75 6c 6c 2d 62 74 2d 70 20	iser-guile-debug-show-full-bt-p.
2c20	27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 66 75 6c 6c 2d 62 74	'geiser-guile-debug-show-full-bt
2c40	20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63	."0.26.2")..(geiser-custom--defc
2c60	75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 66 75	ustom.geiser-guile-debug-show-fu
2c80	6c 6c 2d 62 74 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 73 68 6f 77 20 66 75 6c 6c 20	ll-bt.t..."Whether.to.show.full.
2ca0	62 61 63 6b 74 72 61 63 65 73 20 69 6e 20 74 68 65 20 64 65 62 75 67 67 65 72 2c 20 69 6e 63 6c	backtraces.in.the.debugger,.incl
2cc0	75 64 69 6e 67 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 22 0a 20 20 3a 74 79 70 65 20	uding.local.variables."...:type.
2ce0	27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69	'boolean)..(define-obsolete-vari
2d00	61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f 77 2d	able-alias...'geiser-guile-show-
2d20	64 65 62 75 67 2d 68 65 6c 70 2d 70 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f 77 2d	debug-help-p.'geiser-guile-show-
2d40	64 65 62 75 67 2d 68 65 6c 70 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75	debug-help."0.26.2")..(geiser-cu
2d60	73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 68 6f	stom--defcustom.geiser-guile-sho
2d80	77 2d 64 65 62 75 67 2d 68 65 6c 70 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 73 68 6f	w-debug-help.t..."Whether.to.sho
2da0	77 20 62 72 69 65 66 20 68 65 6c 70 20 69 6e 20 74 68 65 20 65 63 68 6f 20 61 72 65 61 20 77 68	w.brief.help.in.the.echo.area.wh
2dc0	65 6e 20 65 6e 74 65 72 69 6e 67 20 74 68 65 20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 3a 74 79	en.entering.the.debugger."...:ty
2de0	70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65	pe.'boolean)..(geiser-custom--de
2e00	66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76	fcustom.geiser-guile-warning-lev
2e20	65 6c 20 27 6d 65 64 69 75 6d 0a 20 20 22 56 65 72 62 6f 73 69 74 79 20 6f 66 20 74 68 65 20 77	el.'medium..."Verbosity.of.the.w
2e40	61 72 6e 69 6e 67 73 20 72 65 70 6f 72 74 65 64 20 62 79 20 47 75 69 6c 65 2e 0a 0a 59 6f 75 20	arnings.reported.by.Guile...You.
2e60	63 61 6e 20 65 69 74 68 65 72 20 63 68 6f 6f 73 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 70 72 65	can.either.choose.one.of.the.pre
2e80	64 65 66 69 6e 65 64 20 77 61 72 6e 69 6e 67 20 73 65 74 73 2c 20 6f 72 0a 70 72 6f 76 69 64 65	defined.warning.sets,.or.provide
2ea0	20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74	.a.list.of.symbols.identifying.t
2ec0	68 65 20 6f 6e 65 73 20 79 6f 75 20 77 61 6e 74 2e 20 20 50 6f 73 73 69 62 6c 65 0a 63 68 6f 69	he.ones.you.want...Possible.choi
2ee0	63 65 73 20 61 72 65 20 61 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 2c 20 75 6e 62 6f 75 6e 64 2d	ces.are.arity-mismatch,.unbound-
2f00	76 61 72 69 61 62 6c 65 2c 20 75 6e 75 73 65 64 2d 76 61 72 69 61 62 6c 65 20 61 6e 64 0a 75 6e	variable,.unused-variable.and.un
2f20	75 73 65 64 2d 74 6f 70 6c 65 76 65 6c 2e 20 20 55 6e 72 65 63 6f 67 6e 69 73 65 64 20 73 79 6d	used-toplevel...Unrecognised.sym
2f40	62 6f 6c 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 0a 54 68 65 20 70 72 65 64 65 66 69 6e 65	bols.are.ignored...The.predefine
2f60	64 20 6c 65 76 65 6c 73 20 61 72 65 3a 0a 0a 20 20 2d 20 4d 65 64 69 75 6d 3a 20 61 72 69 74 79	d.levels.are:....-.Medium:.arity
2f80	2d 6d 69 73 6d 61 74 63 68 2c 20 75 6e 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 2c 20 66 6f 72	-mismatch,.unbound-variable,.for
2fa0	6d 61 74 0a 20 20 2d 20 48 69 67 68 3a 20 61 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 2c 20 75 6e	mat...-.High:.arity-mismatch,.un
2fc0	62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 2c 20 75 6e 75 73 65 64 2d 76 61 72 69 61 62 6c 65 2c	bound-variable,.unused-variable,
2fe0	20 66 6f 72 6d 61 74 0a 20 20 2d 20 4e 6f 6e 65 3a 20 6e 6f 20 77 61 72 6e 69 6e 67 73 0a 0a 43	.format...-.None:.no.warnings..C
3000	68 61 6e 67 65 73 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 69 73 20 76 61 72 69	hanges.to.the.value.of.this.vari
3020	61 62 6c 65 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 74 61 6b 65 0a 65 66 66	able.will.automatically.take.eff
3040	65 63 74 20 6f 6e 20 6e 65 77 20 52 45 50 4c 73 2e 20 20 46 6f 72 20 65 78 69 73 74 69 6e 67 20	ect.on.new.REPLs...For.existing.
3060	6f 6e 65 73 2c 20 75 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 0a 5c 5c 5b 67 65 69 73 65 72 2d	ones,.use.the.command.\\[geiser-
3080	67 75 69 6c 65 2d 75 70 64 61 74 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 5d 2e 22 0a 20 20	guile-update-warning-level]."...
30a0	3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4d 65 64 69	:type.'(choice.(const.:tag."Medi
30c0	75 6d 20 28 61 72 69 74 79 20 61 6e 64 20 75 6e 62 6f 75 6e 64 20 76 61 72 73 29 22 20 6d 65 64	um.(arity.and.unbound.vars)".med
30e0	69 75 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61	ium)..................(const.:ta
3100	67 20 22 48 69 67 68 20 28 61 6c 73 6f 20 75 6e 75 73 65 64 20 76 61 72 73 29 22 20 68 69 67 68	g."High.(also.unused.vars)".high
3120	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22	)..................(const.:tag."
3140	4e 6f 20 77 61 72 6e 69 6e 67 73 22 20 6e 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	No.warnings".none)..............
3160	20 20 20 20 28 72 65 70 65 61 74 20 3a 74 61 67 20 22 43 75 73 74 6f 6d 22 20 73 79 6d 62 6f 6c	....(repeat.:tag."Custom".symbol
3180	29 29 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67	)))..(geiser-custom--defcustom.g
31a0	65 69 73 65 72 2d 67 75 69 6c 65 2d 65 78 74 72 61 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 0a 20	eiser-guile-extra-keywords.nil..
31c0	20 22 45 78 74 72 61 20 6b 65 79 77 6f 72 64 73 20 68 69 67 68 6c 69 67 68 74 65 64 20 69 6e 20	."Extra.keywords.highlighted.in.
31e0	47 75 69 6c 65 20 73 63 68 65 6d 65 20 62 75 66 66 65 72 73 2e 22 0a 20 20 3a 74 79 70 65 20 27	Guile.scheme.buffers."...:type.'
3200	28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65	(repeat.string))..(define-obsole
3220	74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c	te-variable-alias...'geiser-guil
3240	65 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 2d 70 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65	e-case-sensitive-p.'geiser-guile
3260	2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 22 30 2e 32 36 2e 32 22 29 0a 0a 28 67 65 69 73	-case-sensitive."0.26.2")..(geis
3280	65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c	er-custom--defcustom.geiser-guil
32a0	65 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 74 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65	e-case-sensitive.t..."Non-nil.me
32c0	61 6e 73 20 6b 65 79 77 6f 72 64 20 68 69 67 68 6c 69 67 68 74 69 6e 67 20 69 73 20 63 61 73 65	ans.keyword.highlighting.is.case
32e0	2d 73 65 6e 73 69 74 69 76 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a	-sensitive."...:type.'boolean)..
3300	28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 0a	(define-obsolete-variable-alias.
3320	20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74	..'geiser-guile-manual-lookup-ot
3340	68 65 72 2d 77 69 6e 64 6f 77 2d 70 0a 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e	her-window-p...'geiser-guile-man
3360	75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 30 2e 32 36 2e 32 22	ual-lookup-other-window."0.26.2"
3380	29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69	)..(geiser-custom--defcustom.gei
33a0	73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 69	ser-guile-manual-lookup-other-wi
33c0	6e 64 6f 77 20 6e 69 6c 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 70 6f 70 20 75 70	ndow.nil..."Non-nil.means.pop.up
33e0	20 74 68 65 20 49 6e 66 6f 20 62 75 66 66 65 72 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 69 6e 64	.the.Info.buffer.in.another.wind
3400	6f 77 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 67 65 69 73 65 72 2d	ow."...:type.'boolean)..(geiser-
3420	63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d	custom--defcustom.geiser-guile-m
3440	61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6e 6f 64 65 73 0a 20 20 20 20 27 28 22 47 75 69 6c 65 22	anual-lookup-nodes.....'("Guile"
3460	20 22 67 75 69 6c 65 2d 32 2e 30 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 69 6e 66 6f 20 6e 6f	."guile-2.0")..."List.of.info.no
3480	64 65 73 20 74 68 61 74 2c 20 77 68 65 6e 20 70 72 65 73 65 6e 74 2c 20 61 72 65 20 75 73 65 64	des.that,.when.present,.are.used
34a0	20 66 6f 72 20 6d 61 6e 75 61 6c 20 6c 6f 6f 6b 75 70 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 28	.for.manual.lookups."...:type.'(
34c0	72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c 65 74 65 2d	repeat.string))..(make-obsolete-
34e0	76 61 72 69 61 62 6c 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f	variable.'geiser-guile-manual-lo
3500	6f 6b 75 70 2d 6e 6f 64 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	okup-nodes......................
3520	20 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 61	...'geiser-guile-manual-lookup-a
3540	6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 30 2e	list........................."0.
3560	32 38 2e 32 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f	28.2")..(geiser-custom--defcusto
3580	6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 69 6e 64	m.geiser-guile-manual-lookup-ind
35a0	69 63 65 73 0a 20 20 20 20 27 28 22 52 35 52 53 20 49 6e 64 65 78 22 20 22 43 6f 6e 63 65 70 74	ices.....'("R5RS.Index"."Concept
35c0	20 49 6e 64 65 78 22 20 22 50 72 6f 63 65 64 75 72 65 20 49 6e 64 65 78 22 20 22 56 61 72 69 61	.Index"."Procedure.Index"."Varia
35e0	62 6c 65 20 49 6e 64 65 78 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 69 6e 66 6f 20 69 6e 64 65	ble.Index")..."List.of.info.inde
3600	78 20 6e 6f 64 65 73 20 74 68 61 74 2c 20 77 68 65 6e 20 70 72 65 73 65 6e 74 2c 20 61 72 65 20	x.nodes.that,.when.present,.are.
3620	75 73 65 64 20 66 6f 72 20 6d 61 6e 75 61 6c 20 6c 6f 6f 6b 75 70 73 2e 22 0a 20 20 3a 74 79 70	used.for.manual.lookups."...:typ
3640	65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 6d 61 6b 65 2d 6f 62 73 6f 6c	e.'(repeat.string))..(make-obsol
3660	65 74 65 2d 76 61 72 69 61 62 6c 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61	ete-variable.'geiser-guile-manua
3680	6c 2d 6c 6f 6f 6b 75 70 2d 69 6e 64 69 63 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	l-lookup-indices................
36a0	20 20 20 20 20 20 20 20 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f	.........'geiser-guile-manual-lo
36c0	6f 6b 75 70 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	okup-alist......................
36e0	20 20 20 22 30 2e 32 38 2e 32 22 29 0a 0a 28 67 65 69 73 65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65	..."0.28.2")..(geiser-custom--de
3700	66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b	fcustom.geiser-guile-manual-look
3720	75 70 2d 61 6c 69 73 74 0a 20 20 20 20 28 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20 28 6c 61	up-alist.....(append.(mapcar.(la
3740	6d 62 64 61 20 28 78 29 20 28 63 6f 6e 73 20 78 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61	mbda.(x).(cons.x.geiser-guile-ma
3760	6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 69 6e 64 69 63 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20	nual-lookup-indices))...........
3780	20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f	..........geiser-guile-manual-lo
37a0	6f 6b 75 70 2d 6e 6f 64 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 22 72 35 72 73	okup-nodes).............'(("r5rs
37c0	22 20 2e 20 28 22 49 6e 64 65 78 22 29 29 29 29 0a 20 20 22 41 6c 69 73 74 20 6f 66 20 49 6e 66	"...("Index"))))..."Alist.of.Inf
37e0	6f 20 6e 6f 64 65 73 20 61 6e 64 20 74 68 65 69 72 20 69 6e 64 69 63 65 73 20 74 68 61 74 20 61	o.nodes.and.their.indices.that.a
3800	72 65 20 75 73 65 64 20 66 6f 72 20 6d 61 6e 75 61 6c 20 6c 6f 6f 6b 75 70 73 2e 0a 45 61 63 68	re.used.for.manual.lookups..Each
3820	20 65 6c 65 6d 65 6e 74 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 28 4e 4f 44 45 20 2e 20 49 4e 44 49	.element.looks.like.(NODE...INDI
3840	43 45 53 29 2e 20 20 4e 4f 44 45 20 69 73 20 61 6e 20 49 6e 66 6f 20 6e 6f 64 65 0a 61 6e 64 20	CES)...NODE.is.an.Info.node.and.
3860	49 4e 44 49 43 45 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 69 6e 64 65 78 20 6e 6f 64 65 73	INDICES.is.a.list.of.index.nodes
3880	20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 4e 4f 44 45 2e 22 0a 20 20 3a 74 79 70 65	.corresponding.to.NODE."...:type
38a0	20 27 28 61 6c 69 73 74 20 3a 6b 65 79 2d 74 79 70 65 20 73 74 72 69 6e 67 20 3a 76 61 6c 75 65	.'(alist.:key-type.string.:value
38c0	2d 74 79 70 65 20 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 20 20 3a 73 65 74 20 28 6c	-type.(repeat.string))...:set.(l
38e0	61 6d 62 64 61 20 28 73 79 6d 20 76 61 6c 29 0a 20 20 20 20 20 20 20 20 20 22 55 70 64 61 74 65	ambda.(sym.val).........."Update
3900	20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 6c 69 73 74 27 20 62 61 73 65 64 20 6f 6e 20 56 41	.`info-lookup-alist'.based.on.VA
3920	4c 2e 0a 41 6c 73 6f 2c 20 75 70 64 61 74 65 20 74 68 65 20 74 6f 70 6c 65 76 65 6c 20 64 65 66	L..Also,.update.the.toplevel.def
3940	61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 53 59 4d 20 74 6f 20 56 41 4c 2e 22 0a 20 20 20 20 20	ault.value.of.SYM.to.VAL."......
3960	20 20 20 20 28 6c 65 74 20 28 28 6e 72 78 20 22 5e 5b 20 20 20 20 20 20 20 5d 2b 2d 2b 20 5b 5e	....(let.((nrx."^[.......]+-+.[^
3980	3a 5d 2b 3a 5b 20 20 20 20 5d 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 72	:]+:[....]*")................(dr
39a0	78 20 22 5c 5c 62 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 65 63 29 29 0a	x."\\b")................(spec)).
39c0	20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 72 6f 77 20 76 61 6c 20 73 70 65 63	...........(dolist.(row.val.spec
39e0	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 66 69 6c 65 20	)..............(when-let.((file.
3a00	28 63 61 72 20 72 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	(car.row))......................
3a20	20 20 20 28 28 49 6e 66 6f 2d 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 20 74 29 29 0a 20 20 20	...((Info-find-file.file.t))....
3a40	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 64 69 63 65 73 20 28 63	.....................(indices.(c
3a60	64 72 20 72 6f 77 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74	dr.row)))................(dolist
3a80	20 28 69 78 20 69 6e 64 69 63 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	.(ix.indices)..................(
3aa0	70 75 73 68 20 28 6c 69 73 74 20 28 66 6f 72 6d 61 74 20 22 28 25 73 29 25 73 22 20 66 69 6c 65	push.(list.(format."(%s)%s".file
3ac0	20 69 78 29 20 6e 69 6c 20 6e 72 78 20 64 72 78 29 20 73 70 65 63 29 29 29 29 0a 20 20 20 20 20	.ix).nil.nrx.drx).spec))))......
3ae0	20 20 20 20 20 20 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 61 64 64 2d 68 65 6c 70 20 3a 74 6f 70	......(info-lookup-add-help.:top
3b00	69 63 20 27 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ic.'symbol......................
3b20	20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 6f 64 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	............:mode.'geiser-guile-
3b40	6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	mode............................
3b60	20 20 20 20 20 20 3a 69 67 6e 6f 72 65 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20	......:ignore-case.nil..........
3b80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 67 65 78 70 20	........................:regexp.
3ba0	22 5b 5e 28 29 60 27 2c 5c 22 20 20 20 20 20 20 20 20 5c 6e 5d 2b 22 0a 20 20 20 20 20 20 20 20	"[^()`',\"........\n]+".........
3bc0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 6f 63 2d 73 70	.........................:doc-sp
3be0	65 63 20 73 70 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 64 65 66 61 75 6c 74 2d	ec.spec))..........(set-default-
3c00	74 6f 70 6c 65 76 65 6c 2d 76 61 6c 75 65 20 73 79 6d 20 76 61 6c 29 29 29 0a 0a 28 67 65 69 73	toplevel-value.sym.val)))..(geis
3c20	65 72 2d 63 75 73 74 6f 6d 2d 2d 64 65 66 63 75 73 74 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c	er-custom--defcustom.geiser-guil
3c40	65 2d 64 6f 63 2d 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 20 6e 69 6c 0a 20 20 22 4e 6f 6e	e-doc-process-texinfo.nil..."Non
3c60	2d 6e 69 6c 20 6d 65 61 6e 73 20 74 72 79 20 74 6f 20 63 6f 6e 76 65 72 74 20 64 6f 63 73 74 72	-nil.means.try.to.convert.docstr
3c80	69 6e 67 73 20 66 72 6f 6d 20 74 65 78 69 6e 66 6f 20 69 6e 74 6f 20 70 6c 61 69 6e 2d 74 65 78	ings.from.texinfo.into.plain-tex
3ca0	74 2e 0a 0a 43 68 61 6e 67 65 73 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 69 73	t...Changes.to.the.value.of.this
3cc0	20 76 61 72 69 61 62 6c 65 20 77 69 6c 6c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 74 61 6b	.variable.will.automatically.tak
3ce0	65 0a 65 66 66 65 63 74 20 6f 6e 20 6e 65 77 20 52 45 50 4c 73 2e 20 20 46 6f 72 20 65 78 69 73	e.effect.on.new.REPLs...For.exis
3d00	74 69 6e 67 20 6f 6e 65 73 2c 20 75 73 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 0a 5c 5c 5b 67 65	ting.ones,.use.the.command.\\[ge
3d20	69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 64 6f 63 2d 70 72 6f 63 65 73 73 2d 74 65	iser-guile-update-doc-process-te
3d40	78 69 6e 66 6f 5d 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 0c 0a 3b 3b	xinfo]."...:type.'boolean)....;;
3d60	3b 20 52 45 50 4c 20 73 75 70 70 6f 72 74 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75	;.REPL.support..(defun.geiser-gu
3d80	69 6c 65 2d 2d 62 69 6e 61 72 79 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d	ile--binary.()..."Return.the.nam
3da0	65 20 6f 66 20 74 68 65 20 47 75 69 6c 65 20 62 69 6e 61 72 79 20 74 6f 20 65 78 65 63 75 74 65	e.of.the.Guile.binary.to.execute
3dc0	2e 22 0a 20 20 28 69 66 20 28 6c 69 73 74 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e	."...(if.(listp.geiser-guile-bin
3de0	61 72 79 29 0a 20 20 20 20 20 20 28 63 61 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e	ary).......(car.geiser-guile-bin
3e00	61 72 79 29 0a 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 29 0a 0a	ary).....geiser-guile-binary))..
3e20	28 64 65 66 76 61 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 72 0a	(defvar.geiser-guile-scheme-dir.
3e40	20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 73 72 63 22 20 28 66 69 6c 65 2d	..(expand-file-name."src".(file-
3e60	6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6c 6f 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a	name-directory.load-file-name)).
3e80	20 20 22 44 69 72 65 63 74 6f 72 79 20 77 68 65 72 65 20 74 68 65 20 47 75 69 6c 65 20 73 63 68	.."Directory.where.the.Guile.sch
3ea0	65 6d 65 20 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 20 61 72 65 20 69 6e 73 74 61 6c 6c 65 64	eme.geiser.modules.are.installed
3ec0	2e 22 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	.")..(defvar-local.geiser-guile-
3ee0	73 63 68 65 6d 65 2d 6c 6f 63 61 6c 2d 64 69 72 0a 20 20 20 20 6e 69 6c 0a 20 20 22 4c 6f 63 61	scheme-local-dir.....nil..."Loca
3f00	74 69 6f 6e 20 66 6f 72 20 73 63 6d 20 66 69 6c 65 73 20 74 6f 20 63 6f 6d 6d 75 6e 69 63 61 74	tion.for.scm.files.to.communicat
3f20	65 20 75 73 69 6e 67 20 52 45 50 4c 20 74 68 61 74 20 61 72 65 20 6c 6f 63 61 6c 20 74 6f 20 70	e.using.REPL.that.are.local.to.p
3f40	72 6f 63 65 73 73 2e 0a 0a 57 68 65 6e 20 75 73 69 6e 67 20 54 72 61 6d 70 20 62 75 66 66 65 72	rocess...When.using.Tramp.buffer
3f60	73 2c 20 74 68 65 20 67 75 69 6c 65 20 6d 6f 64 75 6c 65 73 20 61 72 65 20 6e 6f 74 20 6c 6f 63	s,.the.guile.modules.are.not.loc
3f80	61 6c 2e 20 54 68 65 79 27 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 69 6e 0a 74 68 69 73 20 6c 6f	al..They'll.be.stored.in.this.lo
3fa0	63 61 74 69 6f 6e 20 66 6f 72 20 66 75 72 74 68 65 72 20 63 6c 65 61 6e 75 70 2e 22 29 0a 0a 28	cation.for.further.cleanup.")..(
3fc0	64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f 70 79 20	defun.geiser-guile--remote-copy.
3fe0	28 73 6f 75 72 63 65 2d 70 61 74 68 20 74 61 72 67 65 74 2d 70 61 74 68 29 0a 20 20 22 43 6f 70	(source-path.target-path)..."Cop
4000	79 20 73 6f 75 72 63 65 2d 70 61 74 68 20 74 6f 20 74 61 72 67 65 74 2d 70 61 74 68 20 65 6e 73	y.source-path.to.target-path.ens
4020	75 72 69 6e 67 20 73 79 6d 6c 69 6e 6b 73 20 61 72 65 20 72 65 73 6f 6c 76 65 64 2e 22 0a 20 20	uring.symlinks.are.resolved."...
4040	3b 3b 20 77 68 65 6e 20 75 73 69 6e 67 20 60 73 74 72 61 69 67 68 74 27 2c 20 67 75 69 6c 65 20	;;.when.using.`straight',.guile.
4060	73 63 72 69 70 74 73 20 74 68 61 74 20 6e 65 65 64 20 74 6f 20 62 65 20 65 76 61 6c 75 61 74 65	scripts.that.need.to.be.evaluate
4080	64 20 77 69 6c 6c 20 62 65 0a 20 20 3b 3b 20 73 79 6d 6c 69 6e 6b 73 0a 20 20 3b 3b 20 60 63 6f	d.will.be...;;.symlinks...;;.`co
40a0	70 79 2d 64 69 72 65 63 74 6f 72 79 27 20 77 69 6c 6c 20 63 6f 70 79 20 62 72 6f 6b 65 6e 20 73	py-directory'.will.copy.broken.s
40c0	79 6d 6c 69 6e 6b 73 0a 20 20 3b 3b 20 73 6f 20 77 65 20 6d 61 6e 75 61 6c 6c 79 20 63 6f 70 79	ymlinks...;;.so.we.manually.copy
40e0	20 74 68 65 6d 20 74 6f 20 61 76 6f 69 64 20 62 72 6f 6b 65 6e 20 73 79 6d 6c 69 6e 6b 73 20 69	.them.to.avoid.broken.symlinks.i
4100	6e 20 72 65 6d 6f 74 65 20 68 6f 73 74 0a 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 73 79 6d	n.remote.host...(cond.((file-sym
4120	6c 69 6e 6b 2d 70 20 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 28 67 65	link-p.source-path)..........(ge
4140	69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f 70 79 20 28 66 69 6c 65 2d 74 72	iser-guile--remote-copy.(file-tr
4160	75 65 6e 61 6d 65 20 73 6f 75 72 63 65 2d 70 61 74 68 29 20 74 61 72 67 65 74 2d 70 61 74 68 29	uename.source-path).target-path)
4180	29 0a 20 20 20 20 20 20 20 20 28 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 73 6f 75	).........((file-directory-p.sou
41a0	72 63 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 6c 65	rce-path)..........(unless.(file
41c0	2d 64 69 72 65 63 74 6f 72 79 2d 70 20 74 61 72 67 65 74 2d 70 61 74 68 29 20 28 6d 61 6b 65 2d	-directory-p.target-path).(make-
41e0	64 69 72 65 63 74 6f 72 79 20 74 61 72 67 65 74 2d 70 61 74 68 20 74 29 29 0a 20 20 20 20 20 20	directory.target-path.t)).......
4200	20 20 20 28 6c 65 74 20 28 28 64 65 73 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72	...(let.((dest.(file-name-as-dir
4220	65 63 74 6f 72 79 20 74 61 72 67 65 74 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20	ectory.target-path)))...........
4240	20 28 64 6f 6c 69 73 74 20 28 66 20 28 73 65 71 2d 64 69 66 66 65 72 65 6e 63 65 20 28 64 69 72	.(dolist.(f.(seq-difference.(dir
4260	65 63 74 6f 72 79 2d 66 69 6c 65 73 20 73 6f 75 72 63 65 2d 70 61 74 68 29 20 27 28 22 2e 22 20	ectory-files.source-path).'(".".
4280	22 2e 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69	"..")))..............(geiser-gui
42a0	6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f 70 79 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d	le--remote-copy.(expand-file-nam
42c0	65 20 66 20 73 6f 75 72 63 65 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e.f.source-path)................
42e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64	.........................(expand
4300	2d 66 69 6c 65 2d 6e 61 6d 65 20 66 20 64 65 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28	-file-name.f.dest))))).........(
4320	74 20 28 63 6c 2d 61 73 73 65 72 74 20 28 66 69 6c 65 2d 72 65 67 75 6c 61 72 2d 70 20 73 6f 75	t.(cl-assert.(file-regular-p.sou
4340	72 63 65 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 70 79 2d 66 69 6c 65	rce-path))............(copy-file
4360	20 73 6f 75 72 63 65 2d 70 61 74 68 20 74 61 72 67 65 74 2d 70 61 74 68 29 29 29 29 0a 0a 28 64	.source-path.target-path))))..(d
4380	65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 65 6e 73 75 72 65 2d 73 63 68 65 6d 65 2d	efun.geiser-guile-ensure-scheme-
43a0	64 69 72 20 28 29 0a 20 20 22 4d 61 79 62 65 20 73 65 74 75 70 20 61 6e 64 20 72 65 74 75 72 6e	dir.()..."Maybe.setup.and.return
43c0	20 64 69 72 20 66 6f 72 20 47 75 69 6c 65 20 73 63 68 65 6d 65 20 67 65 69 73 65 72 20 6d 6f 64	.dir.for.Guile.scheme.geiser.mod
43e0	75 6c 65 73 2e 0a 0a 49 66 20 75 73 69 6e 67 20 61 20 72 65 6d 6f 74 65 20 54 72 61 6d 70 20 62	ules...If.using.a.remote.Tramp.b
4400	75 66 66 65 72 2c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 63 6f 70 79 20 74	uffer,.this.function.will.copy.t
4420	68 65 20 6d 6f 64 75 6c 65 73 20 74 6f 20 61 0a 74 65 6d 70 6f 72 61 72 79 20 6c 6f 63 61 74 69	he.modules.to.a.temporary.locati
4440	6f 6e 20 69 6e 20 74 68 65 20 72 65 6d 6f 74 65 20 73 65 72 76 65 72 20 61 6e 64 20 74 68 65 20	on.in.the.remote.server.and.the.
4460	72 65 74 75 72 6e 20 69 74 2e 0a 45 6c 73 65 2c 20 77 69 6c 6c 20 6a 75 73 74 20 72 65 74 75 72	return.it..Else,.will.just.retur
4480	6e 20 60 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 72 27 2e 22 0a 20 20	n.`geiser-guile-scheme-dir'."...
44a0	28 63 6f 6e 64 20 28 28 6e 6f 74 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 27 74 72 61 6d 70	(cond.((not.(and.(fboundp.'tramp
44c0	2d 74 72 61 6d 70 2d 66 69 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-tramp-file-p)..................
44e0	20 20 28 74 72 61 6d 70 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 70 20 64 65 66 61 75 6c 74 2d 64 69	..(tramp-tramp-file-p.default-di
4500	72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65	rectory)))..........geiser-guile
4520	2d 73 63 68 65 6d 65 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69	-scheme-dir).........(geiser-gui
4540	6c 65 2d 73 63 68 65 6d 65 2d 6c 6f 63 61 6c 2d 64 69 72 29 20 3b 3b 20 72 65 6d 6f 74 65 20 66	le-scheme-local-dir).;;.remote.f
4560	69 6c 65 73 20 61 72 65 20 61 6c 72 65 61 64 79 20 74 68 65 72 65 0a 20 20 20 20 20 20 20 20 28	iles.are.already.there.........(
4580	74 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c	t..........(let*.((temporary-fil
45a0	65 2d 64 69 72 65 63 74 6f 72 79 20 28 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 69 72 65	e-directory.(temporary-file-dire
45c0	63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 74 65 2d	ctory)).................(remote-
45e0	74 65 6d 70 2d 64 69 72 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 20 22 65 6d 61 63 73 2d	temp-dir.(make-temp-file."emacs-
4600	67 65 69 73 65 72 2d 67 75 69 6c 65 22 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d	geiser-guile".t)))............(m
4620	65 73 73 61 67 65 20 22 53 65 74 74 69 6e 67 20 75 70 20 54 72 61 6d 70 20 47 75 69 6c 65 20 52	essage."Setting.up.Tramp.Guile.R
4640	45 50 4c 2e 2e 2e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62	EPL...")............(let.((inhib
4660	69 74 2d 6d 65 73 73 61 67 65 20 74 29 29 20 3b 3b 20 70 72 65 76 65 6e 74 20 22 43 6f 70 79 69	it-message.t)).;;.prevent."Copyi
4680	6e 67 20 e2 80 a6 20 74 6f 20 e2 80 a6 20 22 20 66 72 6f 6d 20 64 69 72 65 64 0a 20 20 20 20 20	ng.....to.....".from.dired......
46a0	20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6d 6f 74 65 2d 63 6f	........(geiser-guile--remote-co
46c0	70 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63	py...............geiser-guile-sc
46e0	68 65 6d 65 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28	heme-dir...............(concat.(
4700	66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 72 65 6d 6f 74 65 2d 74 65	file-name-as-directory.remote-te
4720	6d 70 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66	mp-dir).......................(f
4740	69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20	ile-name-nondirectory...........
4760	20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d	.............(directory-file-nam
4780	65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73 63 68 65 6d 65 2d 64 69 72 29 29 29 29 29 0a 20	e.geiser-guile-scheme-dir)))))..
47a0	20 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 74 75 72 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72	..........;;.return.the.director
47c0	79 20 6e 61 6d 65 20 61 73 20 6c 6f 63 61 6c 20 74 6f 20 28 72 65 6d 6f 74 65 29 20 70 72 6f 63	y.name.as.local.to.(remote).proc
47e0	65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 67 65 69 73 65 72 2d 67 75 69 6c	ess............(setq.geiser-guil
4800	65 2d 73 63 68 65 6d 65 2d 6c 6f 63 61 6c 2d 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	e-scheme-local-dir..............
4820	20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74	....(concat.(file-name-as-direct
4840	6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66	ory...........................(f
4860	69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 72 65 6d 6f 74 65 2d 74 65 6d 70 2d 64 69 72 29 29	ile-local-name.remote-temp-dir))
4880	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d	..........................(file-
48a0	6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 73	name-nondirectory.geiser-guile-s
48c0	63 68 65 6d 65 2d 64 69 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 67 65 69 73 65 72	cheme-dir)))))))..(defvar.geiser
48e0	2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75	-guile--conn-address.nil)..(defu
4900	6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 61	n.geiser-guile--get-connection-a
4920	64 64 72 65 73 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 65 77 29 0a 20 20 22 54 68 65 20 70 61	ddress.(&optional.new)..."The.pa
4940	74 68 20 74 6f 20 74 68 65 20 55 4e 49 58 20 73 6f 63 6b 65 74 20 74 6f 20 74 61 6c 6b 20 74 6f	th.to.the.UNIX.socket.to.talk.to
4960	20 47 75 69 6c 65 20 69 6e 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 0a 55 6e 75 73 65 64 20 66	.Guile.in.a.connection..Unused.f
4980	6f 72 20 6e 6f 77 2e 22 0a 20 20 28 77 68 65 6e 20 6e 65 77 0a 20 20 20 20 28 73 65 74 71 20 67	or.now."...(when.new.....(setq.g
49a0	65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 20 28 6d 61 6b 65 2d	eiser-guile--conn-address.(make-
49c0	74 65 6d 70 2d 6e 61 6d 65 20 22 2f 74 6d 70 2f 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 22 29 29	temp-name."/tmp/geiser-guile-"))
49e0	29 0a 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 29 0a	)...geiser-guile--conn-address).
4a00	0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 72 61 6d 65 74 65 72 73	.(defun.geiser-guile--parameters
4a20	20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 77 69 74 68 20 61 6c 6c 20 70 61	.()..."Return.a.list.with.all.pa
4a40	72 61 6d 65 74 65 72 73 20 6e 65 65 64 65 64 20 74 6f 20 73 74 61 72 74 20 47 75 69 6c 65 2e 0a	rameters.needed.to.start.Guile..
4a60	54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 73 20 60 67 65 69 73 65 72 2d 67 75 69 6c 65	This.function.uses.`geiser-guile
4a80	2d 69 6e 69 74 2d 66 69 6c 65 27 20 69 66 20 69 74 20 65 78 69 73 74 73 2e 22 0a 20 20 28 6c 65	-init-file'.if.it.exists."...(le
4aa0	74 20 28 28 69 6e 69 74 2d 66 69 6c 65 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 67 65 69 73	t.((init-file.(and.(stringp.geis
4ac0	65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	er-guile-init-file).............
4ae0	20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20	............(expand-file-name...
4b00	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20	.......................(concat..
4b20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72	.........................(file-r
4b40	65 6d 6f 74 65 2d 70 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20	emote-p.default-directory)......
4b60	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c	.....................geiser-guil
4b80	65 2d 69 6e 69 74 2d 66 69 6c 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 2d 66 6c 61 67 73	e-init-file)))).........(c-flags
4ba0	20 28 77 68 65 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73	.(when.geiser-guile--conn-addres
4bc0	73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 66 6f 72 6d 61 74 20	s....................`(,(format.
4be0	22 2d 2d 6c 69 73 74 65 6e 3d 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	"--listen=%s"...................
4c00	20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 63	............(geiser-guile--get-c
4c20	6f 6e 6e 65 63 74 69 6f 6e 2d 61 64 64 72 65 73 73 20 74 29 29 29 29 29 0a 20 20 20 20 20 20 20	onnection-address.t)))))........
4c40	20 28 71 2d 66 6c 61 67 73 20 28 61 6e 64 20 28 6e 6f 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65	.(q-flags.(and.(not.geiser-guile
4c60	2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 29 20 27 28 22 2d 71 22 29 29 29 29 0a 20 20 20 20	-load-init-file).'("-q")))).....
4c80	60 28 2c 40 28 61 6e 64 20 28 6c 69 73 74 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e	`(,@(and.(listp.geiser-guile-bin
4ca0	61 72 79 29 20 28 63 64 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 62 69 6e 61 72 79 29 29 0a	ary).(cdr.geiser-guile-binary)).
4cc0	20 20 20 20 20 20 2c 40 71 2d 66 6c 61 67 73 20 22 2d 4c 22 20 2c 28 67 65 69 73 65 72 2d 67 75	......,@q-flags."-L".,(geiser-gu
4ce0	69 6c 65 2d 65 6e 73 75 72 65 2d 73 63 68 65 6d 65 2d 64 69 72 29 20 2c 40 63 2d 66 6c 61 67 73	ile-ensure-scheme-dir).,@c-flags
4d00	0a 20 20 20 20 20 20 2c 40 28 61 70 70 6c 79 20 27 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20	.......,@(apply.'append.(mapcar.
4d20	28 6c 61 6d 62 64 61 20 28 70 29 20 28 6c 69 73 74 20 22 2d 4c 22 20 70 29 29 0a 20 20 20 20 20	(lambda.(p).(list."-L".p))......
4d40	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72	..........................geiser
4d60	2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 2c 40 28 61 6e 64 20	-guile-load-path)).......,@(and.
4d80	69 6e 69 74 2d 66 69 6c 65 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 69 6e 69 74 2d	init-file.(file-readable-p.init-
4da0	66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 2d 6c 22 20 28 66	file)..............(list."-l".(f
4dc0	69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 69 6e 69 74 2d 66 69 6c 65 29 29 29 29 29 29 0a 0a	ile-local-name.init-file))))))..
4de0	28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 72 6f 6d 70 74 2d 72	(defconst.geiser-guile--prompt-r
4e00	65 67 65 78 70 20 22 5e 5b 5e 40 28 5c 6e 5d 2b 40 28 5b 5e 29 5d 2a 29 3e 20 22 29 0a 28 64 65	egexp."^[^@(\n]+@([^)]*)>.").(de
4e20	66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 67 65 72 2d 70 72	fconst.geiser-guile--debugger-pr
4e40	6f 6d 70 74 2d 72 65 67 65 78 70 0a 20 20 22 5e 5b 5e 40 28 5c 6e 5d 2b 40 28 5b 5e 29 5d 2a 3f	ompt-regexp..."^[^@(\n]+@([^)]*?
4e60	29 20 5c 5c 5b 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 5c 5c 5d 3e 20 22 29 0a 0a 28 64 65 66 63 6f	).\\[\\([0-9]+\\)\\]>.")..(defco
4e80	6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 72 78 0a 20 20 28 66 6f	nst.geiser-guile--clean-rx...(fo
4ea0	72 6d 61 74 20 22 5c 5c 28 25 73 5c 5c 29 5c 5c 7c 5c 5c 28 5e 5c 5c 24 5b 30 2d 39 5d 2b 20 3d	rmat."\\(%s\\)\\|\\(^\\$[0-9]+.=
4ec0	20 5b 5e 5c 6e 5d 2b 24 5c 5c 29 5c 5c 7c 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 28 67 65 69	.[^\n]+$\\)\\|%s"...........(gei
4ee0	73 65 72 2d 63 6f 6e 2d 2d 63 6f 6d 62 69 6e 65 64 2d 70 72 6f 6d 70 74 20 67 65 69 73 65 72 2d	ser-con--combined-prompt.geiser-
4f00	67 75 69 6c 65 2d 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20	guile--prompt-regexp............
4f20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 69 73	............................geis
4f40	65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 67 65 72 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70	er-guile--debugger-prompt-regexp
4f60	29 0a 20 20 20 20 20 20 20 20 20 20 22 5c 5c 28 5c 6e 45 6e 74 65 72 69 6e 67 20 61 20 6e 65 77	)..........."\\(\nEntering.a.new
4f80	20 70 72 6f 6d 70 74 2e 20 20 54 79 70 65 20 60 2c 62 74 27 20 66 6f 72 20 5b 5e 5c 6e 5d 2b 5c	.prompt...Type.`,bt'.for.[^\n]+\
4fa0	5c 2e 24 5c 5c 29 22 29 29 0a 0a 0c 0a 3b 3b 3b 20 45 76 61 6c 75 61 74 69 6f 6e 20 73 75 70 70	\.$\\)"))....;;;.Evaluation.supp
4fc0	6f 72 74 0a 28 64 65 66 73 75 62 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 6e 65	ort.(defsubst.geiser-guile--line
4fe0	61 72 69 7a 65 2d 61 72 67 73 20 28 61 72 67 73 29 0a 20 20 22 43 6f 6e 63 61 74 65 6e 61 74 65	arize-args.(args)..."Concatenate
5000	20 74 68 65 20 6c 69 73 74 20 41 52 47 53 2e 22 0a 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 69	.the.list.ARGS."...(mapconcat.'i
5020	64 65 6e 74 69 74 79 20 61 72 67 73 20 22 20 22 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65	dentity.args."."))..(defun.geise
5040	72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 2d 63 6d 64 20 28 61 72 67 73 29 0a 20 20 28 6c 65 74	r-guile--debug-cmd.(args)...(let
5060	20 28 28 61 72 67 73 20 28 69 66 20 28 61 6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65	.((args.(if.(and.geiser-guile-de
5080	62 75 67 2d 73 68 6f 77 2d 66 75 6c 6c 2d 62 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	bug-show-full-bt................
50a0	20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 28 63 61 72 20 61 72 67 73 29 20 22 62 61 63	........(string=.(car.args)."bac
50c0	6b 74 72 61 63 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 62	ktrace"))...................'("b
50e0	61 63 6b 74 72 61 63 65 22 20 22 23 3a 66 75 6c 6c 3f 22 20 22 23 74 22 29 0a 20 20 20 20 20 20	acktrace"."#:full?"."#t").......
5100	20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 22 2c	..........args))).....(concat.",
5120	22 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 72 67 73 20	".(geiser-guile--linearize-args.
5140	61 72 67 73 29 20 22 5c 6e 5c 22 5c 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72	args)."\n\"\"")))..(defun.geiser
5160	2d 67 75 69 6c 65 2d 2d 67 65 69 73 65 72 2d 70 72 6f 63 65 64 75 72 65 20 28 70 72 6f 63 20 26	-guile--geiser-procedure.(proc.&
5180	72 65 73 74 20 61 72 67 73 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d 20 50 52 4f 43 20 69 6e 20	rest.args)..."Transform.PROC.in.
51a0	73 74 72 69 6e 67 20 66 6f 72 20 61 20 73 63 68 65 6d 65 20 70 72 6f 63 65 64 75 72 65 20 75 73	string.for.a.scheme.procedure.us
51c0	69 6e 67 20 41 52 47 53 2e 22 0a 20 20 28 63 6c 2d 63 61 73 65 20 70 72 6f 63 0a 20 20 20 20 28	ing.ARGS."...(cl-case.proc.....(
51e0	28 65 76 61 6c 20 63 6f 6d 70 69 6c 65 29 20 28 66 6f 72 6d 61 74 20 22 2c 67 65 69 73 65 72 2d	(eval.compile).(format.",geiser-
5200	65 76 61 6c 20 25 73 20 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	eval.%s.%s%s"...................
5220	20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 61 72 20 61 72 67 73 29 20 22 23 66 22 29 0a 20	..........(or.(car.args)."#f")..
5240	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73	...........................(geis
5260	65 72 2d 67 75 69 6c 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 72 67 73 20 28 63 64 72 20 61 72	er-guile--linearize-args.(cdr.ar
5280	67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	gs))............................
52a0	20 28 69 66 20 28 63 64 64 72 20 61 72 67 73 29 20 22 22 20 22 20 28 29 22 29 29 29 0a 20 20 20	.(if.(cddr.args)."".".()")))....
52c0	20 28 28 6c 6f 61 64 2d 66 69 6c 65 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 29 20 28 66 6f 72 6d	.((load-file.compile-file).(form
52e0	61 74 20 22 2c 67 65 69 73 65 72 2d 6c 6f 61 64 2d 66 69 6c 65 20 25 73 22 20 28 63 61 72 20 61	at.",geiser-load-file.%s".(car.a
5300	72 67 73 29 29 29 0a 20 20 20 20 28 28 6e 6f 2d 76 61 6c 75 65 73 29 20 22 2c 67 65 69 73 65 72	rgs))).....((no-values).",geiser
5320	2d 6e 6f 2d 76 61 6c 75 65 73 22 29 0a 20 20 20 20 28 28 64 65 62 75 67 29 20 28 67 65 69 73 65	-no-values").....((debug).(geise
5340	72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 2d 63 6d 64 20 61 72 67 73 29 29 0a 20 20 20 20 28 74	r-guile--debug-cmd.args)).....(t
5360	20 28 66 6f 72 6d 61 74 20 22 67 65 3a 25 73 20 28 25 73 29 22 20 70 72 6f 63 20 28 67 65 69 73	.(format."ge:%s.(%s)".proc.(geis
5380	65 72 2d 67 75 69 6c 65 2d 2d 6c 69 6e 65 61 72 69 7a 65 2d 61 72 67 73 20 61 72 67 73 29 29 29	er-guile--linearize-args.args)))
53a0	29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 75	))..(defun.geiser-guile--clean-u
53c0	70 2d 6f 75 74 70 75 74 20 28 73 74 72 29 0a 20 20 28 6c 65 74 20 28 28 6d 73 67 20 28 77 68 65	p-output.(str)...(let.((msg.(whe
53e0	6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65	n.(string-match.geiser-guile--de
5400	62 75 67 67 65 72 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 20 73 74 72 29 0a 20 20 20 20 20 20	bugger-prompt-regexp.str).......
5420	20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 5c 6e 5b 44 65 62 75 67 67 69 6e 67 20 6c	.........(format."\n[Debugging.l
5440	65 76 65 6c 3a 20 25 73 5d 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 73 74 72 29 29	evel:.%s]".(match-string.1.str))
5460	29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d	))).....(concat.(replace-regexp-
5480	69 6e 2d 73 74 72 69 6e 67 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6c 65 61 6e 2d 72 78	in-string.geiser-guile--clean-rx
54a0	20 22 22 20 73 74 72 29 20 6d 73 67 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65	."".str).msg)))..(defconst.geise
54c0	72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 72 65 0a 20 20 22 28 64 65 66 69 6e 65 2d 6d 6f	r-guile--module-re..."(define-mo
54e0	64 75 6c 65 20 2b 5c 5c 28 28 5b 5e 29 5d 2b 29 5c 5c 29 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74	dule.+\\(([^)]+)\\)")..(defconst
5500	20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 62 72 61 72 79 2d 72 65 0a 20 20 22 28 5c 5c	.geiser-guile--library-re..."(\\
5520	28 3f 3a 64 65 66 69 6e 65 2d 5c 5c 29 3f 6c 69 62 72 61 72 79 5b 5b 3a 62 6c 61 6e 6b 3a 5d 5c	(?:define-\\)?library[[:blank:]\
5540	6e 5d 2b 5c 5c 28 28 5b 5e 29 5d 2b 29 5c 5c 29 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65	n]+\\(([^)]+)\\)")..(defun.geise
5560	72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d	r-guile--get-module.(&optional.m
5580	6f 64 75 6c 65 29 0a 20 20 22 46 69 6e 64 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 20	odule)..."Find.current.buffer's.
55a0	6d 6f 64 75 6c 65 20 75 73 69 6e 67 20 4d 4f 44 55 4c 45 20 61 73 20 61 20 68 69 6e 74 2e 22 0a	module.using.MODULE.as.a.hint.".
55c0	20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 6d 6f 64 75 6c 65 29 0a 20 20 20 20 20 20 20 20 20	..(cond.((null.module)..........
55e0	28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73	(save-excursion............(geis
5600	65 72 2d 73 79 6e 74 61 78 2d 2d 70 6f 70 2d 74 6f 2d 74 6f 70 29 0a 20 20 20 20 20 20 20 20 20	er-syntax--pop-to-top)..........
5620	20 20 28 69 66 20 28 6f 72 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 67 65	..(if.(or.(re-search-backward.ge
5640	69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 72 65 20 6e 69 6c 20 74 29 0a 20 20 20	iser-guile--module-re.nil.t)....
5660	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 62 61 63 6b 77	................(re-search-backw
5680	61 72 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 62 72 61 72 79 2d 72 65 20 6e 69 6c	ard.geiser-guile--library-re.nil
56a0	20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63	.t)....................(re-searc
56c0	68 2d 66 6f 72 77 61 72 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 72	h-forward.geiser-guile--module-r
56e0	65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d	e.nil.t)....................(re-
5700	73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6c 69 62	search-forward.geiser-guile--lib
5720	72 61 72 79 2d 72 65 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	rary-re.nil.t))................(
5740	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 20 28 6d 61 74 63 68 2d	geiser-guile--get-module.(match-
5760	73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 0a 20 20 20 20 20 20 20	string-no-properties.1))........
5780	20 20 20 20 20 20 3a 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6c 69 73 74 70 20 6d 6f 64 75	......:f))).........((listp.modu
57a0	6c 65 29 20 6d 6f 64 75 6c 65 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 6d 6f	le).module).........((stringp.mo
57c0	64 75 6c 65 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e	dule)..........(condition-case.n
57e0	69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 67 65 69 73 65 72 2d 73 79 6e	il..............(car.(geiser-syn
5800	74 61 78 2d 2d 72 65 61 64 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 20 6d 6f 64 75 6c 65 29 29 0a 20	tax--read-from-string.module))..
5820	20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 3a 66 29 29 29 0a 20 20 20 20 20 20 20 20 28	..........(error.:f))).........(
5840	74 20 3a 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f	t.:f)))..(defun.geiser-guile--mo
5860	64 75 6c 65 2d 63 6d 64 20 28 6d 6f 64 75 6c 65 20 66 6d 74 20 26 6f 70 74 69 6f 6e 61 6c 20 64	dule-cmd.(module.fmt.&optional.d
5880	65 66 29 0a 20 20 22 55 73 65 20 46 4d 54 20 74 6f 20 66 6f 72 6d 61 74 20 61 20 63 68 61 6e 67	ef)..."Use.FMT.to.format.a.chang
58a0	65 20 74 6f 20 4d 4f 44 55 4c 45 2c 20 77 69 74 68 20 64 65 66 61 75 6c 74 20 44 45 46 2e 22 0a	e.to.MODULE,.with.default.DEF.".
58c0	20 20 28 77 68 65 6e 20 6d 6f 64 75 6c 65 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c	..(when.module.....(let*.((modul
58e0	65 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 20 6d 6f 64 75	e.(geiser-guile--get-module.modu
5900	6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 20 28 63 6f 6e 64 20 28 28	le))............(module.(cond.((
5920	6f 72 20 28 6e 75 6c 6c 20 6d 6f 64 75 6c 65 29 20 28 65 71 20 6d 6f 64 75 6c 65 20 3a 66 29 29	or.(null.module).(eq.module.:f))
5940	20 64 65 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	.def)..........................(
5960	74 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 6d 6f 64 75 6c 65 29 29 29 29 29 0a 20 20 20 20 20	t.(format."%s".module)))))......
5980	20 28 61 6e 64 20 6d 6f 64 75 6c 65 20 28 66 6f 72 6d 61 74 20 66 6d 74 20 6d 6f 64 75 6c 65 29	.(and.module.(format.fmt.module)
59a0	29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6d 70 6f 72	))))..(defun.geiser-guile--impor
59c0	74 2d 63 6f 6d 6d 61 6e 64 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22 46 6f 72 6d 61 74 20 61 20 52	t-command.(module)..."Format.a.R
59e0	45 50 4c 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 75 73 65 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 67	EPL.command.to.use.MODULE."...(g
5a00	65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 63 6d 64 20 6d 6f 64 75 6c 65 20 22	eiser-guile--module-cmd.module."
5a20	2c 75 73 65 20 25 73 22 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	,use.%s"))..(defun.geiser-guile-
5a40	2d 65 6e 74 65 72 2d 63 6f 6d 6d 61 6e 64 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22 46 6f 72 6d 61	-enter-command.(module)..."Forma
5a60	74 20 61 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 65 6e 74 65 72 20 4d 4f 44 55 4c 45	t.a.REPL.command.to.enter.MODULE
5a80	2e 22 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 6f 64 75 6c 65 2d 63 6d 64 20 6d	."...(geiser-guile--module-cmd.m
5aa0	6f 64 75 6c 65 20 22 2c 6d 20 25 73 22 20 22 28 67 75 69 6c 65 2d 75 73 65 72 29 22 29 29 0a 0a	odule.",m.%s"."(guile-user)"))..
5ac0	0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 65 78 69 74 2d 63 6f 6d 6d 61	.(defun.geiser-guile--exit-comma
5ae0	6e 64 20 28 29 0a 20 20 22 46 6f 72 6d 61 74 20 61 20 52 45 50 4c 20 63 6f 6d 6d 61 6e 64 20 74	nd.()..."Format.a.REPL.command.t
5b00	6f 20 71 75 69 74 2e 22 0a 20 20 22 2c 71 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d	o.quit."...",q")..(defun.geiser-
5b20	67 75 69 6c 65 2d 2d 73 79 6d 62 6f 6c 2d 62 65 67 69 6e 20 28 6d 6f 64 75 6c 65 29 0a 20 20 22	guile--symbol-begin.(module)..."
5b40	46 69 6e 64 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 73 79 6d 62 6f 6c 20 69 6e 20 74 68 65 20	Find.beginning.of.symbol.in.the.
5b60	63 6f 6e 74 65 78 74 20 6f 66 20 4d 4f 44 55 4c 45 2e 22 0a 20 20 28 69 66 20 6d 6f 64 75 6c 65	context.of.MODULE."...(if.module
5b80	0a 20 20 20 20 20 20 28 6d 61 78 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 62 65 67	.......(max.(save-excursion.(beg
5ba0	69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20	inning-of-line).(point))........
5bc0	20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6b 69 70 2d 73 79 6e 74 61 78	....(save-excursion.(skip-syntax
5be0	2d 62 61 63 6b 77 61 72 64 20 22 5e 28 3e 22 29 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 29 0a	-backward."^(>").(1-.(point)))).
5c00	20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 73 6b 69 70 2d 73 79 6e 74 61 78	....(save-excursion.(skip-syntax
5c20	2d 62 61 63 6b 77 61 72 64 20 22 5e 27 2d 28 29 3e 22 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a	-backward."^'-()>").(point))))..
5c40	0c 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 73 68 65 6c 6c 20 72 65 67 65 78 70 73 0a	..;;;.Compilation.shell.regexps.
5c60	0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 74 68 2d 72 78	.(defconst.geiser-guile--path-rx
5c80	20 22 5e 49 6e 20 5c 5c 28 5b 5e 3a 5c 6e 20 5d 2b 5c 5c 29 3a 5c 6e 22 29 0a 0a 28 64 65 66 63	."^In.\\([^:\n.]+\\):\n")..(defc
5ca0	6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 6c 2d 70 61 74 68 2d 72 78 20 22	onst.geiser-guile--rel-path-rx."
5cc0	5e 49 6e 20 2b 5c 5c 28 5b 5e 2f 5c 6e 3a 20 5d 2b 5c 5c 29 3a 5c 6e 22 29 0a 0a 28 64 65 66 76	^In.+\\([^/\n:.]+\\):\n")..(defv
5ce0	61 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 66 69 6c 65 2d 63 61 63 68 65 20 28 6d 61 6b	ar.geiser-guile--file-cache.(mak
5d00	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 29 0a 20 20 22 49 6e	e-hash-table.:test.'equal)..."In
5d20	74 65 72 6e 61 6c 20 63 61 63 68 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67	ternal.cache.")..(defun.geiser-g
5d40	75 69 6c 65 2d 2d 66 69 6e 64 2d 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 28 6f 72 20 28 67 65	uile--find-file.(file)...(or.(ge
5d60	74 68 61 73 68 20 66 69 6c 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 66 69 6c 65 2d 63 61	thash.file.geiser-guile--file-ca
5d80	63 68 65 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20	che).......(with-current-buffer.
5da0	28 6f 72 20 67 65 69 73 65 72 2d 64 65 62 75 67 2d 2d 73 65 6e 64 65 72 2d 62 75 66 66 65 72 20	(or.geiser-debug--sender-buffer.
5dc0	28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d	(current-buffer)).........(when-
5de0	6c 65 74 20 28 72 20 67 65 69 73 65 72 2d 72 65 70 6c 2d 2d 72 65 70 6c 29 0a 20 20 20 20 20 20	let.(r.geiser-repl--repl).......
5e00	20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 72 0a 20 20 20 20 20	....(with-current-buffer.r......
5e20	20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 72 65 73 75 6c 74	.......(geiser-eval--send/result
5e40	20 60 28 3a 65 76 61 6c 20 28 3a 67 65 20 66 69 6e 64 2d 66 69 6c 65 20 2c 66 69 6c 65 29 29 29	.`(:eval.(:ge.find-file.,file)))
5e60	29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 72 65 73 6f	)))))..(defun.geiser-guile--reso
5e80	6c 76 65 2d 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 67 69 76 65	lve-file.(file)..."Find.the.give
5ea0	6e 20 46 49 4c 45 2c 20 69 66 20 69 74 27 73 20 69 6e 64 65 65 64 20 61 20 66 69 6c 65 2e 22 0a	n.FILE,.if.it's.indeed.a.file.".
5ec0	20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 66 69 6c 65 29 0a 20 20 20 20	..(when.(and.(stringp.file).....
5ee0	20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 66 69 6c 65 0a 20 20 20 20 20	.........(not.(member.file......
5f00	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 22 73 6f 63 6b 65 74 22 20	.....................'("socket".
5f20	22 73 74 64 69 6e 22 20 22 75 6e 6b 6e 6f 77 6e 20 66 69 6c 65 22 20 22 63 75 72 72 65 6e 74 20	"stdin"."unknown.file"."current.
5f40	69 6e 70 75 74 22 29 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 52 65 73 6f 6c 76 69	input")))).....(message."Resolvi
5f60	6e 67 20 25 73 22 20 66 69 6c 65 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 6e 61	ng.%s".file).....(cond.((file-na
5f80	6d 65 2d 61 62 73 6f 6c 75 74 65 2d 70 20 66 69 6c 65 29 20 66 69 6c 65 29 0a 20 20 20 20 20 20	me-absolute-p.file).file).......
5fa0	20 20 20 20 28 74 20 28 77 68 65 6e 2d 6c 65 74 20 28 66 20 28 67 65 69 73 65 72 2d 67 75 69 6c	....(t.(when-let.(f.(geiser-guil
5fc0	65 2d 2d 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	e--find-file.file)).............
5fe0	20 20 20 28 70 75 74 68 61 73 68 20 66 69 6c 65 20 66 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	...(puthash.file.f.geiser-guile-
6000	2d 66 69 6c 65 2d 63 61 63 68 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72	-file-cache))))))..(defun.geiser
6020	2d 67 75 69 6c 65 2d 2d 72 65 73 6f 6c 76 65 2d 66 69 6c 65 2d 78 20 28 29 0a 20 20 22 43 68 65	-guile--resolve-file-x.()..."Che
6040	63 6b 20 69 66 20 6c 61 73 74 20 6d 61 74 63 68 20 63 6f 6e 74 61 69 6e 20 61 20 72 65 73 6f 6c	ck.if.last.match.contain.a.resol
6060	76 61 62 6c 65 20 66 69 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 20 28 67 65 69 73 65 72 2d	vable.file."...(let.((f.(geiser-
6080	67 75 69 6c 65 2d 2d 72 65 73 6f 6c 76 65 2d 66 69 6c 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e	guile--resolve-file.(match-strin
60a0	67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28	g-no-properties.1)))).....(and.(
60c0	73 74 72 69 6e 67 70 20 66 29 20 28 6c 69 73 74 20 66 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 45 72	stringp.f).(list.f))))....;;;.Er
60e0	72 6f 72 20 64 69 73 70 6c 61 79 20 61 6e 64 20 64 65 62 75 67 67 65 72 0a 0a 28 64 65 66 75 6e	ror.display.and.debugger..(defun
6100	20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 65 72 72 6f 72 2d 6c 69 6e 6b	.geiser-guile--set-up-error-link
6120	73 20 28 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65	s.()...(setq-local.compilation-e
6140	72 72 6f 72 2d 72 65 67 65 78 70 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	rror-regexp-alist...............
6160	60 28 28 2c 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 74 68 2d 72 78 20 67 65 69 73 65 72	`((,geiser-guile--path-rx.geiser
6180	2d 67 75 69 6c 65 2d 2d 72 65 73 6f 6c 76 65 2d 66 69 6c 65 2d 78 29 0a 20 20 20 20 20 20 20 20	-guile--resolve-file-x).........
61a0	20 20 20 20 20 20 20 20 28 22 5e 20 20 2b 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 5b 30	........("^..+\\([0-9]+\\):\\([0
61c0	2d 39 5d 2b 5c 5c 29 22 20 6e 69 6c 20 31 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-9]+\\)".nil.1.2)...............
61e0	20 20 28 22 5e 5c 5c 28 2f 2e 2a 5c 5c 29 3a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 5b	..("^\\(/.*\\):\\([0-9]+\\):\\([
6200	30 2d 39 5d 2b 5c 5c 29 22 20 31 20 32 20 33 29 29 29 0a 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d	0-9]+\\)".1.2.3)))...(font-lock-
6220	61 64 64 2d 6b 65 79 77 6f 72 64 73 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	add-keywords.nil................
6240	20 20 20 20 20 20 20 20 20 20 20 60 28 28 2c 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 61 74	...........`((,geiser-guile--pat
6260	68 2d 72 78 20 31 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 2d 66 61 63 65 29 29 29	h-rx.1.compilation-error-face)))
6280	29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65	)..(defun.geiser-guile-debug--se
62a0	6e 64 2d 64 62 67 20 28 74 68 69 6e 67 29 0a 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73	nd-dbg.(thing)...(geiser-eval--s
62c0	65 6e 64 2f 77 61 69 74 20 28 63 6f 6e 73 20 3a 64 65 62 75 67 20 28 69 66 20 28 6c 69 73 74 70	end/wait.(cons.:debug.(if.(listp
62e0	20 74 68 69 6e 67 29 20 74 68 69 6e 67 20 28 6c 69 73 74 20 74 68 69 6e 67 29 29 29 29 29 0a 0a	.thing).thing.(list.thing)))))..
6300	28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 64 65 62 75 67	(defun.geiser-guile-debug--debug
6320	67 65 72 2d 64 69 73 70 6c 61 79 20 28 74 68 69 6e 67 20 72 65 74 29 0a 20 20 28 67 65 69 73 65	ger-display.(thing.ret)...(geise
6340	72 2d 64 65 62 75 67 2d 2d 64 69 73 70 6c 61 79 2d 72 65 74 6f 72 74 20 28 66 6f 72 6d 61 74 20	r-debug--display-retort.(format.
6360	22 2c 25 73 22 20 74 68 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	",%s".thing)....................
6380	20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.............ret................
63a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 72	.................(geiser-eval--r
63c0	65 74 6f 72 74 2d 72 65 73 75 6c 74 2d 73 74 72 20 72 65 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65	etort-result-str.ret.nil)))..(de
63e0	66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d	fun.geiser-guile-debug--send-to-
6400	72 65 70 6c 20 28 74 68 69 6e 67 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 67 65 69 73 65 72 2d 64	repl.(thing)...(unless.(geiser-d
6420	65 62 75 67 2d 61 63 74 69 76 65 2d 70 29 20 28 65 72 72 6f 72 20 22 44 65 62 75 67 67 65 72 20	ebug-active-p).(error."Debugger.
6440	6e 6f 74 20 61 63 74 69 76 65 22 29 29 0a 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63	not.active"))...(save-window-exc
6460	75 72 73 69 6f 6e 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20	ursion.....(with-current-buffer.
6480	67 65 69 73 65 72 2d 64 65 62 75 67 2d 2d 73 65 6e 64 65 72 2d 62 75 66 66 65 72 0a 20 20 20 20	geiser-debug--sender-buffer.....
64a0	20 20 28 77 68 65 6e 2d 6c 65 74 20 28 72 65 74 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64	..(when-let.(ret.(geiser-guile-d
64c0	65 62 75 67 2d 2d 73 65 6e 64 2d 64 62 67 20 74 68 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 28	ebug--send-dbg.thing)).........(
64e0	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 64 65 62 75 67 67 65 72 2d 64 69 73	geiser-guile-debug--debugger-dis
6500	70 6c 61 79 20 74 68 69 6e 67 20 72 65 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73	play.thing.ret)))))..(defun.geis
6520	65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 71 75 69 74 20 28 29 0a 20 20 22 51 75 69 74 20 74	er-guile-debug-quit.()..."Quit.t
6540	68 65 20 63 75 72 72 65 6e 74 20 64 65 62 75 67 67 69 6e 67 20 73 65 73 73 69 6f 6e 20 6c 65 76	he.current.debugging.session.lev
6560	65 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67	el."...(interactive)...(geiser-g
6580	75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 71 75 69 74 29 29	uile-debug--send-to-repl.'quit))
65a0	0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77	..(defun.geiser-guile-debug-show
65c0	2d 62 61 63 6b 74 72 61 63 65 20 28 29 0a 20 20 22 51 75 69 74 20 74 68 65 20 63 75 72 72 65 6e	-backtrace.()..."Quit.the.curren
65e0	74 20 64 65 62 75 67 67 69 6e 67 20 73 65 73 73 69 6f 6e 20 6c 65 76 65 6c 2e 22 0a 20 20 28 69	t.debugging.session.level."...(i
6600	6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75	nteractive)...(geiser-guile-debu
6620	67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 62 61 63 6b 74 72 61 63 65 29 29 0a 0a 28 64	g--send-to-repl.'backtrace))..(d
6640	65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 6c 6f 63	efun.geiser-guile-debug-show-loc
6660	61 6c 73 20 28 29 0a 20 20 22 53 68 6f 77 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 22	als.()..."Show.local.variables."
6680	0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65	...(interactive)...(geiser-guile
66a0	2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 6c 6f 63 61 6c 73 29 29 0a 0a	-debug--send-to-repl.'locals))..
66c0	28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 72	(defun.geiser-guile-debug-show-r
66e0	65 67 69 73 74 65 72 73 20 28 29 0a 20 20 22 53 68 6f 77 20 72 65 67 69 73 74 65 72 20 76 61 6c	egisters.()..."Show.register.val
6700	75 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65 72 2d	ues."...(interactive)...(geiser-
6720	67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 72 65 67 69 73	guile-debug--send-to-repl.'regis
6740	74 65 72 73 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75	ters))..(defun.geiser-guile-debu
6760	67 2d 73 68 6f 77 2d 65 72 72 6f 72 20 28 29 0a 20 20 22 53 68 6f 77 20 65 72 72 6f 72 20 6d 65	g-show-error.()..."Show.error.me
6780	73 73 61 67 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 65 69 73 65	ssage."...(interactive)...(geise
67a0	72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 2d 73 65 6e 64 2d 74 6f 2d 72 65 70 6c 20 27 65 72 72	r-guile-debug--send-to-repl.'err
67c0	6f 72 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 67	or))..(transient-define-prefix.g
67e0	65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 2d 74 72 61 6e 73 69 65 6e 74 20 28 29 0a	eiser-guile--debug-transient.().
6800	20 20 22 44 65 62 75 67 67 69 6e 67 20 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 5b	.."Debugging.meta-commands."...[
6820	22 47 75 69 6c 65 20 64 65 62 75 67 67 65 72 22 0a 20 20 20 5b 28 22 6e 22 20 22 4e 65 78 74 20	"Guile.debugger"....[("n"."Next.
6840	65 72 72 6f 72 22 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6e 65 78 74 2d 65 72 72 6f 72 29 0a 20	error".compilation-next-error)..
6860	20 20 20 28 22 70 22 20 22 50 72 65 76 69 6f 75 73 20 65 72 72 6f 72 22 20 63 6f 6d 70 69 6c 61	...("p"."Previous.error".compila
6880	74 69 6f 6e 2d 6e 65 78 74 2d 65 72 72 6f 72 29 0a 20 20 20 20 28 22 7a 22 20 22 53 63 68 65 6d	tion-next-error).....("z"."Schem
68a0	65 20 62 75 66 66 65 72 22 20 67 65 69 73 65 72 2d 64 65 62 75 67 2d 73 77 69 74 63 68 2d 74 6f	e.buffer".geiser-debug-switch-to
68c0	2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 22 78 22 20 22 45 78 69 74 20 64 65 62 75 67 20 6c 65	-buffer).....("x"."Exit.debug.le
68e0	76 65 6c 22 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 71 75 69 74 29 5d 0a 20	vel".geiser-guile-debug-quit)]..
6900	20 20 5b 28 22 62 22 20 22 53 68 6f 77 20 62 61 63 6b 74 72 61 63 65 22 20 67 65 69 73 65 72 2d	..[("b"."Show.backtrace".geiser-
6920	67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 62 61 63 6b 74 72 61 63 65 29 0a 20 20 20 20	guile-debug-show-backtrace).....
6940	28 22 65 22 20 22 53 68 6f 77 20 65 72 72 6f 72 22 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64	("e"."Show.error".geiser-guile-d
6960	65 62 75 67 2d 73 68 6f 77 2d 65 72 72 6f 72 29 0a 20 20 20 20 28 22 6c 22 20 22 53 68 6f 77 20	ebug-show-error).....("l"."Show.
6980	6c 6f 63 61 6c 73 22 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d	locals".geiser-guile-debug-show-
69a0	6c 6f 63 61 6c 73 29 0a 20 20 20 20 28 22 72 22 20 22 53 68 6f 77 20 72 65 67 69 73 74 65 72 73	locals).....("r"."Show.registers
69c0	22 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 73 68 6f 77 2d 72 65 67 69 73 74	".geiser-guile-debug-show-regist
69e0	65 72 73 29 5d 5d 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62	ers)]])..(defun.geiser-guile-deb
6a00	75 67 2d 6d 65 6e 75 20 28 29 0a 20 20 22 53 68 6f 77 20 61 76 61 69 6c 61 62 6c 65 20 64 65 62	ug-menu.()..."Show.available.deb
6a20	75 67 67 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 2c 20 69 66 20 61 6e 79 2e 22 0a 20 20 28 69 6e 74	ugging.commands,.if.any."...(int
6a40	65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 27 67 75 69 6c	eractive)...(when.(and.(eq.'guil
6a60	65 20 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 29 20 28	e.geiser-impl--implementation).(
6a80	67 65 69 73 65 72 2d 64 65 62 75 67 2d 61 63 74 69 76 65 2d 70 29 29 0a 20 20 20 20 28 63 61 6c	geiser-debug-active-p)).....(cal
6aa0	6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 23 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d	l-interactively.#'geiser-guile--
6ac0	64 65 62 75 67 2d 74 72 61 6e 73 69 65 6e 74 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6b 65 79 20	debug-transient)))..(define-key.
6ae0	67 65 69 73 65 72 2d 64 65 62 75 67 2d 6d 6f 64 65 2d 6d 61 70 20 22 2c 22 20 23 27 67 65 69 73	geiser-debug-mode-map.",".#'geis
6b00	65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 6d 65 6e 75 29 0a 0a 28 64 65 66 75 6e 20 67 65 69	er-guile-debug-menu)..(defun.gei
6b20	73 65 72 2d 67 75 69 6c 65 2d 2d 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72 20 28 29 0a 20 20 22	ser-guile--enter-debugger.()..."
6b40	54 65 6c 6c 20 47 65 69 73 65 72 20 74 6f 20 69 6e 74 65 72 61 63 74 20 77 69 74 68 20 74 68 65	Tell.Geiser.to.interact.with.the
6b60	20 64 65 62 75 67 67 65 72 2e 22 0a 20 20 28 77 68 65 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65	.debugger."...(when.geiser-guile
6b80	2d 73 68 6f 77 2d 64 65 62 75 67 2d 68 65 6c 70 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44	-show-debug-help.....(message."D
6ba0	65 62 75 67 67 65 72 20 61 63 74 69 76 65 2e 20 50 72 65 73 73 20 2c 20 66 6f 72 20 63 6f 6d 6d	ebugger.active..Press.,.for.comm
6bc0	61 6e 64 73 2e 22 29 29 0a 20 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67	ands."))...nil)..(defun.geiser-g
6be0	75 69 6c 65 2d 2d 64 69 73 70 6c 61 79 2d 65 72 72 6f 72 20 28 5f 6d 6f 64 75 6c 65 20 5f 6b 65	uile--display-error.(_module._ke
6c00	79 20 6d 73 67 29 0a 20 20 22 44 69 73 70 6c 61 79 20 65 72 72 6f 72 20 77 69 74 68 20 67 69 76	y.msg)..."Display.error.with.giv
6c20	65 6e 20 6d 65 73 73 61 67 65 20 4d 53 47 2e 22 0a 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67	en.message.MSG."...(when.(string
6c40	70 20 6d 73 67 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70	p.msg).....(geiser-guile--set-up
6c60	2d 65 72 72 6f 72 2d 6c 69 6e 6b 73 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f	-error-links).....(save-excursio
6c80	6e 20 28 69 6e 73 65 72 74 20 6d 73 67 29 29 29 0a 20 20 28 6e 6f 74 20 28 7a 65 72 6f 70 20 28	n.(insert.msg)))...(not.(zerop.(
6ca0	6c 65 6e 67 74 68 20 6d 73 67 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 54 72 79 69 6e 67 20 74 6f 20	length.msg))))....;;;.Trying.to.
6cc0	61 73 63 65 72 74 61 69 6e 20 77 68 65 74 68 65 72 20 61 20 62 75 66 66 65 72 20 69 73 20 47 75	ascertain.whether.a.buffer.is.Gu
6ce0	69 6c 65 20 53 63 68 65 6d 65 0a 0a 28 64 65 66 63 6f 6e 73 74 20 67 65 69 73 65 72 2d 67 75 69	ile.Scheme..(defconst.geiser-gui
6d00	6c 65 2d 2d 67 75 65 73 73 2d 72 65 0a 20 20 28 66 6f 72 6d 61 74 20 22 5c 5c 28 25 73 5c 5c 7c	le--guess-re...(format."\\(%s\\|
6d20	23 21 20 2a 2e 2b 5c 5c 28 2f 5c 5c 7c 20 5c 5c 29 67 75 69 6c 65 5c 5c 28 20 2a 5c 5c 5c 5c 5c	#!.*.+\\(/\\|.\\)guile\\(.*\\\\\
6d40	5c 29 3f 5c 5c 29 22 0a 20 20 20 20 20 20 20 20 20 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d	\)?\\)"...........geiser-guile--
6d60	6d 6f 64 75 6c 65 2d 72 65 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65	module-re))..(defun.geiser-guile
6d80	2d 2d 67 75 65 73 73 20 28 29 0a 20 20 22 41 73 63 65 72 74 61 69 6e 20 77 68 65 74 68 65 72 20	--guess.()..."Ascertain.whether.
6da0	77 65 20 61 72 65 20 69 6e 20 61 20 47 75 69 6c 65 20 66 69 6c 65 2e 22 0a 20 20 28 73 61 76 65	we.are.in.a.Guile.file."...(save
6dc0	2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74	-excursion.....(goto-char.(point
6de0	2d 6d 69 6e 29 29 0a 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 67 65	-min)).....(re-search-forward.ge
6e00	69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 75 65 73 73 2d 72 65 20 6e 69 6c 20 74 29 29 29 0a 0a 0c	iser-guile--guess-re.nil.t)))...
6e20	0a 3b 3b 3b 20 4b 65 79 77 6f 72 64 73 20 61 6e 64 20 73 79 6e 74 61 78 0a 0a 28 64 65 66 63 6f	.;;;.Keywords.and.syntax..(defco
6e40	6e 73 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62 75 69 6c 74 69 6e 2d 6b 65 79 77 6f 72	nst.geiser-guile--builtin-keywor
6e60	64 73 0a 20 20 27 28 22 63 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 66 69 6c 65 22 0a 20 20	ds...'("call-with-input-file"...
6e80	20 20 22 63 61 6c 6c 2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22	.."call-with-input-string"....."
6ea0	63 61 6c 6c 2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 66 69 6c 65 22 0a 20 20 20 20 22 63 61 6c 6c	call-with-output-file"....."call
6ec0	2d 77 69 74 68 2d 6f 75 74 70 75 74 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22 63 61 6c 6c 2d 77	-with-output-string"....."call-w
6ee0	69 74 68 2d 70 72 6f 6d 70 74 22 0a 20 20 20 20 22 63 61 6c 6c 2d 77 69 74 68 2d 74 72 61 63 65	ith-prompt"....."call-with-trace
6f00	22 0a 20 20 20 20 22 64 65 66 69 6e 65 2d 61 63 63 65 73 73 6f 72 22 0a 20 20 20 20 22 64 65 66	"....."define-accessor"....."def
6f20	69 6e 65 2d 63 6c 61 73 73 22 0a 20 20 20 20 22 64 65 66 69 6e 65 2d 65 6e 75 6d 65 72 61 74 69	ine-class"....."define-enumerati
6f40	6f 6e 22 0a 20 20 20 20 22 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 61 62 6c 65 22 0a 20 20 20 20 22	on"....."define-inlinable"....."
6f60	64 65 66 69 6e 65 2d 73 79 6e 74 61 78 2d 70 61 72 61 6d 65 74 65 72 22 0a 20 20 20 20 22 65 76	define-syntax-parameter"....."ev
6f80	61 6c 2d 77 68 65 6e 22 0a 20 20 20 20 22 6c 61 6d 62 64 61 2a 22 0a 20 20 20 20 22 73 79 6e 74	al-when"....."lambda*"....."synt
6fa0	61 78 2d 70 61 72 61 6d 65 74 65 72 69 7a 65 22 0a 20 20 20 20 22 75 73 65 2d 6d 6f 64 75 6c 65	ax-parameterize"....."use-module
6fc0	73 22 0a 20 20 20 20 22 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 66 69 6c 65 22 0a 20 20 20 20	s"....."with-error-to-file".....
6fe0	22 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 70 6f 72 74 22 0a 20 20 20 20 22 77 69 74 68 2d 65	"with-error-to-port"....."with-e
7000	72 72 6f 72 2d 74 6f 2d 73 74 72 69 6e 67 22 0a 20 20 20 20 22 77 69 74 68 2d 66 6c 75 69 64 2a	rror-to-string"....."with-fluid*
7020	22 0a 20 20 20 20 22 77 69 74 68 2d 66 6c 75 69 64 73 22 0a 20 20 20 20 22 77 69 74 68 2d 66 6c	"....."with-fluids"....."with-fl
7040	75 69 64 73 2a 22 0a 20 20 20 20 22 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 70 6f 72 74	uids*"....."with-input-from-port
7060	22 0a 20 20 20 20 22 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 73 74 72 69 6e 67 22 0a 20	"....."with-input-from-string"..
7080	20 20 20 22 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 70 6f 72 74 22 0a 20 20 20 20 22 77 69	..."with-output-to-port"....."wi
70a0	74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 22 29 29 0a 0a 28 64 65 66 75 6e 20 67	th-output-to-string"))..(defun.g
70c0	65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6b 65 79 77 6f 72 64 73 20 28 29 0a 20 20 22 52 65 74 75	eiser-guile--keywords.()..."Retu
70e0	72 6e 20 47 75 69 6c 65 2d 73 70 65 63 69 66 69 63 20 73 63 68 65 6d 65 20 6b 65 79 77 6f 72 64	rn.Guile-specific.scheme.keyword
7100	73 2e 22 0a 20 20 28 61 70 70 65 6e 64 0a 20 20 20 28 67 65 69 73 65 72 2d 73 79 6e 74 61 78 2d	s."...(append....(geiser-syntax-
7120	2d 73 69 6d 70 6c 65 2d 6b 65 79 77 6f 72 64 73 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 65 78	-simple-keywords.geiser-guile-ex
7140	74 72 61 2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 28 67 65 69 73 65 72 2d 73 79 6e 74 61 78 2d	tra-keywords)....(geiser-syntax-
7160	2d 73 69 6d 70 6c 65 2d 6b 65 79 77 6f 72 64 73 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62	-simple-keywords.geiser-guile--b
7180	75 69 6c 74 69 6e 2d 6b 65 79 77 6f 72 64 73 29 0a 20 20 20 60 28 28 2c 28 72 78 20 22 28 22 20	uiltin-keywords)....`((,(rx."(".
71a0	28 67 72 6f 75 70 20 22 64 65 66 69 6e 65 2d 6f 6e 63 65 22 29 20 65 6f 77 20 28 2a 20 73 70 61	(group."define-once").eow.(*.spa
71c0	63 65 29 20 28 3f 20 28 67 72 6f 75 70 20 28 2b 20 77 6f 72 64 29 29 29 29 0a 20 20 20 20 20 20	ce).(?.(group.(+.word)))).......
71e0	28 31 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a 20 20 20 20 20	(1.font-lock-keyword-face)......
7200	20 28 32 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65	.(2.font-lock-variable-name-face
7220	20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 28 22 28 5c 5c 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c	.nil.t))......("(\\(define-modul
7240	65 5c 5c 29 20 2b 28 5c 5c 28 5b 5e 29 5d 2b 5c 5c 29 29 22 0a 20 20 20 20 20 20 28 31 20 66 6f	e\\).+(\\([^)]+\\))".......(1.fo
7260	6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 0a 20 20 20 20 20 20 28 32 20 66	nt-lock-keyword-face).......(2.f
7280	6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 20 6e 69 6c 20 74 29 29 29 29 29 0a 0a 28	ont-lock-type-face.nil.t)))))..(
72a0	67 65 69 73 65 72 2d 73 79 6e 74 61 78 2d 2d 73 63 68 65 6d 65 2d 69 6e 64 65 6e 74 0a 20 28 63	geiser-syntax--scheme-indent..(c
72c0	2d 64 65 63 6c 61 72 65 20 30 29 0a 20 28 63 2d 6c 61 6d 62 64 61 20 32 29 0a 20 28 63 61 6c 6c	-declare.0)..(c-lambda.2)..(call
72e0	2d 77 69 74 68 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 20 31 29 0a 20 28 63 61 6c 6c 2d 77 69 74	-with-input-string.1)..(call-wit
7300	68 2d 6f 75 74 70 75 74 2d 73 74 72 69 6e 67 20 30 29 0a 20 28 63 61 6c 6c 2d 77 69 74 68 2d 70	h-output-string.0)..(call-with-p
7320	72 6f 6d 70 74 20 31 29 0a 20 28 63 61 6c 6c 2d 77 69 74 68 2d 74 72 61 63 65 20 30 29 0a 20 28	rompt.1)..(call-with-trace.0)..(
7340	65 76 61 6c 2d 77 68 65 6e 20 31 29 0a 20 28 6c 61 6d 62 64 61 2a 20 31 29 0a 20 28 70 6d 61 74	eval-when.1)..(lambda*.1)..(pmat
7360	63 68 20 64 65 66 75 6e 29 0a 20 28 73 69 67 61 63 74 69 6f 6e 20 31 29 0a 20 28 73 79 6e 74 61	ch.defun)..(sigaction.1)..(synta
7380	78 2d 70 61 72 61 6d 65 74 65 72 69 7a 65 20 31 29 0a 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74	x-parameterize.1)..(with-error-t
73a0	6f 2d 66 69 6c 65 20 31 29 0a 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 70 6f 72 74 20 31	o-file.1)..(with-error-to-port.1
73c0	29 0a 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 73 74 72 69 6e 67 20 30 29 0a 20 28 77 69	)..(with-error-to-string.0)..(wi
73e0	74 68 2d 66 6c 75 69 64 2a 20 31 29 0a 20 28 77 69 74 68 2d 66 6c 75 69 64 73 20 31 29 0a 20 28	th-fluid*.1)..(with-fluids.1)..(
7400	77 69 74 68 2d 66 6c 75 69 64 73 2a 20 31 29 0a 20 28 77 69 74 68 2d 69 6e 70 75 74 2d 66 72 6f	with-fluids*.1)..(with-input-fro
7420	6d 2d 73 74 72 69 6e 67 20 31 29 0a 20 28 77 69 74 68 2d 6d 65 74 68 6f 64 20 31 29 0a 20 28 77	m-string.1)..(with-method.1)..(w
7440	69 74 68 2d 6d 75 74 65 78 20 31 29 0a 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74	ith-mutex.1)..(with-output-to-st
7460	72 69 6e 67 20 30 29 0a 20 28 77 69 74 68 2d 74 68 72 6f 77 2d 68 61 6e 64 6c 65 72 20 31 29 29	ring.0)..(with-throw-handler.1))
7480	0a 0a 0c 0a 3b 3b 3b 20 52 45 50 4c 20 73 74 61 72 74 75 70 0a 0a 28 64 65 66 63 6f 6e 73 74 20	....;;;.REPL.startup..(defconst.
74a0	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 69 6e 69 6d 75 6d 2d 76 65 72 73 69 6f 6e 20 22 32 2e	geiser-guile-minimum-version."2.
74c0	32 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 76 65 72 73 69 6f	2")..(defun.geiser-guile--versio
74e0	6e 20 28 5f 62 69 6e 61 72 79 29 0a 20 20 22 46 69 6e 64 20 47 75 69 6c 65 27 73 20 76 65 72 73	n.(_binary)..."Find.Guile's.vers
7500	69 6f 6e 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 63 6f 6e 66 69 67 75 72 65 64 20 47 75 69 6c 65	ion.running.the.configured.Guile
7520	20 62 69 6e 61 72 79 2e 22 0a 20 20 3b 3b 20 6d 61 79 62 65 20 6f 6e 65 20 64 61 79 20 77 65 27	.binary."...;;.maybe.one.day.we'
7540	6c 6c 20 68 61 76 65 20 60 70 72 6f 63 65 73 73 2d 6c 69 6e 65 73 27 20 77 69 74 68 20 74 72 61	ll.have.`process-lines'.with.tra
7560	6d 70 20 73 75 70 70 6f 72 74 0a 20 20 28 6c 65 74 2a 20 28 28 75 6e 69 78 79 20 28 6e 6f 74 20	mp.support...(let*.((unixy.(not.
7580	28 6d 65 6d 62 65 72 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 28 77 69 6e 64 6f 77 73 2d 6e 74	(member.system-type.'(windows-nt
75a0	20 6d 73 2d 64 6f 73 20 63 79 67 77 69 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 68 65	.ms-dos.cygwin))))..........(she
75c0	6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 77 69 74 63 68 20 28 69 66 20 75 6e 69 78 79 20 22 2d 63 22	ll-command-switch.(if.unixy."-c"
75e0	20 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 73 77 69 74 63 68 29 29 0a 20 20 20 20 20 20 20 20	.shell-command-switch)).........
7600	20 28 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 69 66 20 75 6e 69 78 79 20 22 73 68 22	.(shell-file-name.(if.unixy."sh"
7620	20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 73 68 65 6c 6c 2d 63	.shell-file-name))).....(shell-c
7640	6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25	ommand-to-string......(format."%
7660	73 20 2d 63 20 25 73 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 22 0a 20 20 20 20 20 20 20 20 20 20 20	s.-c.%s.2>/dev/null"............
7680	20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 62 69 6e 61 72 79 29 0a 20 20 20 20 20 20 20	..(geiser-guile--binary)........
76a0	20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 22 28 64 69	......(shell-quote-argument."(di
76c0	73 70 6c 61 79 20 28 76 65 72 73 69 6f 6e 29 29 22 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67	splay.(version))")))))..(defun.g
76e0	65 69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c	eiser-guile-update-warning-level
7700	20 28 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 77 61 72 6e 69 6e 67 20 6c 65 76 65 6c 20	.()..."Update.the.warning.level.
7720	75 73 65 64 20 62 79 20 74 68 65 20 52 45 50 4c 2e 0a 54 68 65 20 6e 65 77 20 6c 65 76 65 6c 20	used.by.the.REPL..The.new.level.
7740	69 73 20 73 65 74 20 75 73 69 6e 67 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 60 67 65 69 73 65	is.set.using.the.value.of.`geise
7760	72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 27 2e 22 0a 20 20 28 69 6e 74 65	r-guile-warning-level'."...(inte
7780	72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 64 65 20 60 28 3a 65 76 61 6c 20 28	ractive)...(let.((code.`(:eval.(
77a0	3a 67 65 20 73 65 74 2d 77 61 72 6e 69 6e 67 73 20 27 2c 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	:ge.set-warnings.',geiser-guile-
77c0	77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	warning-level)..................
77e0	20 20 20 20 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 29 29 29 0a 20 20 20 20	.....(geiser.evaluation)))).....
7800	28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 72 65 73 75 6c 74 20 63 6f 64 65 29 29	(geiser-eval--send/result.code))
7820	29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 64 6f	)..(defun.geiser-guile-update-do
7840	63 2d 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 77	c-process-texinfo.()..."Update.w
7860	68 65 74 68 65 72 20 64 6f 63 73 74 72 69 6e 67 73 20 73 68 6f 75 6c 64 20 62 65 20 70 72 6f 63	hether.docstrings.should.be.proc
7880	65 73 73 65 64 20 61 73 20 74 65 78 69 6e 66 6f 2e 0a 54 68 65 20 6e 65 77 20 76 61 6c 75 65 20	essed.as.texinfo..The.new.value.
78a0	69 73 20 73 65 74 20 75 73 69 6e 67 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 60 67 65 69 73 65	is.set.using.the.value.of.`geise
78c0	72 2d 67 75 69 6c 65 2d 64 6f 63 2d 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 27 2e 22 0a 20	r-guile-doc-process-texinfo'."..
78e0	20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 65 77 2d 76 61 6c	.(interactive)...(let*.((new-val
7900	75 65 20 28 69 66 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 6f 63 2d 70 72 6f 63 65 73 73 2d	ue.(if.geiser-guile-doc-process-
7920	74 65 78 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	texinfo.........................
7940	27 5c 23 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 5c 23 66 29	'\#t.......................'\#f)
7960	29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 64 65 20 60 28 62 65 67 69 6e 20 28 73 65 74 21 20 28	)..........(code.`(begin.(set!.(
7980	40 40 20 28 67 65 69 73 65 72 20 64 6f 63 29 20 25 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f	@@.(geiser.doc).%process-texinfo
79a0	3f 29 20 2c 6e 65 77 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	?).,new-value)..................
79c0	20 20 20 20 20 20 27 64 6f 6e 65 29 29 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d	......'done))).....(geiser-eval-
79e0	2d 73 65 6e 64 2f 77 61 69 74 20 63 6f 64 65 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f	-send/wait.code)))..;;;###autolo
7a00	61 64 0a 28 64 65 66 75 6e 20 63 6f 6e 6e 65 63 74 2d 74 6f 2d 67 75 69 6c 65 20 28 29 0a 20 20	ad.(defun.connect-to-guile.()...
7a20	22 53 74 61 72 74 20 61 20 47 75 69 6c 65 20 52 45 50 4c 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f	"Start.a.Guile.REPL.connected.to
7a40	20 61 20 72 65 6d 6f 74 65 20 70 72 6f 63 65 73 73 2e 0a 0a 53 74 61 72 74 20 74 68 65 20 65 78	.a.remote.process...Start.the.ex
7a60	74 65 72 6e 61 6c 20 47 75 69 6c 65 20 70 72 6f 63 65 73 73 20 77 69 74 68 20 74 68 65 20 66 6c	ternal.Guile.process.with.the.fl
7a80	61 67 20 2d 2d 6c 69 73 74 65 6e 20 74 6f 20 6d 61 6b 65 0a 69 74 20 73 70 61 77 6e 20 61 20 73	ag.--listen.to.make.it.spawn.a.s
7aa0	65 72 76 65 72 20 74 68 72 65 61 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20	erver.thread."...(interactive)..
7ac0	20 28 67 65 69 73 65 72 2d 63 6f 6e 6e 65 63 74 20 27 67 75 69 6c 65 29 29 0a 0a 28 64 65 66 75	.(geiser-connect.'guile))..(defu
7ae0	6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 67 65 69 73 65 72 2d 6c 6f 61 64 2d	n.geiser-guile--set-geiser-load-
7b00	70 61 74 68 20 28 29 0a 20 20 22 53 65 74 20 75 70 20 73 63 68 65 6d 65 20 6c 6f 61 64 20 70 61	path.()..."Set.up.scheme.load.pa
7b20	74 68 20 66 6f 72 20 52 45 50 4c 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 20 28 67 65	th.for.REPL."...(let*.((path.(ge
7b40	69 73 65 72 2d 67 75 69 6c 65 2d 65 6e 73 75 72 65 2d 73 63 68 65 6d 65 2d 64 69 72 29 29 0a 20	iser-guile-ensure-scheme-dir))..
7b60	20 20 20 20 20 20 20 20 28 77 69 74 6e 65 73 73 20 22 67 65 69 73 65 72 2f 65 6d 61 63 73 2e 73	........(witness."geiser/emacs.s
7b80	63 6d 22 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 64 65 20 60 28 62 65 67 69 6e 20 28 69 66 20	cm")..........(code.`(begin.(if.
7ba0	28 6e 6f 74 20 28 25 73 65 61 72 63 68 2d 6c 6f 61 64 2d 70 61 74 68 20 2c 77 69 74 6e 65 73 73	(not.(%search-load-path.,witness
7bc0	29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73	))............................(s
7be0	65 74 21 20 25 6c 6f 61 64 2d 70 61 74 68 20 28 63 6f 6e 73 20 2c 70 61 74 68 20 25 6c 6f 61 64	et!.%load-path.(cons.,path.%load
7c00	2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-path)))........................
7c20	27 64 6f 6e 65 29 29 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f	'done))).....(geiser-eval--send/
7c40	77 61 69 74 20 63 6f 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c	wait.code)))..(defun.geiser-guil
7c60	65 2d 2d 73 65 74 2d 75 70 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 20 28 29	e--set-up-declarative-modules.()
7c80	0a 20 20 22 53 65 74 20 75 70 20 47 75 69 6c 65 20 74 6f 20 28 6e 6f 74 29 20 75 73 65 20 64 65	..."Set.up.Guile.to.(not).use.de
7ca0	63 6c 61 72 61 74 69 76 65 20 6d 6f 64 75 6c 65 73 2e 0a 53 65 65 20 60 67 65 69 73 65 72 2d 67	clarative.modules..See.`geiser-g
7cc0	75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 27 2e 22 0a	uile-use-declarative-modules'.".
7ce0	20 20 28 75 6e 6c 65 73 73 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 73 65 2d 64 65 63 6c 61	..(unless.geiser-guile-use-decla
7d00	72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 0a 20 20 20 20 28 6c 65 74 20 28 28 63 6f 64 65 20 27	rative-modules.....(let.((code.'
7d20	28 62 65 67 69 6e 20 28 65 76 61 6c 2d 77 68 65 6e 20 28 65 78 70 61 6e 64 29 20 28 75 73 65 72	(begin.(eval-when.(expand).(user
7d40	2d 6d 6f 64 75 6c 65 73 2d 64 65 63 6c 61 72 61 74 69 76 65 3f 20 3a 66 29 29 20 27 6f 6b 29 29	-modules-declarative?.:f)).'ok))
7d60	29 0a 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20	).......(geiser-eval--send/wait.
7d80	63 6f 64 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73	code))))..(defun.geiser-guile--s
7da0	65 74 2d 75 70 2d 62 61 63 6b 74 72 61 63 65 20 28 29 0a 20 20 22 53 65 74 20 75 70 20 47 75 69	et-up-backtrace.()..."Set.up.Gui
7dc0	6c 65 27 73 20 62 61 63 6b 74 72 61 63 65 20 70 72 6f 70 65 72 74 69 65 73 2e 22 0a 20 20 28 77	le's.backtrace.properties."...(w
7de0	68 65 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 62 61 63 6b 77 61 72 64 73	hen.geiser-guile-debug-backwards
7e00	2d 62 61 63 6b 74 72 61 63 65 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e	-backtrace.....(geiser-eval--sen
7e20	64 2f 77 61 69 74 20 27 28 64 65 62 75 67 2d 65 6e 61 62 6c 65 20 27 62 61 63 6b 77 61 72 64 73	d/wait.'(debug-enable.'backwards
7e40	29 29 29 0a 20 20 28 77 68 65 6e 20 28 3e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75	)))...(when.(>.geiser-guile-debu
7e60	67 2d 74 65 72 6d 69 6e 61 6c 2d 77 69 64 74 68 20 30 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d	g-terminal-width.0).....(geiser-
7e80	65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74 20 60 28 62 65 67 69 6e 20 28 28 40 20 28 73 79 73	eval--send/wait.`(begin.((@.(sys
7ea0	74 65 6d 20 72 65 70 6c 20 64 65 62 75 67 29 20 74 65 72 6d 69 6e 61 6c 2d 77 69 64 74 68 29 0a	tem.repl.debug).terminal-width).
7ec0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
7ee0	20 20 20 20 20 2c 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 65 62 75 67 2d 74 65 72 6d 69 6e 61	.....,geiser-guile-debug-termina
7f00	6c 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	l-width)........................
7f20	20 20 20 20 20 20 20 20 20 20 20 20 20 27 6f 6b 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 69	.............'ok))))..(defun.gei
7f40	73 65 72 2d 67 75 69 6c 65 2d 2d 73 74 61 72 74 75 70 20 28 72 65 6d 6f 74 65 29 0a 20 20 22 53	ser-guile--startup.(remote)..."S
7f60	74 61 72 74 75 70 20 66 75 6e 63 74 69 6f 6e 2c 20 66 6f 72 20 61 20 72 65 6d 6f 74 65 20 63 6f	tartup.function,.for.a.remote.co
7f80	6e 6e 65 63 74 69 6f 6e 20 69 66 20 52 45 4d 4f 54 45 20 69 73 20 74 2e 22 0a 20 20 28 67 65 69	nnection.if.REMOTE.is.t."...(gei
7fa0	73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 65 72 72 6f 72 2d 6c 69 6e 6b 73 29 0a 20	ser-guile--set-up-error-links)..
7fc0	20 28 6c 65 74 2a 20 28 28 6c 61 73 74 2d 73 63 6d 20 28 6f 72 20 67 65 69 73 65 72 2d 72 65 70	.(let*.((last-scm.(or.geiser-rep
7fe0	6c 2d 2d 6c 61 73 74 2d 73 63 6d 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66	l--last-scm-buffer.(current-buff
8000	65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 6c 6f 67 2d 76 65 72 62 6f	er)))..........(geiser-log-verbo
8020	73 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 67 2d 6c 6f 61 64 2d 70 61 74 68 20 28 62 75 66	se.t)..........(g-load-path.(buf
8040	66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f	fer-local-value.'geiser-guile-lo
8060	61 64 2d 70 61 74 68 20 6c 61 73 74 2d 73 63 6d 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f	ad-path.last-scm))).....(when.(o
8080	72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 63 6f 6e 6e 2d 61 64 64 72 65 73 73 20 72 65 6d	r.geiser-guile--conn-address.rem
80a0	6f 74 65 29 0a 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 67 65	ote).......(geiser-guile--set-ge
80c0	69 73 65 72 2d 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69	iser-load-path)).....(geiser-gui
80e0	6c 65 2d 2d 73 65 74 2d 75 70 2d 64 65 63 6c 61 72 61 74 69 76 65 2d 6d 6f 64 75 6c 65 73 29 0a	le--set-up-declarative-modules).
8100	20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 65 74 2d 75 70 2d 62 61 63 6b 74 72	....(geiser-guile--set-up-backtr
8120	61 63 65 29 0a 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e 64 2f 77 61 69 74	ace).....(geiser-eval--send/wait
8140	20 22 2c 75 73 65 20 28 67 65 69 73 65 72 20 65 6d 61 63 73 29 5c 6e 27 64 6f 6e 65 22 29 0a 20	.",use.(geiser.emacs)\n'done")..
8160	20 20 20 28 64 6f 6c 69 73 74 20 28 64 69 72 20 67 2d 6c 6f 61 64 2d 70 61 74 68 29 0a 20 20 20	...(dolist.(dir.g-load-path)....
8180	20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20	...(let.((dir.(expand-file-name.
81a0	64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 2d 65 76 61 6c 2d 2d 73 65 6e	dir))).........(geiser-eval--sen
81c0	64 2f 77 61 69 74 20 60 28 3a 65 76 61 6c 20 28 3a 67 65 20 61 64 64 2d 74 6f 2d 6c 6f 61 64 2d	d/wait.`(:eval.(:ge.add-to-load-
81e0	70 61 74 68 20 2c 64 69 72 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 67 65 69 73 65 72	path.,dir))))).....(let.((geiser
8200	2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 20 20 20 20	-guile-warning-level............
8220	28 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c	(buffer-local-value.'geiser-guil
8240	65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 20 6c 61 73 74 2d 73 63 6d 29 29 29 0a 20 20 20 20	e-warning-level.last-scm))).....
8260	20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 77 61 72 6e 69 6e 67 2d 6c	..(geiser-guile-update-warning-l
8280	65 76 65 6c 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64	evel)).....(let.((geiser-guile-d
82a0	6f 63 2d 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 28 62	oc-process-texinfo............(b
82c0	75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	uffer-local-value.'geiser-guile-
82e0	64 6f 63 2d 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 20 6c 61 73 74 2d 73 63 6d 29 29 29 0a	doc-process-texinfo.last-scm))).
8300	20 20 20 20 20 20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 75 70 64 61 74 65 2d 64 6f 63 2d 70	......(geiser-guile-update-doc-p
8320	72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 29 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 4d 61 6e 75 61 6c	rocess-texinfo))))....;;;.Manual
8340	20 6c 6f 6f 6b 75 70 0a 0a 28 64 65 66 75 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e	.lookup..(defun.geiser-guile--in
8360	66 6f 2d 6c 6f 6f 6b 75 70 20 28 69 64 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 69 64	fo-lookup.(id)...(cond.((null.id
8380	29 20 28 69 6e 66 6f 20 22 67 75 69 6c 65 22 29 29 0a 20 20 20 20 20 20 20 20 28 28 69 67 6e 6f	).(info."guile")).........((igno
83a0	72 65 2d 65 72 72 6f 72 73 20 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 28 66	re-errors.(info-lookup-symbol.(f
83c0	6f 72 6d 61 74 20 22 25 73 22 20 69 64 29 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 6f 64	ormat."%s".id).'geiser-guile-mod
83e0	65 29 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6c 69 73 74 70 20 69 64 29 20	e).t)).........((and.(listp.id).
8400	28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 28 63 61 72 20	(geiser-guile--info-lookup.(car.
8420	28 6c 61 73 74 20 69 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 67 65 69 73 65 72	(last.id))))).........(t.(geiser
8440	2d 67 75 69 6c 65 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 28 77 68 65 6e 20 28 6c 69 73 74 70	-guile--info-lookup.(when.(listp
8460	20 69 64 29 20 28 62 75 74 6c 61 73 74 20 69 64 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 67	.id).(butlast.id))))))..(defun.g
8480	65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 2d 75 70 20 28 69 64 20	eiser-guile--manual-look-up.(id.
84a0	5f 6d 6f 64 29 0a 20 20 22 4c 6f 6f 6b 20 66 6f 72 20 49 44 20 69 6e 20 74 68 65 20 47 75 69 6c	_mod)..."Look.for.ID.in.the.Guil
84c0	65 20 6d 61 6e 75 61 6c 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70	e.manuals."...(let.((info-lookup
84e0	2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 2d 66 6c 61 67 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	-other-window-flag.geiser-guile-
8500	6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 75 70 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20	manual-lookup-other-window))....
8520	20 28 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 69 64 29 0a	.(geiser-guile--info-lookup.id).
8540	20 20 20 20 28 77 68 65 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 61 6e 75 61 6c 2d 6c 6f	....(when.geiser-guile-manual-lo
8560	6f 6b 75 70 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 2d	okup-other-window.......(switch-
8580	74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 2a 69 6e 66 6f 2a 22 29	to-buffer-other-window."*info*")
85a0	29 29 29 0a 0a 0c 0a 3b 3b 3b 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 66 69 6e 69	)))....;;;.Implementation.defini
85c0	74 69 6f 6e 3a 0a 0a 28 64 65 66 69 6e 65 2d 67 65 69 73 65 72 2d 69 6d 70 6c 65 6d 65 6e 74 61	tion:..(define-geiser-implementa
85e0	74 69 6f 6e 20 67 75 69 6c 65 0a 20 20 28 62 69 6e 61 72 79 20 67 65 69 73 65 72 2d 67 75 69 6c	tion.guile...(binary.geiser-guil
8600	65 2d 2d 62 69 6e 61 72 79 29 0a 20 20 28 61 72 67 6c 69 73 74 20 67 65 69 73 65 72 2d 67 75 69	e--binary)...(arglist.geiser-gui
8620	6c 65 2d 2d 70 61 72 61 6d 65 74 65 72 73 29 0a 20 20 28 76 65 72 73 69 6f 6e 2d 63 6f 6d 6d 61	le--parameters)...(version-comma
8640	6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 76 65 72 73 69 6f 6e 29 0a 20 20 28 6d 69 6e	nd.geiser-guile--version)...(min
8660	69 6d 75 6d 2d 76 65 72 73 69 6f 6e 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6d 69 6e 69 6d 75	imum-version.geiser-guile-minimu
8680	6d 2d 76 65 72 73 69 6f 6e 29 0a 20 20 28 72 65 70 6c 2d 73 74 61 72 74 75 70 20 67 65 69 73 65	m-version)...(repl-startup.geise
86a0	72 2d 67 75 69 6c 65 2d 2d 73 74 61 72 74 75 70 29 0a 20 20 28 70 72 6f 6d 70 74 2d 72 65 67 65	r-guile--startup)...(prompt-rege
86c0	78 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 29 0a	xp.geiser-guile--prompt-regexp).
86e0	20 20 28 63 6c 65 61 6e 2d 75 70 2d 6f 75 74 70 75 74 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d	..(clean-up-output.geiser-guile-
8700	2d 63 6c 65 61 6e 2d 75 70 2d 6f 75 74 70 75 74 29 0a 20 20 28 64 65 62 75 67 67 65 72 2d 70 72	-clean-up-output)...(debugger-pr
8720	6f 6d 70 74 2d 72 65 67 65 78 70 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 65 62 75 67 67	ompt-regexp.geiser-guile--debugg
8740	65 72 2d 70 72 6f 6d 70 74 2d 72 65 67 65 78 70 29 0a 20 20 28 65 6e 74 65 72 2d 64 65 62 75 67	er-prompt-regexp)...(enter-debug
8760	67 65 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 65 6e 74 65 72 2d 64 65 62 75 67 67 65 72	ger.geiser-guile--enter-debugger
8780	29 0a 20 20 28 6d 61 72 73 68 61 6c 6c 2d 70 72 6f 63 65 64 75 72 65 20 67 65 69 73 65 72 2d 67	)...(marshall-procedure.geiser-g
87a0	75 69 6c 65 2d 2d 67 65 69 73 65 72 2d 70 72 6f 63 65 64 75 72 65 29 0a 20 20 28 66 69 6e 64 2d	uile--geiser-procedure)...(find-
87c0	6d 6f 64 75 6c 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 65 74 2d 6d 6f 64 75 6c 65 29	module.geiser-guile--get-module)
87e0	0a 20 20 28 65 6e 74 65 72 2d 63 6f 6d 6d 61 6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d	...(enter-command.geiser-guile--
8800	65 6e 74 65 72 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 65 78 69 74 2d 63 6f 6d 6d 61 6e 64 20 67	enter-command)...(exit-command.g
8820	65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 65 78 69 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 69 6d	eiser-guile--exit-command)...(im
8840	70 6f 72 74 2d 63 6f 6d 6d 61 6e 64 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 69 6d 70 6f 72	port-command.geiser-guile--impor
8860	74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 66 69 6e 64 2d 73 79 6d 62 6f 6c 2d 62 65 67 69 6e 20	t-command)...(find-symbol-begin.
8880	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 73 79 6d 62 6f 6c 2d 62 65 67 69 6e 29 0a 20 20 28 64	geiser-guile--symbol-begin)...(d
88a0	69 73 70 6c 61 79 2d 65 72 72 6f 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 64 69 73 70 6c	isplay-error.geiser-guile--displ
88c0	61 79 2d 65 72 72 6f 72 29 0a 20 20 28 65 78 74 65 72 6e 61 6c 2d 68 65 6c 70 20 67 65 69 73 65	ay-error)...(external-help.geise
88e0	72 2d 67 75 69 6c 65 2d 2d 6d 61 6e 75 61 6c 2d 6c 6f 6f 6b 2d 75 70 29 0a 20 20 28 63 68 65 63	r-guile--manual-look-up)...(chec
8900	6b 2d 62 75 66 66 65 72 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 67 75 65 73 73 29 0a 20 20	k-buffer.geiser-guile--guess)...
8920	28 6b 65 79 77 6f 72 64 73 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 2d 6b 65 79 77 6f 72 64 73	(keywords.geiser-guile--keywords
8940	29 0a 20 20 28 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65	)...(case-sensitive.geiser-guile
8960	2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61	-case-sensitive))..;;;###autoloa
8980	64 0a 28 67 65 69 73 65 72 2d 61 63 74 69 76 61 74 65 2d 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f	d.(geiser-activate-implementatio
89a0	6e 20 27 67 75 69 6c 65 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 61 75 74 6f 6c	n.'guile)..;;;###autoload.(autol
89c0	6f 61 64 20 27 72 75 6e 2d 67 75 69 6c 65 20 22 67 65 69 73 65 72 2d 67 75 69 6c 65 22 20 22 53	oad.'run-guile."geiser-guile"."S
89e0	74 61 72 74 20 61 20 47 65 69 73 65 72 20 47 75 69 6c 65 20 52 45 50 4c 2e 22 20 74 29 0a 0a 3b	tart.a.Geiser.Guile.REPL.".t)..;
8a00	3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 61 75 74 6f 6c 6f 61 64 20 27 73 77 69 74 63 68 2d	;;###autoload.(autoload.'switch-
8a20	74 6f 2d 67 75 69 6c 65 20 22 67 65 69 73 65 72 2d 67 75 69 6c 65 22 0a 20 20 22 53 74 61 72 74	to-guile."geiser-guile"..."Start
8a40	20 61 20 47 65 69 73 65 72 20 47 75 69 6c 65 20 52 45 50 4c 2c 20 6f 72 20 73 77 69 74 63 68 20	.a.Geiser.Guile.REPL,.or.switch.
8a60	74 6f 20 61 20 72 75 6e 6e 69 6e 67 20 6f 6e 65 2e 22 20 74 29 0a 0a 28 70 72 6f 76 69 64 65 20	to.a.running.one.".t)..(provide.
8a80	27 67 65 69 73 65 72 2d 67 75 69 6c 65 29 0a 3b 3b 3b 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e	'geiser-guile).;;;.geiser-guile.
8aa0	65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	el.ends.here....................
8ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8b00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8b20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8c00	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 67 65 69 73 65 72 2d 67 75 69 6c 65	geiser-guile-0.28.3/geiser-guile
8c20	2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	-pkg.el.........................
8c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8c60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
8c80	30 30 30 30 37 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 31 30 00 20 30 00 00 00	0000741.00000000000.016310..0...
8ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8d00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
8d20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
8d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
8e00	3b 3b 20 47 65 6e 65 72 61 74 65 64 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 70 74 69 6f 6e	;;.Generated.package.description
8e20	20 66 72 6f 6d 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 65 6c 20 20 2d 2a 2d 20 6e 6f 2d 62 79	.from.geiser-guile.el..-*-.no-by
8e40	74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67	te-compile:.t.-*-.(define-packag
8e60	65 20 22 67 65 69 73 65 72 2d 67 75 69 6c 65 22 20 22 30 2e 32 38 2e 33 22 20 22 47 75 69 6c 65	e."geiser-guile"."0.28.3"."Guile
8e80	20 61 6e 64 20 47 65 69 73 65 72 20 74 61 6c 6b 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 22 20	.and.Geiser.talk.to.each.other".
8ea0	27 28 28 65 6d 61 63 73 20 22 32 36 2e 31 22 29 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 33	'((emacs."26.1").(transient."0.3
8ec0	22 29 20 28 67 65 69 73 65 72 20 22 30 2e 32 38 2e 31 22 29 29 20 3a 63 6f 6d 6d 69 74 20 22 61	").(geiser."0.28.1")).:commit."a
8ee0	30 66 31 31 31 66 38 64 65 64 64 33 31 63 35 39 33 63 34 65 64 31 32 63 30 62 39 39 37 34 35 66	0f111f8dedd31c593c4ed12c0b99745f
8f00	33 63 31 33 34 30 66 22 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 4a 6f 73 65 20 41 6e 74 6f 6e	3c1340f".:authors.'(("Jose.Anton
8f20	69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 22 20 2e 20 22 28 6a 61 6f 40 67 6e 75 2e 6f 72 67 29	io.Ortega.Ruiz"..."(jao@gnu.org)
8f40	22 29 29 20 3a 6d 61 69 6e 74 61 69 6e 65 72 20 27 28 22 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20	")).:maintainer.'("Jose.Antonio.
8f60	4f 72 74 65 67 61 20 52 75 69 7a 22 20 2e 20 22 28 6a 61 6f 40 67 6e 75 2e 6f 72 67 29 22 29 20	Ortega.Ruiz"..."(jao@gnu.org)").
8f80	3a 6b 65 79 77 6f 72 64 73 20 27 28 22 6c 61 6e 67 75 61 67 65 73 22 20 22 67 75 69 6c 65 22 20	:keywords.'("languages"."guile".
8fa0	22 73 63 68 65 6d 65 22 20 22 67 65 69 73 65 72 22 29 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f	"scheme"."geiser").:url."https:/
8fc0	2f 67 69 74 6c 61 62 2e 63 6f 6d 2f 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 75 69 6c 65 22 29	/gitlab.com/emacs-geiser/guile")
8fe0	0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
9000	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 67 65 69 73 65 72 2d 67 75 69 6c 65	geiser-guile-0.28.3/geiser-guile
9020	2e 74 65 78 69 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.texi...........................
9040	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
9060	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
9080	30 30 30 37 32 37 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 31 33 00 20 30 00 00 00	0007275.00000000000.016113..0...
90a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
90c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
90e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
9100	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
9120	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
9140	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
9160	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
9180	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
91a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
91c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
91e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
9200	5c 69 6e 70 75 74 20 74 65 78 69 6e 66 6f 20 20 20 20 40 63 20 2d 2a 2d 20 74 65 78 69 6e 66 6f	\input.texinfo....@c.-*-.texinfo
9220	20 2d 2a 2d 0a 40 63 20 25 2a 2a 73 74 61 72 74 20 6f 66 20 68 65 61 64 65 72 0a 40 73 65 74 66	.-*-.@c.%**start.of.header.@setf
9240	69 6c 65 6e 61 6d 65 20 67 65 69 73 65 72 2d 67 75 69 6c 65 2e 69 6e 66 6f 0a 40 73 65 74 74 69	ilename.geiser-guile.info.@setti
9260	74 6c 65 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 74 61 6c 6b 20 74 6f 20 65 61 63	tle.Geiser.and.Guile.talk.to.eac
9280	68 20 6f 74 68 65 72 0a 40 64 6f 63 75 6d 65 6e 74 65 6e 63 6f 64 69 6e 67 20 55 54 46 2d 38 0a	h.other.@documentencoding.UTF-8.
92a0	40 64 6f 63 75 6d 65 6e 74 6c 61 6e 67 75 61 67 65 20 65 6e 0a 40 63 20 25 2a 2a 65 6e 64 20 6f	@documentlanguage.en.@c.%**end.o
92c0	66 20 68 65 61 64 65 72 0a 0a 40 64 69 72 63 61 74 65 67 6f 72 79 20 45 6d 61 63 73 0a 40 64 69	f.header..@dircategory.Emacs.@di
92e0	72 65 6e 74 72 79 0a 2a 20 47 65 69 73 65 72 20 47 75 69 6c 65 3a 20 28 67 65 69 73 65 72 2d 67	rentry.*.Geiser.Guile:.(geiser-g
9300	75 69 6c 65 29 2e 20 53 75 70 70 6f 72 74 20 66 6f 72 20 47 75 69 6c 65 20 69 6e 20 47 65 69 73	uile)..Support.for.Guile.in.Geis
9320	65 72 2e 0a 40 65 6e 64 20 64 69 72 65 6e 74 72 79 0a 0a 40 66 69 6e 61 6c 6f 75 74 0a 40 74 69	er..@end.direntry..@finalout.@ti
9340	74 6c 65 70 61 67 65 0a 40 74 69 74 6c 65 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20	tlepage.@title.Geiser.and.Guile.
9360	74 61 6c 6b 20 74 6f 20 65 61 63 68 20 6f 74 68 65 72 0a 40 61 75 74 68 6f 72 20 6a 61 6f 0a 40	talk.to.each.other.@author.jao.@
9380	65 6e 64 20 74 69 74 6c 65 70 61 67 65 0a 0a 40 69 66 6e 6f 74 74 65 78 0a 40 6e 6f 64 65 20 54	end.titlepage..@ifnottex.@node.T
93a0	6f 70 0a 40 74 6f 70 20 47 65 69 73 65 72 20 61 6e 64 20 47 75 69 6c 65 20 74 61 6c 6b 20 74 6f	op.@top.Geiser.and.Guile.talk.to
93c0	20 65 61 63 68 20 6f 74 68 65 72 0a 40 65 6e 64 20 69 66 6e 6f 74 74 65 78 0a 0a 40 6d 65 6e 75	.each.other.@end.ifnottex..@menu
93e0	0a 2a 20 4f 76 65 72 76 69 65 77 3a 3a 0a 2a 20 53 74 61 72 74 20 75 70 3a 3a 0a 2a 20 54 65 78	.*.Overview::.*.Start.up::.*.Tex
9400	69 6e 66 6f 20 64 6f 63 73 74 72 69 6e 67 73 3a 3a 0a 2a 20 44 65 62 75 67 67 69 6e 67 20 73 75	info.docstrings::.*.Debugging.su
9420	70 70 6f 72 74 3a 3a 0a 2a 20 54 72 61 6d 70 20 73 75 70 70 6f 72 74 3a 3a 0a 40 65 6e 64 20 6d	pport::.*.Tramp.support::.@end.m
9440	65 6e 75 0a 0a 40 6e 6f 64 65 20 4f 76 65 72 76 69 65 77 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20	enu..@node.Overview.@unnumbered.
9460	4f 76 65 72 76 69 65 77 0a 0a 54 68 69 73 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 73 20	Overview..This.package.provides.
9480	73 75 70 70 6f 72 74 20 66 6f 72 20 75 73 69 6e 67 20 40 75 72 65 66 7b 68 74 74 70 73 3a 2f 2f	support.for.using.@uref{https://
94a0	77 77 77 2e 67 6e 75 2e 6f 72 67 2f 73 6f 66 74 77 61 72 65 2f 67 75 69 6c 65 2f 2c 20 47 4e 55	www.gnu.org/software/guile/,.GNU
94c0	20 47 75 69 6c 65 7d 20 69 6e 20 45 6d 61 63 73 20 77 69 74 68 0a 40 75 72 65 66 7b 68 74 74 70	.Guile}.in.Emacs.with.@uref{http
94e0	3a 2f 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 2c 20 47 65 69 73 65 72 7d 2e 0a 0a	://geiser.nongnu.org,.Geiser}...
9500	50 72 6f 76 69 64 65 64 20 40 75 72 65 66 7b 68 74 74 70 73 3a 2f 2f 67 69 74 6c 61 62 2e 63 6f	Provided.@uref{https://gitlab.co
9520	6d 2f 65 6d 61 63 73 2d 67 65 69 73 65 72 2f 67 65 69 73 65 72 2c 20 67 65 69 73 65 72 7d 20 69	m/emacs-geiser/geiser,.geiser}.i
9540	73 20 69 6e 73 74 61 6c 6c 65 64 20 69 6e 20 79 6f 75 72 20 73 79 73 74 65 6d 2c 20 69 66 20 74	s.installed.in.your.system,.if.t
9560	68 69 73 20 70 61 63 6b 61 67 65 27 73 0a 64 69 72 65 63 74 6f 72 79 20 69 73 20 69 6e 20 79 6f	his.package's.directory.is.in.yo
9580	75 72 20 6c 6f 61 64 20 70 61 74 68 2c 20 6a 75 73 74 20 61 64 64 20 40 63 6f 64 65 7b 28 72 65	ur.load.path,.just.add.@code{(re
95a0	71 75 69 72 65 20 27 67 65 69 73 65 72 2d 67 75 69 6c 65 29 7d 20 74 6f 0a 79 6f 75 72 20 69 6e	quire.'geiser-guile)}.to.your.in
95c0	69 74 69 61 6c 69 73 61 74 69 6f 6e 20 66 69 6c 65 73 20 61 6e 64 20 74 68 65 6e 20 40 63 6f 64	itialisation.files.and.then.@cod
95e0	65 7b 4d 2d 78 20 67 65 69 73 65 72 2d 67 75 69 6c 65 7d 20 74 6f 20 73 74 61 72 74 20 61 20 52	e{M-x.geiser-guile}.to.start.a.R
9600	45 50 4c 40 2e 0a 53 63 68 65 6d 65 20 66 69 6c 65 73 20 77 69 74 68 20 61 20 47 75 69 6c 65 20	EPL@..Scheme.files.with.a.Guile.
9620	6d 6f 64 75 6c 65 20 64 65 63 6c 61 72 61 74 69 6f 6e 20 73 68 6f 75 6c 64 20 62 65 20 61 75 74	module.declaration.should.be.aut
9640	6f 6d 61 74 69 63 61 6c 6c 79 0a 72 65 63 6f 67 6e 69 73 65 64 20 61 73 20 47 75 69 6c 65 2d 66	omatically.recognised.as.Guile-f
9660	6c 61 76 6f 75 72 65 64 20 47 65 69 73 65 72 20 62 75 66 66 65 72 73 2e 0a 0a 54 68 65 20 65 61	lavoured.Geiser.buffers...The.ea
9680	73 69 65 73 74 20 77 61 79 20 6f 66 20 69 6e 73 74 61 6c 6c 69 6e 67 20 74 68 69 73 20 70 61 63	siest.way.of.installing.this.pac
96a0	6b 61 67 65 20 69 73 20 75 73 69 6e 67 20 4e 6f 6e 47 4e 55 20 45 6c 70 61 20 6f 72 0a 4d 45 4c	kage.is.using.NonGNU.Elpa.or.MEL
96c0	50 41 40 2e 20 20 49 66 20 79 6f 75 27 72 65 20 69 6e 20 45 6d 61 63 73 20 32 38 20 6f 72 20 68	PA@...If.you're.in.Emacs.28.or.h
96e0	69 67 68 65 72 2c 20 74 68 65 20 66 6f 72 6d 65 72 20 69 73 20 61 6c 72 65 61 64 79 20 65 6e 61	igher,.the.former.is.already.ena
9700	62 6c 65 64 0a 61 6e 64 20 61 6c 6c 20 79 6f 75 20 6e 65 65 64 20 69 73 20 74 68 65 20 66 61 6d	bled.and.all.you.need.is.the.fam
9720	69 6c 69 61 72 0a 0a 40 6c 69 73 70 0a 4d 2d 78 20 69 6e 73 74 61 6c 6c 2d 70 61 63 6b 61 67 65	iliar..@lisp.M-x.install-package
9740	20 52 45 54 20 67 65 69 73 65 72 2d 67 75 69 6c 65 20 52 45 54 0a 40 65 6e 64 20 6c 69 73 70 0a	.RET.geiser-guile.RET.@end.lisp.
9760	0a 54 68 61 74 20 77 69 6c 6c 20 61 6c 73 6f 20 69 6e 73 74 61 6c 6c 20 67 65 69 73 65 72 2c 20	.That.will.also.install.geiser,.
9780	61 6e 64 20 69 74 73 20 66 69 6e 65 20 69 6e 66 6f 20 6d 61 6e 75 61 6c 2e 20 20 50 6c 65 61 73	and.its.fine.info.manual...Pleas
97a0	65 20 72 65 66 65 72 0a 74 6f 20 69 74 20 28 6f 72 20 69 74 73 20 40 75 72 65 66 7b 68 74 74 70	e.refer.to.it.(or.its.@uref{http
97c0	73 3a 2f 2f 67 65 69 73 65 72 2e 6e 6f 6e 67 6e 75 2e 6f 72 67 2c 20 6f 6e 6c 69 6e 65 20 76 65	s://geiser.nongnu.org,.online.ve
97e0	72 73 69 6f 6e 7d 29 20 66 6f 72 20 61 20 67 65 6e 65 72 61 6c 20 64 65 73 63 72 69 70 74 69 6f	rsion}).for.a.general.descriptio
9800	6e 20 6f 66 20 68 6f 77 20 67 65 69 73 65 72 0a 73 63 68 65 6d 65 73 20 77 6f 72 6b 2e 20 20 57	n.of.how.geiser.schemes.work...W
9820	65 20 70 72 6f 76 69 64 65 20 62 65 6c 6f 77 20 73 6f 6d 65 20 61 64 64 69 74 69 6f 6e 61 6c 20	e.provide.below.some.additional.
9840	64 65 74 61 69 6c 73 20 73 70 65 63 69 66 69 63 20 74 6f 0a 67 65 69 73 65 72 2d 67 75 69 6c 65	details.specific.to.geiser-guile
9860	2e 0a 0a 40 6e 6f 64 65 20 53 74 61 72 74 20 75 70 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20 53 74	...@node.Start.up.@unnumbered.St
9880	61 72 74 20 75 70 0a 0a 57 68 65 6e 20 6c 61 75 6e 63 68 69 6e 67 20 74 68 65 20 47 75 69 6c 65	art.up..When.launching.the.Guile
98a0	20 52 45 50 4c 2c 20 67 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 76 6f 6b 65 20 74 68 65 20 62 69	.REPL,.geiser.will.invoke.the.bi
98c0	6e 61 72 79 0a 63 6f 6e 66 69 67 75 72 65 64 20 69 6e 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d	nary.configured.in.@code{geiser-
98e0	67 75 69 6c 65 2d 62 69 6e 61 72 79 7d 20 28 73 69 6d 70 6c 79 20 22 67 75 69 6c 65 22 20 62 79	guile-binary}.(simply."guile".by
9900	20 64 65 66 61 75 6c 74 29 0a 77 68 69 63 68 20 69 6e 20 74 75 72 6e 20 77 69 6c 6c 20 6c 6f 61	.default).which.in.turn.will.loa
9920	64 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7d 2c	d.@code{geiser-guile-init-file},
9940	20 69 66 20 61 6e 79 2e 0a 0a 4e 6f 74 65 2c 20 68 6f 77 65 76 65 72 2c 20 74 68 61 74 20 73 70	.if.any...Note,.however,.that.sp
9960	65 63 69 66 79 69 6e 67 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 69 6e 69 74	ecifying.@code{geiser-guile-init
9980	2d 66 69 6c 65 7d 20 69 73 20 40 65 6d 70 68 7b 6e 6f 74 7d 0a 65 71 75 69 76 61 6c 65 6e 74 20	-file}.is.@emph{not}.equivalent.
99a0	74 6f 20 63 68 61 6e 67 69 6e 67 20 47 75 69 6c 65 27 73 20 69 6e 69 74 69 61 6c 69 7a 61 74 69	to.changing.Guile's.initializati
99c0	6f 6e 20 66 69 6c 65 20 28 40 73 61 6d 70 7b 7e 2f 2e 67 75 69 6c 65 7d 29 2c 0a 62 65 63 61 75	on.file.(@samp{~/.guile}),.becau
99e0	73 65 20 74 68 65 20 66 6f 72 6d 65 72 20 69 73 20 6c 6f 61 64 65 64 20 75 73 69 6e 67 20 74 68	se.the.former.is.loaded.using.th
9a00	65 20 40 73 61 6d 70 7b 2d 6c 7d 20 66 6c 61 67 2c 20 74 6f 67 65 74 68 65 72 20 77 69 74 68 20	e.@samp{-l}.flag,.together.with.
9a20	40 73 61 6d 70 7b 2d 71 7d 0a 74 6f 20 64 69 73 61 62 6c 65 20 6c 6f 61 64 69 6e 67 20 74 68 65	@samp{-q}.to.disable.loading.the
9a40	20 73 65 63 6f 6e 64 2e 20 20 42 75 74 20 74 68 65 72 65 20 61 72 65 20 73 75 62 74 6c 65 20 64	.second...But.there.are.subtle.d
9a60	69 66 66 65 72 65 6e 63 65 73 0a 69 6e 20 74 68 65 20 77 61 79 20 47 75 69 6c 65 20 6c 6f 61 64	ifferences.in.the.way.Guile.load
9a80	73 20 74 68 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 66 69 6c 65 20 76 65 72 73 75 73	s.the.initialization.file.versus
9aa0	20 68 6f 77 20 69 74 20 6c 6f 61 64 73 0a 61 20 66 69 6c 65 20 73 70 65 63 69 66 69 65 64 20 76	.how.it.loads.a.file.specified.v
9ac0	69 61 20 74 68 65 20 40 73 61 6d 70 7b 2d 6c 7d 20 66 6c 61 67 2e 20 20 49 66 20 77 68 61 74 20	ia.the.@samp{-l}.flag...If.what.
9ae0	79 6f 75 20 77 61 6e 74 20 69 73 20 6a 75 73 74 0a 6c 6f 61 64 69 6e 67 20 40 73 61 6d 70 7b 7e	you.want.is.just.loading.@samp{~
9b00	2f 2e 67 75 69 6c 65 7d 2c 20 6c 65 61 76 65 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69	/.guile},.leave.@code{geiser-gui
9b20	6c 65 2d 69 6e 69 74 2d 66 69 6c 65 7d 20 61 6c 6f 6e 65 20 61 6e 64 20 73 65 74 0a 40 63 6f 64	le-init-file}.alone.and.set.@cod
9b40	65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64 2d 69 6e 69 74 2d 66 69 6c 65 7d 20 74	e{geiser-guile-load-init-file}.t
9b60	6f 20 40 63 6f 64 65 7b 74 7d 20 69 6e 73 74 65 61 64 2e 0a 0a 4f 6e 65 20 63 61 6e 20 61 6c 73	o.@code{t}.instead...One.can.als
9b80	6f 20 70 72 6f 76 69 64 65 20 61 20 67 6c 6f 62 61 6c 20 6c 69 73 74 20 6f 66 20 70 61 74 68 73	o.provide.a.global.list.of.paths
9ba0	20 74 6f 20 61 64 64 20 74 6f 20 47 75 69 6c 65 27 73 0a 40 73 61 6d 70 7b 25 6c 6f 61 64 2d 70	.to.add.to.Guile's.@samp{%load-p
9bc0	61 74 68 7d 20 76 69 61 20 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 6c 6f 61 64	ath}.via.@code{geiser-guile-load
9be0	2d 70 61 74 68 7d 2e 0a 0a 40 6e 6f 64 65 20 54 65 78 69 6e 66 6f 20 64 6f 63 73 74 72 69 6e 67	-path}...@node.Texinfo.docstring
9c00	73 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20 54 65 78 69 6e 66 6f 20 64 6f 63 73 74 72 69 6e 67 73	s.@unnumbered.Texinfo.docstrings
9c20	0a 0a 59 6f 75 20 63 61 6e 20 65 6e 61 62 6c 65 20 70 72 6f 63 65 73 73 69 6e 67 20 6f 66 20 74	..You.can.enable.processing.of.t
9c40	65 78 69 6e 66 6f 20 69 6e 20 64 6f 63 73 74 72 69 6e 67 73 20 62 79 20 63 75 73 74 6f 6d 69 7a	exinfo.in.docstrings.by.customiz
9c60	69 6e 67 0a 40 63 6f 64 65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 64 6f 63 2d 70 72 6f 63 65	ing.@code{geiser-guile-doc-proce
9c80	73 73 2d 74 65 78 69 6e 66 6f 7d 20 74 6f 20 61 20 6e 6f 6e 2d 6e 69 6c 20 76 61 6c 75 65 2e 20	ss-texinfo}.to.a.non-nil.value..
9ca0	20 49 66 20 65 6e 61 62 6c 65 64 20 61 6e 64 0a 64 6f 63 73 74 72 69 6e 67 20 69 73 20 61 20 76	.If.enabled.and.docstring.is.a.v
9cc0	61 6c 69 64 20 74 65 78 69 6e 66 6f 20 73 6e 69 70 70 65 74 2c 20 69 74 20 77 69 6c 6c 20 62 65	alid.texinfo.snippet,.it.will.be
9ce0	20 63 6f 6e 76 65 72 74 65 64 20 69 6e 74 6f 20 61 20 70 6c 61 69 6e 20 74 65 78 74 0a 62 65 66	.converted.into.a.plain.text.bef
9d00	6f 72 65 20 62 65 69 6e 67 20 64 69 73 70 6c 61 79 65 64 2e 0a 0a 40 6e 6f 64 65 20 44 65 62 75	ore.being.displayed...@node.Debu
9d20	67 67 69 6e 67 20 73 75 70 70 6f 72 74 0a 40 75 6e 6e 75 6d 62 65 72 65 64 20 44 65 62 75 67 67	gging.support.@unnumbered.Debugg
9d40	69 6e 67 20 73 75 70 70 6f 72 74 0a 0a 47 75 69 6c 65 20 73 75 70 70 6f 72 74 73 20 61 6c 6c 20	ing.support..Guile.supports.all.
9d60	74 68 65 20 64 65 62 75 67 67 65 72 20 63 6f 6d 6d 61 6e 64 73 20 73 75 70 70 6f 72 74 65 64 20	the.debugger.commands.supported.
9d80	62 79 20 47 65 69 73 65 72 20 28 69 74 27 73 0a 69 6e 20 66 61 63 74 20 75 73 65 64 20 61 73 20	by.Geiser.(it's.in.fact.used.as.
9da0	74 68 65 20 72 65 66 65 72 65 6e 63 65 20 66 6f 72 20 74 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61	the.reference.for.the.implementa
9dc0	74 69 6f 6e 20 61 6e 64 20 64 65 73 69 67 6e 20 6f 66 0a 74 68 61 74 20 73 75 70 70 6f 72 74 29	tion.and.design.of.that.support)
9de0	2e 20 20 57 68 65 6e 20 74 68 65 20 52 45 50 4c 20 77 6f 75 6c 64 20 6e 6f 72 6d 61 6c 6c 79 20	...When.the.REPL.would.normally.
9e00	65 6e 74 65 72 20 69 74 73 20 64 65 62 75 67 20 6d 6f 64 65 2c 0a 77 69 74 68 20 61 20 70 72 6f	enter.its.debug.mode,.with.a.pro
9e20	6d 70 74 20 6f 66 20 74 68 65 20 73 74 79 6c 65 3a 0a 0a 73 63 68 65 6d 65 40 40 28 67 75 69 6c	mpt.of.the.style:..scheme@@(guil
9e40	65 2d 75 73 65 72 29 20 5b 31 5d 3e 0a 0a 73 68 6f 77 69 6e 67 20 61 20 64 65 62 75 67 67 69 6e	e-user).[1]>..showing.a.debuggin
9e60	67 20 6c 65 76 65 6c 2c 20 47 65 69 73 65 72 20 77 69 6c 6c 20 69 6e 73 74 65 61 64 20 62 72 69	g.level,.Geiser.will.instead.bri
9e80	6e 67 20 79 6f 75 20 74 6f 20 74 68 65 0a 40 73 61 6d 70 7b 2a 47 65 69 73 65 72 20 44 62 67 2a	ng.you.to.the.@samp{*Geiser.Dbg*
9ea0	7d 20 62 75 66 66 65 72 2c 20 77 68 65 72 65 20 79 6f 75 20 63 61 6e 20 61 63 63 65 73 73 20 61	}.buffer,.where.you.can.access.a
9ec0	20 6d 65 6e 75 20 6f 66 20 64 65 62 75 67 67 69 6e 67 0a 63 6f 6d 6d 61 6e 64 73 20 76 69 61 20	.menu.of.debugging.commands.via.
9ee0	74 68 65 20 40 63 6f 64 65 7b 2c 7d 20 28 63 6f 6d 6d 61 29 20 6b 65 79 2e 0a 0a 54 68 65 20 67	the.@code{,}.(comma).key...The.g
9f00	65 69 73 65 72 2d 67 75 69 6c 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 67 72 6f 75 70 20	eiser-guile.customization.group.
9f20	77 69 6c 6c 20 73 68 6f 77 20 79 6f 75 2c 20 61 6d 6f 6e 67 20 6d 61 6e 79 0a 6f 74 68 65 72 2c	will.show.you,.among.many.other,
9f40	20 61 20 66 65 77 20 66 6c 61 67 73 20 66 69 6e 65 2d 74 75 6e 69 6e 67 20 69 6e 74 65 72 61 63	.a.few.flags.fine-tuning.interac
9f60	74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 64 65 62 75 67 67 65 72 2c 20 61 73 0a 77 65 6c 6c 20	tion.with.the.debugger,.as.well.
9f80	61 73 20 74 68 69 6e 67 73 20 6c 69 6b 65 20 74 68 65 20 64 65 74 61 69 6c 20 6c 65 76 65 6c 20	as.things.like.the.detail.level.
9fa0	6f 66 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 20 28 65 2e 67 2e 20 76 69 61 0a 40 63 6f 64	of.error.messages.(e.g..via.@cod
9fc0	65 7b 67 65 69 73 65 72 2d 67 75 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 6c 65 76 65 6c 7d 29 2e 0a	e{geiser-guile-warning-level})..
9fe0	0a 40 6e 6f 64 65 20 54 72 61 6d 70 20 73 75 70 70 6f 72 74 0a 40 75 6e 6e 75 6d 62 65 72 65 64	.@node.Tramp.support.@unnumbered
a000	20 54 72 61 6d 70 20 73 75 70 70 6f 72 74 0a 0a 47 65 69 73 65 72 20 67 75 69 6c 65 20 63 61 6e	.Tramp.support..Geiser.guile.can
a020	20 62 65 20 75 73 65 64 20 72 65 6d 6f 74 65 6c 79 20 76 69 61 20 74 72 61 6d 70 20 63 6f 6e 6e	.be.used.remotely.via.tramp.conn
a040	65 63 74 69 6f 6e 73 3a 20 74 68 65 20 52 45 50 4c 0a 70 72 6f 63 65 73 73 20 77 69 6c 6c 20 62	ections:.the.REPL.process.will.b
a060	65 20 72 75 6e 20 69 6e 20 74 68 65 20 6d 61 63 68 69 6e 65 20 77 68 65 72 65 20 74 68 65 20 74	e.run.in.the.machine.where.the.t
a080	72 61 6d 70 2d 61 63 63 65 73 73 65 64 20 66 69 6c 65 0a 6c 69 76 65 73 2e 20 20 49 6d 70 6c 65	ramp-accessed.file.lives...Imple
a0a0	6d 65 6e 74 65 64 20 62 79 20 46 65 6c 69 70 65 20 4c 65 6d 61 2e 0a 0a 40 62 79 65 0a 00 00 00	mented.by.Felipe.Lema...@bye....
a0c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a0e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a100	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a120	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a140	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a160	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a180	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a1a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a1c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a1e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a200	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 00 00 00 00 00 00 00 00	geiser-guile-0.28.3/src/........
a220	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a260	00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000755.0000000.0000000.0000
a280	30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 34 31 33 00 20 35 00 00 00	0000000.00000000000.013413..5...
a2a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a2c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a2e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a300	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
a320	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
a340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a3a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a3c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a3e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a400	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 00	geiser-guile-0.28.3/src/geiser/.
a420	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a440	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a460	00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000755.0000000.0000000.0000
a480	30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 36 37 31 00 20 35 00 00 00	0000000.00000000000.014671..5...
a4a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a4c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a4e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a500	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
a520	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
a540	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a560	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a580	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a5a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a5c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a5e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a600	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 63	geiser-guile-0.28.3/src/geiser/c
a620	6f 6d 70 6c 65 74 69 6f 6e 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	ompletion.scm...................
a640	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a660	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
a680	30 30 30 32 31 31 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 34 32 00 20 30 00 00 00	0002112.00000000000.017542..0...
a6a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a6c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a6e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a700	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
a720	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
a740	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a760	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a780	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a7a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a7c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a7e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
a800	3b 3b 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 73 63 6d 20 2d 2d 20 63 6f 6d 70 6c 65 74 69 6e 67	;;;.completion.scm.--.completing
a820	20 6b 6e 6f 77 6e 20 73 79 6d 62 6f 6c 73 20 61 6e 64 20 6d 6f 64 75 6c 65 20 6e 61 6d 65 73 0a	.known.symbols.and.module.names.
a840	0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 32 2c 20 32 30	.;;.Copyright.(C).2009,.2012,.20
a860	32 33 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a 3b 3b 20	23.Jose.Antonio.Ortega.Ruiz..;;.
a880	54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79	This.program.is.free.software;.y
a8a0	6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b	ou.can.redistribute.it.and/or.;;
a8c0	20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68	.modify.it.under.the.terms.of.th
a8e0	65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 68 6f 75	e.Modified.BSD.License..You.shou
a900	6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68	ld.;;.have.received.a.copy.of.th
a920	65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61	e.license.along.with.this.progra
a940	6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 78 66	m..If.;;.not,.see.<http://www.xf
a960	72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 6d 6c 23	ree86.org/3.3.6/COPYRIGHT2.html#
a980	35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 4d 6f 6e 20 4d 61 72 20 30 32 2c 20	5>...;;.Start.date:.Mon.Mar.02,.
a9a0	32 30 30 39 20 30 32 3a 32 32 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73	2009.02:22..(define-module.(geis
a9c0	65 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 28 63 6f 6d 70 6c	er.completion)...#:export.(compl
a9e0	65 74 69 6f 6e 73 20 6d 6f 64 75 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 23 3a 75	etions.module-completions)...#:u
aa00	73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 75 73 65	se-module.(geiser.utils)...#:use
aa20	2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 75 73 65	-module.(geiser.modules)...#:use
aa40	2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 73 65 73 73 69 6f 6e 29 0a 20 20 23 3a 75 73 65 2d	-module.(ice-9.session)...#:use-
aa60	6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78 29 29 0a 0a 28 64 65 66 69 6e 65 20 28	module.(ice-9.regex))..(define.(
aa80	63 6f 6d 70 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 29 0a 20 20 28 6c 65 74 20 28 28 70 72 65	completions.prefix)...(let.((pre
aaa0	66 69 78 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 22 5e 22 20 28 72 65 67 65 78 70 2d 71	fix.(string-append."^".(regexp-q
aac0	75 6f 74 65 20 70 72 65 66 69 78 29 29 29 29 0a 20 20 20 20 28 73 6f 72 74 21 20 28 6d 61 70 20	uote.prefix)))).....(sort!.(map.
aae0	73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 28 61 70 72 6f 70 6f 73 2d 69 6e 74 65 72 6e 61 6c	symbol->string.(apropos-internal
ab00	20 70 72 65 66 69 78 29 29 20 73 74 72 69 6e 67 3c 3f 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28	.prefix)).string<?)))..(define.(
ab20	6d 6f 64 75 6c 65 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 70 72 65 66 69 78 29 0a 20 20 28 6c 65	module-completions.prefix)...(le
ab40	74 2a 20 28 28 70 72 65 66 69 78 20 28 72 65 67 65 78 70 2d 73 75 62 73 74 69 74 75 74 65 2f 67	t*.((prefix.(regexp-substitute/g
ab60	6c 6f 62 61 6c 20 23 66 20 22 5c 5c 29 2a 24 22 20 70 72 65 66 69 78 20 27 70 72 65 20 22 22 20	lobal.#f."\\)*$".prefix.'pre."".
ab80	27 70 6f 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 65 66 69 78 20 28 73 74 72 69 6e 67	'post))..........(prefix.(string
aba0	2d 61 70 70 65 6e 64 20 22 5e 22 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 70 72 65 66 69 78	-append."^".(regexp-quote.prefix
abc0	29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 65 72 20 28 6c 61 6d 62 64 61 20 28 73	)))..........(matcher.(lambda.(s
abe0	29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 70 72 65 66 69 78 20 73 29 29 29 0a 20 20 20 20	).(string-match.prefix.s))).....
ac00	20 20 20 20 20 28 6e 61 6d 65 73 20 28 66 69 6c 74 65 72 20 6d 61 74 63 68 65 72 20 28 61 6c 6c	.....(names.(filter.matcher.(all
ac20	2d 6d 6f 64 75 6c 65 73 29 29 29 29 0a 20 20 20 20 28 73 6f 72 74 21 20 6e 61 6d 65 73 20 73 74	-modules)))).....(sort!.names.st
ac40	72 69 6e 67 3c 3f 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	ring<?))).......................
ac60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ac80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
aca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
acc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ace0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ad00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ad20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ad40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ad60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ad80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ada0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
adc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ade0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ae00	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 65	geiser-guile-0.28.3/src/geiser/e
ae20	76 61 6c 75 61 74 69 6f 6e 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	valuation.scm...................
ae40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ae60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
ae80	30 30 31 33 36 36 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 35 36 30 00 20 30 00 00 00	0013666.00000000000.017560..0...
aea0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
aec0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
aee0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
af00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
af20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
af40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
af60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
af80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
afa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
afc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
afe0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
b000	3b 3b 3b 20 65 76 61 6c 75 61 74 69 6f 6e 2e 73 63 6d 20 2d 2d 20 65 76 61 6c 75 61 74 69 6f 6e	;;;.evaluation.scm.--.evaluation
b020	2c 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 61 6e 64 20 6d 61 63 72 6f 2d 65 78 70 61 6e 73 69 6f	,.compilation.and.macro-expansio
b040	6e 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c 20	n..;;.Copyright.(C).2009,.2010,.
b060	32 30 31 31 2c 20 32 30 31 33 2c 20 32 30 31 35 2c 20 32 30 32 32 20 4a 6f 73 65 20 41 6e 74 6f	2011,.2013,.2015,.2022.Jose.Anto
b080	6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d	nio.Ortega.Ruiz..;;.This.program
b0a0	20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73	.is.free.software;.you.can.redis
b0c0	74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75	tribute.it.and/or.;;.modify.it.u
b0e0	6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42	nder.the.terms.of.the.Modified.B
b100	53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72	SD.License..You.should.;;.have.r
b120	65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c	eceived.a.copy.of.the.license.al
b140	6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74	ong.with.this.program..If.;;.not
b160	2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e	,.see.<http://www.xfree86.org/3.
b180	33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72	3.6/COPYRIGHT2.html#5>...;;.Star
b1a0	74 20 64 61 74 65 3a 20 4d 6f 6e 20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 32 3a 34 36 0a 0a	t.date:.Mon.Mar.02,.2009.02:46..
b1c0	28 63 6f 6e 64 2d 65 78 70 61 6e 64 0a 20 20 28 67 75 69 6c 65 2d 32 2e 32 0a 20 20 20 28 64 65	(cond-expand...(guile-2.2....(de
b1e0	66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 0a	fine-module.(geiser.evaluation).
b200	20 20 20 20 20 23 3a 65 78 70 6f 72 74 20 28 67 65 3a 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20	.....#:export.(ge:compile.......
b220	20 20 20 20 20 20 20 20 20 67 65 3a 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.........ge:eval................
b240	67 65 3a 6d 61 63 72 6f 65 78 70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65	ge:macroexpand................ge
b260	3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a	:compile-file................ge:
b280	6c 6f 61 64 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 73 65 74 2d	load-file................ge:set-
b2a0	77 61 72 6e 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 61 64 64 2d 74	warnings................ge:add-t
b2c0	6f 2d 6c 6f 61 64 2d 70 61 74 68 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28	o-load-path)......#:use-module.(
b2e0	67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c	geiser.modules)......#:use-modul
b300	65 20 28 73 72 66 69 20 73 72 66 69 2d 31 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c	e.(srfi.srfi-1)......#:use-modul
b320	65 20 28 6c 61 6e 67 75 61 67 65 20 74 72 65 65 2d 69 6c 29 0a 20 20 20 20 20 23 3a 75 73 65 2d	e.(language.tree-il)......#:use-
b340	6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 63 6f 6d 70 69 6c 65 29 0a 20 20 20	module.(system.base.compile)....
b360	20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 6d 65 73 73	..#:use-module.(system.base.mess
b380	61 67 65 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62	age)......#:use-module.(system.b
b3a0	61 73 65 20 70 6d 61 74 63 68 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73	ase.pmatch)......#:use-module.(s
b3c0	79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64	ystem.vm.program)......#:use-mod
b3e0	75 6c 65 20 28 69 63 65 2d 39 20 70 72 65 74 74 79 2d 70 72 69 6e 74 29 0a 20 20 20 20 20 23 3a	ule.(ice-9.pretty-print)......#:
b400	75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 74 65 78 74 75 61 6c 2d 70 6f 72 74 73 29	use-module.(ice-9.textual-ports)
b420	0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 6c 6f	......#:use-module.(system.vm.lo
b440	61 64 65 72 29 29 29 0a 20 20 28 65 6c 73 65 0a 20 20 20 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c	ader)))...(else....(define-modul
b460	65 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 0a 20 20 20 20 20 23 3a 65 78 70	e.(geiser.evaluation)......#:exp
b480	6f 72 74 20 28 67 65 3a 63 6f 6d 70 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67	ort.(ge:compile................g
b4a0	65 3a 65 76 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 6d 61 63 72 6f 65 78	e:eval................ge:macroex
b4c0	70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 63 6f 6d 70 69 6c 65 2d 66	pand................ge:compile-f
b4e0	69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 6c 6f 61 64 2d 66 69 6c 65 0a	ile................ge:load-file.
b500	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 73 65 74 2d 77 61 72 6e 69 6e 67 73 0a 20	...............ge:set-warnings..
b520	20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 65 3a 61 64 64 2d 74 6f 2d 6c 6f 61 64 2d 70 61 74	..............ge:add-to-load-pat
b540	68 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64	h)......#:use-module.(geiser.mod
b560	75 6c 65 73 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 72 66 69 20 73 72	ules)......#:use-module.(srfi.sr
b580	66 69 2d 31 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 6c 61 6e 67 75 61 67	fi-1)......#:use-module.(languag
b5a0	65 20 74 72 65 65 2d 69 6c 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79	e.tree-il)......#:use-module.(sy
b5c0	73 74 65 6d 20 62 61 73 65 20 63 6f 6d 70 69 6c 65 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f	stem.base.compile)......#:use-mo
b5e0	64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 6d 65 73 73 61 67 65 29 0a 20 20 20 20 20	dule.(system.base.message)......
b600	23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 62 61 73 65 20 70 6d 61 74 63 68	#:use-module.(system.base.pmatch
b620	29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70	)......#:use-module.(system.vm.p
b640	72 6f 67 72 61 6d 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39	rogram)......#:use-module.(ice-9
b660	20 70 72 65 74 74 79 2d 70 72 69 6e 74 29 0a 20 20 20 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65	.pretty-print)......#:use-module
b680	20 28 69 63 65 2d 39 20 74 65 78 74 75 61 6c 2d 70 6f 72 74 73 29 29 29 29 0a 0a 0a 28 64 65 66	.(ice-9.textual-ports))))...(def
b6a0	69 6e 65 20 63 6f 6d 70 69 6c 65 2d 6f 70 74 73 20 27 28 29 29 0a 28 64 65 66 69 6e 65 20 63 6f	ine.compile-opts.'()).(define.co
b6c0	6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 73 20 27 28 29 29 0a 0a 28 64 65 66 69 6e 65 20 64 65	mpile-file-opts.'())..(define.de
b6e0	66 61 75 6c 74 2d 77 61 72 6e 69 6e 67 73 20 27 28 61 72 69 74 79 2d 6d 69 73 6d 61 74 63 68 20	fault-warnings.'(arity-mismatch.
b700	75 6e 62 6f 75 6e 64 2d 76 61 72 69 61 62 6c 65 20 66 6f 72 6d 61 74 29 29 0a 28 64 65 66 69 6e	unbound-variable.format)).(defin
b720	65 20 76 65 72 62 6f 73 65 2d 77 61 72 6e 69 6e 67 73 20 60 28 75 6e 75 73 65 64 2d 76 61 72 69	e.verbose-warnings.`(unused-vari
b740	61 62 6c 65 20 2c 40 64 65 66 61 75 6c 74 2d 77 61 72 6e 69 6e 67 73 29 29 0a 0a 28 64 65 66 69	able.,@default-warnings))..(defi
b760	6e 65 20 28 67 65 3a 73 65 74 2d 77 61 72 6e 69 6e 67 73 20 77 6c 29 0a 20 20 28 6c 65 74 2a 20	ne.(ge:set-warnings.wl)...(let*.
b780	28 28 77 61 72 6e 73 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 3f 20 77 6c 29 20 77 6c 29 0a 20 20	((warns.(cond.((list?.wl).wl)...
b7a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 77 6c	....................((symbol?.wl
b7c0	29 20 28 63 61 73 65 20 77 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	).(case.wl......................
b7e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 6e 65 20 6e 69 6c 20 6e 75 6c 6c	.................((none.nil.null
b800	29 20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	).'())..........................
b820	20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 64 69 75 6d 20 64 65 66 61 75 6c 74 29 20 64	.............((medium.default).d
b840	65 66 61 75 6c 74 2d 77 61 72 6e 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	efault-warnings)................
b860	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 68 69 67 68 20 76 65	.......................((high.ve
b880	72 62 6f 73 65 29 20 76 65 72 62 6f 73 65 2d 77 61 72 6e 69 6e 67 73 29 0a 20 20 20 20 20 20 20	rbose).verbose-warnings)........
b8a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	...............................(
b8c0	65 6c 73 65 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	else.'()))).....................
b8e0	20 20 28 65 6c 73 65 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 77 61 72 6e 73 20	..(else.'())))..........(fwarns.
b900	28 69 66 20 28 6d 65 6d 71 20 27 75 6e 75 73 65 64 2d 76 61 72 69 61 62 6c 65 20 77 61 72 6e 73	(if.(memq.'unused-variable.warns
b920	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 27 75 6e	)......................(cons.'un
b940	75 73 65 64 2d 74 6f 70 6c 65 76 65 6c 20 77 61 72 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20	used-toplevel.warns)............
b960	20 20 20 20 20 20 20 20 20 20 77 61 72 6e 73 29 29 29 0a 20 20 20 20 28 73 65 74 21 20 63 6f 6d	..........warns))).....(set!.com
b980	70 69 6c 65 2d 6f 70 74 73 20 28 6c 69 73 74 20 23 3a 77 61 72 6e 69 6e 67 73 20 77 61 72 6e 73	pile-opts.(list.#:warnings.warns
b9a0	29 29 0a 20 20 20 20 28 73 65 74 21 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 73 20 28	)).....(set!.compile-file-opts.(
b9c0	6c 69 73 74 20 23 3a 77 61 72 6e 69 6e 67 73 20 66 77 61 72 6e 73 29 29 29 29 0a 0a 28 67 65 3a	list.#:warnings.fwarns))))..(ge:
b9e0	73 65 74 2d 77 61 72 6e 69 6e 67 73 20 27 6e 6f 6e 65 29 0a 0a 28 64 65 66 69 6e 65 20 63 6f 6e	set-warnings.'none)..(define.con
ba00	74 65 78 74 2d 70 6f 72 74 20 23 66 29 0a 0a 28 64 65 66 69 6e 65 20 73 77 69 74 63 68 65 72 2d	text-port.#f)..(define.switcher-
ba20	70 6f 72 74 0a 20 20 28 6d 61 6b 65 2d 73 6f 66 74 2d 70 6f 72 74 20 28 76 65 63 74 6f 72 20 28	port...(make-soft-port.(vector.(
ba40	6c 61 6d 62 64 61 20 28 63 29 20 28 70 75 74 2d 63 68 61 72 20 63 20 63 6f 6e 74 65 78 74 2d 70	lambda.(c).(put-char.c.context-p
ba60	6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ort))...........................
ba80	28 6c 61 6d 62 64 61 20 28 73 29 20 28 64 69 73 70 6c 61 79 20 73 20 63 6f 6e 74 65 78 74 2d 70	(lambda.(s).(display.s.context-p
baa0	6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ort))...........................
bac0	28 6c 61 6d 62 64 61 20 28 29 20 28 66 6f 72 63 65 2d 6f 75 74 70 75 74 20 63 6f 6e 74 65 78 74	(lambda.().(force-output.context
bae0	2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-port)).........................
bb00	20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 6c 6f 73 65 2d 70 6f 72 74 20 63 6f 6e 74 65 78 74	..(lambda.().(close-port.context
bb20	2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-port)).........................
bb40	20 20 28 6c 61 6d 62 64 61 20 28 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	..(lambda.().0))................
bb60	20 20 20 22 77 22 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 61 6c 6c 2d 77 69 74 68 2d 73 77 69	..."w"))..(define.(call-with-swi
bb80	74 63 68 65 72 2d 6f 75 74 70 75 74 20 6c 6f 6e 67 2d 70 6f 72 74 20 74 68 75 6e 6b 29 0a 20 20	tcher-output.long-port.thunk)...
bba0	28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70	(let.((current.(current-output-p
bbc0	6f 72 74 29 29 29 0a 20 20 20 20 28 70 61 72 61 6d 65 74 65 72 69 7a 65 20 28 28 63 75 72 72 65	ort))).....(parameterize.((curre
bbe0	6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 20 73 77 69 74 63 68 65 72 2d 70 6f 72 74 29 29 0a 20	nt-output-port.switcher-port))..
bc00	20 20 20 20 20 28 64 79 6e 61 6d 69 63 2d 77 69 6e 64 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62	.....(dynamic-wind.........(lamb
bc20	64 61 20 28 29 20 28 73 65 74 21 20 63 6f 6e 74 65 78 74 2d 70 6f 72 74 20 63 75 72 72 65 6e 74	da.().(set!.context-port.current
bc40	29 29 0a 20 20 20 20 20 20 20 20 74 68 75 6e 6b 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61	)).........thunk.........(lambda
bc60	20 28 29 20 28 73 65 74 21 20 63 6f 6e 74 65 78 74 2d 70 6f 72 74 20 6c 6f 6e 67 2d 70 6f 72 74	.().(set!.context-port.long-port
bc80	29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 61 6c 6c 2d 77 69 74 68 2d 72 65 73 75 6c	))))))..(define.(call-with-resul
bca0	74 20 74 68 75 6e 6b 29 0a 20 20 28 6c 65 74 72 65 63 2a 20 28 28 72 65 73 75 6c 74 20 23 66 29	t.thunk)...(letrec*.((result.#f)
bcc0	0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6e 67 2d 70 6f 72 74 20 28 63 75 72 72 65 6e 74	.............(long-port.(current
bce0	2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d	-output-port)).............(run-
bd00	74 68 75 6e 6b 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 61 6c 6c 2d 77 69 74 68 2d 73 77 69 74	thunk.(lambda.().(call-with-swit
bd20	63 68 65 72 2d 6f 75 74 70 75 74 20 6c 6f 6e 67 2d 70 6f 72 74 20 74 68 75 6e 6b 29 29 29 0a 20	cher-output.long-port.thunk)))..
bd40	20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	...........(output..............
bd60	28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20	(with-output-to-string..........
bd80	20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	......(lambda.()................
bda0	20 20 28 77 69 74 68 2d 66 6c 75 69 64 73 20 28 28 2a 63 75 72 72 65 6e 74 2d 77 61 72 6e 69 6e	..(with-fluids.((*current-warnin
bdc0	67 2d 70 6f 72 74 2a 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 29 0a 20	g-port*.(current-output-port))..
bde0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2a	..............................(*
be00	63 75 72 72 65 6e 74 2d 77 61 72 6e 69 6e 67 2d 70 72 65 66 69 78 2a 20 22 22 29 29 0a 20 20 20	current-warning-prefix*.""))....
be20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 65 72 72 6f 72 2d 74 6f 2d 70	................(with-error-to-p
be40	6f 72 74 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 74 2d 70 6f 72 74 29 0a 20 20 20 20 20 20	ort.(current-output-port).......
be60	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20	...............(lambda.().......
be80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20 72 65 73 75 6c 74 20 28 6d	.................(set!.result.(m
bea0	61 70 20 6f 62 6a 65 63 74 2d 3e 73 74 72 69 6e 67 20 28 72 75 6e 2d 74 68 75 6e 6b 29 29 29 29	ap.object->string.(run-thunk))))
bec0	29 29 29 29 29 29 0a 20 20 20 20 28 77 72 69 74 65 20 60 28 28 72 65 73 75 6c 74 20 2c 40 72 65	)))))).....(write.`((result.,@re
bee0	73 75 6c 74 29 20 28 6f 75 74 70 75 74 20 2e 20 2c 6f 75 74 70 75 74 29 29 29 0a 20 20 20 20 28	sult).(output...,output))).....(
bf00	6e 65 77 6c 69 6e 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 3a 63 6f 6d 70 69 6c 65 20	newline)))..(define.(ge:compile.
bf20	66 6f 72 6d 20 6d 6f 64 75 6c 65 29 0a 20 20 28 63 6f 6d 70 69 6c 65 2a 20 66 6f 72 6d 20 6d 6f	form.module)...(compile*.form.mo
bf40	64 75 6c 65 20 63 6f 6d 70 69 6c 65 2d 6f 70 74 73 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 63 6f	dule.compile-opts))..(define.(co
bf60	6d 70 69 6c 65 2a 20 66 6f 72 6d 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6f 70 74 73 29 0a 20 20	mpile*.form.module-name.opts)...
bf80	28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 6f 72 20 28 66 69 6e 64 2d 6d 6f 64 75 6c 65 20	(let*.((module.(or.(find-module.
bfa0	6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 20 28 63 75 72 72 65 6e 74 2d 6d 6f 64 75 6c 65 29 29 29 0a	module-name).(current-module))).
bfc0	20 20 20 20 20 20 20 20 20 28 65 76 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20	.........(ev.(lambda.().........
bfe0	20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 76 61 6c 75 65 73 0a 20 20 20 20 20 20 20	.......(call-with-values........
c000	20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20	............(lambda.()..........
c020	20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 6f 20 28 63 6f 6e 64 2d 65 78 70	............(let*.((to.(cond-exp
c040	61 6e 64 20 28 67 75 69 6c 65 2d 32 2e 32 20 27 62 79 74 65 63 6f 64 65 29 0a 20 20 20 20 20 20	and.(guile-2.2.'bytecode).......
c060	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
c080	20 20 20 20 20 20 20 28 65 6c 73 65 20 27 6f 62 6a 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20	.......(else.'objcode)))........
c0a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 66 20 28 63 6f 6e 64 2d 65	.....................(cf.(cond-e
c0c0	78 70 61 6e 64 20 28 67 75 69 6c 65 2d 32 2e 32 20 6c 6f 61 64 2d 74 68 75 6e 6b 2d 66 72 6f 6d	xpand.(guile-2.2.load-thunk-from
c0e0	2d 6d 65 6d 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-memory)........................
c100	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 6d 61 6b 65	......................(else.make
c120	2d 70 72 6f 67 72 61 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	-program))).....................
c140	20 20 20 20 20 20 20 20 28 6f 20 28 63 6f 6d 70 69 6c 65 20 66 6f 72 6d 0a 20 20 20 20 20 20 20	........(o.(compile.form........
c160	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
c180	20 23 3a 74 6f 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.#:to.to........................
c1a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 65 6e 76 20 6d 6f 64 75 6c 65 0a 20 20	.................#:env.module...
c1c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
c1e0	20 20 20 20 20 20 23 3a 6f 70 74 73 20 6f 70 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	......#:opts.opts)).............
c200	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 75 6e 6b 20 28 63 66 20 6f 29 29 29 0a	................(thunk.(cf.o))).
c220	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 73 74	.......................(start-st
c240	61 63 6b 20 27 67 65 69 73 65 72 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 73 74 61 63 6b 0a 20 20 20	ack.'geiser-evaluation-stack....
c260	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
c280	20 28 65 76 61 6c 20 60 28 2c 74 68 75 6e 6b 29 20 6d 6f 64 75 6c 65 29 29 29 29 0a 20 20 20 20	.(eval.`(,thunk).module)))).....
c2a0	20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 76 73 20 76 73 29 29 29 29 29 0a	.............(lambda.vs.vs))))).
c2c0	20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 72 65 73 75 6c 74 20 65 76 29 29 29 0a 0a 28 64 65	....(call-with-result.ev)))..(de
c2e0	66 69 6e 65 20 28 67 65 3a 65 76 61 6c 20 66 6f 72 6d 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a	fine.(ge:eval.form.module-name).
c300	20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 75 6c 65 20 28 6f 72 20 28 66 69 6e 64 2d 6d 6f 64 75 6c	..(let*.((module.(or.(find-modul
c320	65 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 20 28 63 75 72 72 65 6e 74 2d 6d 6f 64 75 6c 65 29 29	e.module-name).(current-module))
c340	29 0a 20 20 20 20 20 20 20 20 20 28 65 76 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20	)..........(ev.(lambda.().......
c360	20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 76 61 6c 75 65 73 0a 20 20 20 20 20	.........(call-with-values......
c380	20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 65 76 61 6c 20 66	..............(lambda.().(eval.f
c3a0	6f 72 6d 20 6d 6f 64 75 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c	orm.module))..................(l
c3c0	61 6d 62 64 61 20 76 73 20 76 73 29 29 29 29 29 0a 20 20 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d	ambda.vs.vs))))).....(call-with-
c3e0	72 65 73 75 6c 74 20 65 76 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 3a 63 6f 6d 70 69 6c	result.ev)))..(define.(ge:compil
c400	65 2d 66 69 6c 65 20 70 61 74 68 29 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 72 65 73 75 6c 74	e-file.path)...(call-with-result
c420	0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 63 72 20 28 63	....(lambda.()......(let.((cr.(c
c440	6f 6d 70 69 6c 65 2d 66 69 6c 65 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ompile-file.path................
c460	20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 3a 63 61 6e 6f 6e 69 63 61 6c 69 7a 61 74 69 6f 6e	..............#:canonicalization
c480	20 27 61 62 73 6f 6c 75 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.'absolute......................
c4a0	20 20 20 20 20 20 20 20 23 3a 6f 70 74 73 20 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 2d 6f 70 74 73	........#:opts.compile-file-opts
c4c0	29 29 29 0a 20 20 20 20 20 20 20 28 61 6e 64 20 63 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28	)))........(and.cr.............(
c4e0	6c 69 73 74 20 28 6f 62 6a 65 63 74 2d 3e 73 74 72 69 6e 67 20 28 73 61 76 65 2d 6d 6f 64 75 6c	list.(object->string.(save-modul
c500	65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e-excursion.....................
c520	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 6c 6f 61 64 2d	...............(lambda.().(load-
c540	63 6f 6d 70 69 6c 65 64 20 63 72 29 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 67	compiled.cr))))))))))..(define.g
c560	65 3a 6c 6f 61 64 2d 66 69 6c 65 20 67 65 3a 63 6f 6d 70 69 6c 65 2d 66 69 6c 65 29 0a 0a 28 64	e:load-file.ge:compile-file)..(d
c580	65 66 69 6e 65 20 28 67 65 3a 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 20 2e 20 61 6c 6c	efine.(ge:macroexpand.form...all
c5a0	29 0a 20 20 28 6c 65 74 20 28 28 61 6c 6c 20 28 61 6e 64 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20	)...(let.((all.(and.(not.(null?.
c5c0	61 6c 6c 29 29 20 28 63 61 72 20 61 6c 6c 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 6f 75 74	all)).(car.all)))).....(with-out
c5e0	70 75 74 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20	put-to-string.......(lambda.()..
c600	20 20 20 20 20 20 20 28 70 72 65 74 74 79 2d 70 72 69 6e 74 20 28 74 72 65 65 2d 69 6c 2d 3e 73	.......(pretty-print.(tree-il->s
c620	63 68 65 6d 65 20 28 6d 61 63 72 6f 65 78 70 61 6e 64 20 66 6f 72 6d 29 29 29 29 29 29 29 0a 0a	cheme.(macroexpand.form)))))))..
c640	28 64 65 66 69 6e 65 20 28 67 65 3a 61 64 64 2d 74 6f 2d 6c 6f 61 64 2d 70 61 74 68 20 64 69 72	(define.(ge:add-to-load-path.dir
c660	29 0a 20 20 28 61 6e 64 20 28 66 69 6c 65 2d 69 73 2d 64 69 72 65 63 74 6f 72 79 3f 20 64 69 72	)...(and.(file-is-directory?.dir
c680	29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 2d 6c 70 20 28 6d 65 6d 62 65 72 20 64 69	)........(let.((in-lp.(member.di
c6a0	72 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 2d	r.%load-path))..............(in-
c6c0	63 6c 70 20 28 6d 65 6d 62 65 72 20 64 69 72 20 25 6c 6f 61 64 2d 63 6f 6d 70 69 6c 65 64 2d 70	clp.(member.dir.%load-compiled-p
c6e0	61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 69 6e 2d 6c 70	ath)))..........(when.(not.in-lp
c700	29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 21 20 25 6c 6f 61 64 2d 70 61 74 68 20 28 63	)............(set!.%load-path.(c
c720	6f 6e 73 20 64 69 72 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 28	ons.dir.%load-path)))..........(
c740	77 68 65 6e 20 28 6e 6f 74 20 69 6e 2d 63 6c 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65	when.(not.in-clp)............(se
c760	74 21 20 25 6c 6f 61 64 2d 63 6f 6d 70 69 6c 65 64 2d 70 61 74 68 20 28 63 6f 6e 73 20 64 69 72	t!.%load-compiled-path.(cons.dir
c780	20 25 6c 6f 61 64 2d 63 6f 6d 70 69 6c 65 64 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20	.%load-compiled-path))).........
c7a0	20 28 6f 72 20 69 6e 2d 6c 70 20 69 6e 2d 63 6c 70 29 29 29 29 0a 00 00 00 00 00 00 00 00 00 00	.(or.in-lp.in-clp))))...........
c7c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c7e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c800	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 64	geiser-guile-0.28.3/src/geiser/d
c820	6f 63 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	oc.scm..........................
c840	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c860	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
c880	30 30 32 33 37 31 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 34 37 00 20 30 00 00 00	0023712.00000000000.016147..0...
c8a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c8c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c8e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c900	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
c920	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
c940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c9a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c9c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
c9e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
ca00	3b 3b 3b 20 64 6f 63 2e 73 63 6d 20 2d 2d 20 70 72 6f 63 65 64 75 72 65 73 20 70 72 6f 76 69 64	;;;.doc.scm.--.procedures.provid
ca20	69 6e 67 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 6e 20 73 63 68 65 6d 65 20 6f 62 6a 65	ing.documentation.on.scheme.obje
ca40	63 74 73 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30	cts..;;.Copyright.(C).2009,.2010
ca60	2c 20 32 30 31 38 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a	,.2018.Jose.Antonio.Ortega.Ruiz.
ca80	0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72	.;;.This.program.is.free.softwar
caa0	65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f	e;.you.can.redistribute.it.and/o
cac0	72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f	r.;;.modify.it.under.the.terms.o
cae0	66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20	f.the.Modified.BSD.License..You.
cb00	73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f	should.;;.have.received.a.copy.o
cb20	66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72	f.the.license.along.with.this.pr
cb40	6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77	ogram..If.;;.not,.see.<http://ww
cb60	77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68	w.xfree86.org/3.3.6/COPYRIGHT2.h
cb80	74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 53 75 6e 20 46 65 62 20	tml#5>...;;.Start.date:.Sun.Feb.
cba0	30 38 2c 20 32 30 30 39 20 31 38 3a 34 34 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28	08,.2009.18:44..(define-module.(
cbc0	67 65 69 73 65 72 20 64 6f 63 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 28 61 75 74 6f 64 6f 63 0a	geiser.doc)...#:export.(autodoc.
cbe0	20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e	............symbol-documentation
cc00	0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 65 78 70 6f 72 74 73 0a 20 20 20 20	.............module-exports.....
cc20	20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 2d 73 69 67 6e 61 74 75 72 65 29 0a 20 20 23 3a 75 73	........object-signature)...#:us
cc40	65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 75 73 65 2d	e-module.(geiser.utils)...#:use-
cc60	6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 75 73 65 2d	module.(geiser.modules)...#:use-
cc80	6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 0a 20 20 23 3a 75	module.(system.vm.program)...#:u
cca0	73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 64 65 62 75 67 29 0a 20 20 23 3a	se-module.(system.vm.debug)...#:
ccc0	75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 73 65 73 73 69 6f 6e 29 0a 20 20 23 3a 75	use-module.(ice-9.session)...#:u
cce0	73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 0a	se-module.(ice-9.documentation).
cd00	20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78 29 0a 20 20 23	..#:use-module.(ice-9.regex)...#
cd20	3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 66 6f 72 6d 61 74 29 0a 20 20 23 3a 75	:use-module.(ice-9.format)...#:u
cd40	73 65 2d 6d 6f 64 75 6c 65 20 28 6f 6f 70 20 67 6f 6f 70 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f	se-module.(oop.goops)...#:use-mo
cd60	64 75 6c 65 20 28 73 72 66 69 20 73 72 66 69 2d 31 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c	dule.(srfi.srfi-1)...#:use-modul
cd80	65 20 28 74 65 78 69 6e 66 6f 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 74 65 78 69	e.(texinfo)...#:use-module.(texi
cda0	6e 66 6f 20 70 6c 61 69 6e 2d 74 65 78 74 29 29 0a 0a 3b 3b 3b 20 53 68 6f 75 6c 64 20 74 65 78	nfo.plain-text))..;;;.Should.tex
cdc0	69 6e 66 6f 20 69 6e 20 64 6f 63 73 74 72 69 6e 67 73 20 62 65 20 70 72 6f 63 65 73 73 65 64 3f	info.in.docstrings.be.processed?
cde0	0a 28 64 65 66 69 6e 65 20 25 70 72 6f 63 65 73 73 2d 74 65 78 69 6e 66 6f 3f 20 23 66 29 0a 0a	.(define.%process-texinfo?.#f)..
ce00	28 64 65 66 69 6e 65 20 28 61 75 74 6f 64 6f 63 20 69 64 73 29 0a 20 20 28 69 66 20 28 6e 6f 74	(define.(autodoc.ids)...(if.(not
ce20	20 28 6c 69 73 74 3f 20 69 64 73 29 29 0a 20 20 20 20 20 20 27 28 29 0a 20 20 20 20 20 20 28 6d	.(list?.ids)).......'().......(m
ce40	61 70 20 28 6c 61 6d 62 64 61 20 28 69 64 29 20 28 6f 72 20 28 61 75 74 6f 64 6f 63 2a 20 69 64	ap.(lambda.(id).(or.(autodoc*.id
ce60	29 20 28 6c 69 73 74 20 69 64 29 29 29 20 69 64 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 2a 20 28	).(list.id))).ids)))..(define*.(
ce80	61 75 74 6f 64 6f 63 2a 20 69 64 29 0a 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 6f 62 6a 2d	autodoc*.id)...(let.((args.(obj-
cea0	61 72 67 73 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 69 64 29 29 29 29 0a 20 20 20 20	args.(symbol->object.id)))).....
cec0	28 61 6e 64 20 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 60 28 2c 40 28 73 69 67 6e 61 74 75 72	(and.args..........`(,@(signatur
cee0	65 20 69 64 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 22 6d 6f 64 75 6c 65 22 20	e.id.args)............("module".
cf00	2e 20 2c 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 69 64 29 29 29 29 29 29 0a 0a 28 64 65 66	..,(symbol-module.id))))))..(def
cf20	69 6e 65 20 28 6f 62 6a 65 63 74 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 6f 62 6a 29 0a	ine.(object-signature.name.obj).
cf40	20 20 28 6c 65 74 20 28 28 61 72 67 73 20 28 6f 62 6a 2d 61 72 67 73 20 6f 62 6a 29 29 29 0a 20	..(let.((args.(obj-args.obj)))..
cf60	20 20 20 28 61 6e 64 20 61 72 67 73 20 28 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 61 72 67	...(and.args.(signature.name.arg
cf80	73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 76 61 6c 75 65 2d 73 74 72 20 6f 62 6a 29 0a 20	s))))..(define.(value-str.obj)..
cfa0	20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 3a 40 79 22 20 6f 62 6a 29 29 0a 0a 28 64 65 66 69 6e	.(format.#f."~:@y".obj))..(defin
cfc0	65 2a 20 28 73 69 67 6e 61 74 75 72 65 20 69 64 20 61 72 67 73 2d 6c 69 73 74 20 23 3a 6f 70 74	e*.(signature.id.args-list.#:opt
cfe0	69 6f 6e 61 6c 20 28 64 65 74 61 69 6c 20 23 74 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28 61 72	ional.(detail.#t))...(define.(ar
d000	67 6c 73 74 20 61 72 67 73 20 6b 69 6e 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 73 20	glst.args.kind).....(let.((args.
d020	28 61 73 73 71 2d 72 65 66 20 61 72 67 73 20 6b 69 6e 64 29 29 29 0a 20 20 20 20 20 20 28 63 6f	(assq-ref.args.kind))).......(co
d040	6e 64 20 28 28 6f 72 20 28 6e 6f 74 20 61 72 67 73 29 20 28 6e 75 6c 6c 3f 20 61 72 67 73 29 29	nd.((or.(not.args).(null?.args))
d060	20 27 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6c 69 73 74 3f 20 61 72 67 73 29 20	.'()).............((list?.args).
d080	61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 6c 69 73 74 20 61 72	args).............(else.(list.ar
d0a0	67 73 29 29 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28 6d 6b 61 72 67 73 20 61 73 29 0a 20 20	gs)))))...(define.(mkargs.as)...
d0c0	20 20 60 28 28 22 72 65 71 75 69 72 65 64 22 20 2c 40 28 61 72 67 6c 73 74 20 61 73 20 27 72 65	..`(("required".,@(arglst.as.'re
d0e0	71 75 69 72 65 64 29 29 0a 20 20 20 20 20 20 28 22 6f 70 74 69 6f 6e 61 6c 22 20 2c 40 28 61 72	quired)).......("optional".,@(ar
d100	67 6c 73 74 20 61 73 20 27 6f 70 74 69 6f 6e 61 6c 29 0a 20 20 20 20 20 20 20 2c 40 28 69 66 20	glst.as.'optional)........,@(if.
d120	28 61 73 73 71 2d 72 65 66 20 61 73 20 27 72 65 73 74 29 20 28 6c 69 73 74 20 22 2e 2e 2e 22 29	(assq-ref.as.'rest).(list."...")
d140	20 27 28 29 29 29 0a 20 20 20 20 20 20 28 22 6b 65 79 22 20 2c 40 28 61 72 67 6c 73 74 20 61 73	.'())).......("key".,@(arglst.as
d160	20 27 6b 65 79 77 6f 72 64 29 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 61 72 67 73 2d 6c 69 73	.'keyword))))...(let*.((args-lis
d180	74 20 28 6d 61 70 20 6d 6b 61 72 67 73 20 28 69 66 20 28 6c 69 73 74 3f 20 61 72 67 73 2d 6c 69	t.(map.mkargs.(if.(list?.args-li
d1a0	73 74 29 20 61 72 67 73 2d 6c 69 73 74 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 76	st).args-list.'())))..........(v
d1c0	61 6c 75 65 20 28 61 6e 64 20 28 61 6e 64 20 64 65 74 61 69 6c 20 28 6e 75 6c 6c 3f 20 61 72 67	alue.(and.(and.detail.(null?.arg
d1e0	73 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76	s-list))......................(v
d200	61 6c 75 65 2d 73 74 72 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 69 64 29 29 29 29 29	alue-str.(symbol->object.id)))))
d220	0a 20 20 20 20 60 28 2c 69 64 20 28 22 61 72 67 73 22 20 2c 40 61 72 67 73 2d 6c 69 73 74 29 20	.....`(,id.("args".,@args-list).
d240	2c 40 28 69 66 20 76 61 6c 75 65 20 60 28 28 22 76 61 6c 75 65 22 20 2e 20 2c 76 61 6c 75 65 29	,@(if.value.`(("value"...,value)
d260	29 20 27 28 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 64 65 66 61 75 6c 74 2d 6d 61 63 72 6f	).'()))))..(define.default-macro
d280	2d 61 72 67 73 20 27 28 28 28 72 65 71 75 69 72 65 64 20 2e 2e 2e 29 29 29 29 0a 0a 28 64 65 66	-args.'(((required....))))..(def
d2a0	69 6e 65 20 67 65 69 73 65 72 2d 61 72 67 73 2d 6b 65 79 20 28 67 65 6e 73 79 6d 20 22 67 65 69	ine.geiser-args-key.(gensym."gei
d2c0	73 65 72 2d 61 72 67 73 2d 6b 65 79 2d 22 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6f 62 6a 2d 61	ser-args-key-"))..(define.(obj-a
d2e0	72 67 73 20 6f 62 6a 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 6f 62 6a 29 20 23 66 29 0a	rgs.obj)...(cond.((not.obj).#f).
d300	20 20 20 20 20 20 20 20 28 28 6f 72 20 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 6a 29 20 28 70	........((or.(procedure?.obj).(p
d320	72 6f 67 72 61 6d 3f 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 70	rogram?.obj))..........(cond.((p
d340	72 6f 63 65 64 75 72 65 2d 70 72 6f 70 65 72 74 79 20 6f 62 6a 20 67 65 69 73 65 72 2d 61 72 67	rocedure-property.obj.geiser-arg
d360	73 2d 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 72 67 75 6d 65 6e	s-key))................((argumen
d380	74 73 20 6f 62 6a 29 20 3d 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62	ts.obj).=>.................(lamb
d3a0	64 61 20 28 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74	da.(args)...................(set
d3c0	2d 70 72 6f 63 65 64 75 72 65 2d 70 72 6f 70 65 72 74 79 21 20 6f 62 6a 20 67 65 69 73 65 72 2d	-procedure-property!.obj.geiser-
d3e0	61 72 67 73 2d 6b 65 79 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	args-key.args)..................
d400	20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 23 66 29	.args))................(else.#f)
d420	29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 28 6d	)).........((and.(macro?.obj).(m
d440	61 63 72 6f 2d 74 72 61 6e 73 66 6f 72 6d 65 72 20 6f 62 6a 29 29 20 3d 3e 20 6d 61 63 72 6f 2d	acro-transformer.obj)).=>.macro-
d460	61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 64 65 66 61	args).........((macro?.obj).defa
d480	75 6c 74 2d 6d 61 63 72 6f 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 76	ult-macro-args).........(else.'v
d4a0	61 72 69 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d 61 72 69	ariable)))..(define.(program-ari
d4c0	74 69 65 73 20 70 72 6f 67 29 0a 20 20 28 6c 65 74 20 28 28 61 64 64 72 73 20 28 70 72 6f 67 72	ties.prog)...(let.((addrs.(progr
d4e0	61 6d 2d 61 64 64 72 65 73 73 2d 72 61 6e 67 65 20 70 72 6f 67 29 29 29 0a 20 20 20 20 28 61 6e	am-address-range.prog))).....(an
d500	64 20 28 70 61 69 72 3f 20 61 64 64 72 73 29 20 28 66 69 6e 64 2d 70 72 6f 67 72 61 6d 2d 61 72	d.(pair?.addrs).(find-program-ar
d520	69 74 69 65 73 20 28 63 61 72 20 61 64 64 72 73 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28	ities.(car.addrs)))))..(define.(
d540	61 72 67 75 6d 65 6e 74 73 20 70 72 6f 63 29 0a 20 20 28 64 65 66 69 6e 65 20 28 70 2d 61 72 67	arguments.proc)...(define.(p-arg
d560	73 20 70 72 6f 67 29 0a 20 20 20 20 28 6c 65 74 20 28 28 61 73 20 28 6d 61 70 20 61 72 69 74 79	s.prog).....(let.((as.(map.arity
d580	2d 61 72 67 75 6d 65 6e 74 73 2d 61 6c 69 73 74 20 28 6f 72 20 28 70 72 6f 67 72 61 6d 2d 61 72	-arguments-alist.(or.(program-ar
d5a0	69 74 69 65 73 20 70 72 6f 67 29 20 27 28 29 29 29 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 28	ities.prog).'())))).......(and.(
d5c0	6e 6f 74 20 28 6e 75 6c 6c 3f 20 61 73 29 29 20 61 73 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20	not.(null?.as)).as)))...(define.
d5e0	28 63 6c 69 73 74 20 66 29 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6c 65 74 20 28 28 79 20 28	(clist.f).(lambda.(x).(let.((y.(
d600	66 20 78 29 29 29 20 28 61 6e 64 20 79 20 28 6c 69 73 74 20 79 29 29 29 29 29 0a 20 20 28 63 6f	f.x))).(and.y.(list.y)))))...(co
d620	6e 64 20 28 28 69 73 2d 61 3f 20 70 72 6f 63 20 3c 67 65 6e 65 72 69 63 3e 29 20 28 67 65 6e 65	nd.((is-a?.proc.<generic>).(gene
d640	72 69 63 2d 61 72 67 73 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 28 28 64 6f 63 2d 3e 61	ric-args.proc)).........((doc->a
d660	72 67 73 20 70 72 6f 63 29 20 3d 3e 20 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 28 28 70 72 6f	rgs.proc).=>.list).........((pro
d680	63 65 64 75 72 65 2d 70 72 6f 70 65 72 74 79 20 70 72 6f 63 20 27 61 72 67 6c 69 73 74 29 20 3d	cedure-property.proc.'arglist).=
d6a0	3e 20 28 63 6c 69 73 74 20 61 72 67 6c 69 73 74 2d 3e 61 72 67 73 29 29 0a 20 20 20 20 20 20 20	>.(clist.arglist->args))........
d6c0	20 28 28 70 72 6f 63 65 64 75 72 65 2d 73 6f 75 72 63 65 20 70 72 6f 63 29 20 3d 3e 20 28 63 6c	.((procedure-source.proc).=>.(cl
d6e0	69 73 74 20 73 6f 75 72 63 65 2d 3e 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 28 28 61 6e 64	ist.source->args)).........((and
d700	20 28 70 72 6f 67 72 61 6d 3f 20 70 72 6f 63 29 20 28 70 2d 61 72 67 73 20 70 72 6f 63 29 29 29	.(program?.proc).(p-args.proc)))
d720	0a 20 20 20 20 20 20 20 20 28 28 70 72 6f 63 65 64 75 72 65 2d 70 72 6f 70 65 72 74 79 20 70 72	.........((procedure-property.pr
d740	6f 63 20 27 61 72 69 74 79 29 20 3d 3e 20 28 63 6c 69 73 74 20 61 72 69 74 79 2d 3e 61 72 67 73	oc.'arity).=>.(clist.arity->args
d760	29 29 0a 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 0a 0a 28 64 65 66 69 6e 65 20	)).........(else.#f)))..(define.
d780	28 73 6f 75 72 63 65 2d 3e 61 72 67 73 20 73 72 63 29 0a 20 20 28 6c 65 74 20 28 28 66 6f 72 6d	(source->args.src)...(let.((form
d7a0	61 6c 73 20 28 63 61 64 72 20 73 72 63 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6c 69 73	als.(cadr.src))).....(cond.((lis
d7c0	74 3f 20 66 6f 72 6d 61 6c 73 29 20 60 28 28 72 65 71 75 69 72 65 64 20 2e 20 2c 66 6f 72 6d 61	t?.formals).`((required...,forma
d7e0	6c 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 70 61 69 72 3f 20 66 6f 72 6d 61 6c 73 29	ls)))...........((pair?.formals)
d800	0a 20 20 20 20 20 20 20 20 20 20 20 60 28 28 72 65 71 75 69 72 65 64 20 2e 20 2c 28 63 61 72 20	............`((required...,(car.
d820	66 6f 72 6d 61 6c 73 29 29 20 28 72 65 73 74 20 2e 20 2c 28 63 64 72 20 66 6f 72 6d 61 6c 73 29	formals)).(rest...,(cdr.formals)
d840	29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 29 0a 0a 28 64 65 66	)))...........(else.#f))))..(def
d860	69 6e 65 20 28 6d 61 63 72 6f 2d 61 72 67 73 20 74 66 29 0a 20 20 28 64 65 66 69 6e 65 2a 20 28	ine.(macro-args.tf)...(define*.(
d880	63 6f 6c 6c 65 63 74 20 61 72 67 73 20 23 3a 6f 70 74 69 6f 6e 61 6c 20 28 72 65 71 20 27 28 29	collect.args.#:optional.(req.'()
d8a0	29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 61 72 67 73 29 20 28 61 72 67 6c	)).....(cond.((null?.args).(argl
d8c0	69 73 74 2d 3e 61 72 67 73 20 60 28 2c 28 72 65 76 65 72 73 65 20 72 65 71 29 20 23 66 20 23 66	ist->args.`(,(reverse.req).#f.#f
d8e0	20 72 20 23 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20 61 72 67	.r.#f)))...........((symbol?.arg
d900	73 29 20 28 61 72 67 6c 69 73 74 2d 3e 61 72 67 73 20 60 28 2c 28 72 65 76 65 72 73 65 20 72 65	s).(arglist->args.`(,(reverse.re
d920	71 29 20 23 66 20 23 66 20 72 20 2c 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28	q).#f.#f.r.,args)))...........((
d940	61 6e 64 20 28 70 61 69 72 3f 20 61 72 67 73 29 20 28 73 79 6d 62 6f 6c 3f 20 28 63 61 72 20 61	and.(pair?.args).(symbol?.(car.a
d960	72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 65 63 74 20 28 63 64 72 20	rgs)))............(collect.(cdr.
d980	61 72 67 73 29 20 28 63 6f 6e 73 20 28 63 61 72 20 61 72 67 73 29 20 72 65 71 29 29 29 0a 20 20	args).(cons.(car.args).req)))...
d9a0	20 20 20 20 20 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 61	........(else.#f)))...(let*.((pa
d9c0	74 73 20 28 70 72 6f 63 65 64 75 72 65 2d 70 72 6f 70 65 72 74 79 20 74 66 20 27 70 61 74 74 65	ts.(procedure-property.tf.'patte
d9e0	72 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 72 67 73 20 28 61 6e 64 20 70 61 74 73 20 28	rns))..........(args.(and.pats.(
da00	66 69 6c 74 65 72 2d 6d 61 70 20 63 6f 6c 6c 65 63 74 20 70 61 74 73 29 29 29 29 0a 20 20 20 20	filter-map.collect.pats)))).....
da20	28 6f 72 20 28 61 6e 64 20 61 72 67 73 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 61 72 67 73 29 29	(or.(and.args.(not.(null?.args))
da40	20 61 72 67 73 29 20 64 65 66 61 75 6c 74 2d 6d 61 63 72 6f 2d 61 72 67 73 29 29 29 0a 0a 28 64	.args).default-macro-args)))..(d
da60	65 66 69 6e 65 20 28 61 72 69 74 79 2d 3e 61 72 67 73 20 61 72 74 29 0a 20 20 28 64 65 66 69 6e	efine.(arity->args.art)...(defin
da80	65 20 28 67 65 6e 2d 61 72 67 2d 6e 61 6d 65 73 20 63 6f 75 6e 74 29 0a 20 20 20 20 28 6d 61 70	e.(gen-arg-names.count).....(map
daa0	20 28 6c 61 6d 62 64 61 20 28 78 29 20 27 5f 29 20 28 69 6f 74 61 20 28 6d 61 78 20 63 6f 75 6e	.(lambda.(x).'_).(iota.(max.coun
dac0	74 20 30 29 29 29 29 0a 20 20 28 6c 65 74 20 28 28 72 65 71 20 28 63 61 72 20 61 72 74 29 29 0a	t.0))))...(let.((req.(car.art)).
dae0	20 20 20 20 20 20 20 20 28 6f 70 74 20 28 63 61 64 72 20 61 72 74 29 29 0a 20 20 20 20 20 20 20	........(opt.(cadr.art))........
db00	20 28 72 65 73 74 20 28 63 61 64 64 72 20 61 72 74 29 29 29 0a 20 20 20 20 60 28 2c 40 28 69 66	.(rest.(caddr.art))).....`(,@(if
db20	20 28 3e 20 72 65 71 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f	.(>.req.0).............(list.(co
db40	6e 73 20 27 72 65 71 75 69 72 65 64 20 28 67 65 6e 2d 61 72 67 2d 6e 61 6d 65 73 20 72 65 71 29	ns.'required.(gen-arg-names.req)
db60	29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20	)).............'()).......,@(if.
db80	28 3e 20 6f 70 74 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e	(>.opt.0).............(list.(con
dba0	73 20 27 6f 70 74 69 6f 6e 61 6c 20 28 67 65 6e 2d 61 72 67 2d 6e 61 6d 65 73 20 6f 70 74 29 29	s.'optional.(gen-arg-names.opt))
dbc0	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 0a 20 20 20 20 20 20 2c 40 28 69 66 20 72	).............'()).......,@(if.r
dbe0	65 73 74 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 72 65 73 74 20 27 72 65 73 74 29 29 20 27 28	est.(list.(cons.'rest.'rest)).'(
dc00	29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 61 72 67 6c 69 73 74 2d 3e 61 72 67 73 20 61 72	)))))..(define.(arglist->args.ar
dc20	67 6c 69 73 74 29 0a 20 20 60 28 28 72 65 71 75 69 72 65 64 20 2e 20 2c 28 63 61 72 20 61 72 67	glist)...`((required...,(car.arg
dc40	6c 69 73 74 29 29 0a 20 20 20 20 28 6f 70 74 69 6f 6e 61 6c 20 2e 20 2c 28 63 61 64 72 20 61 72	list)).....(optional...,(cadr.ar
dc60	67 6c 69 73 74 29 29 0a 20 20 20 20 28 6b 65 79 77 6f 72 64 20 2e 20 2c 28 63 61 64 64 72 20 61	glist)).....(keyword...,(caddr.a
dc80	72 67 6c 69 73 74 29 29 0a 20 20 20 20 28 72 65 73 74 20 2e 20 2c 28 63 61 72 20 28 63 64 64 64	rglist)).....(rest...,(car.(cddd
dca0	64 72 20 61 72 67 6c 69 73 74 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 6f 63 2d 3e 61	dr.arglist)))))..(define.(doc->a
dcc0	72 67 73 20 70 72 6f 63 29 0a 20 20 3b 3b 20 47 75 69 6c 65 20 32 2e 30 2e 39 2b 20 75 73 65 73	rgs.proc)...;;.Guile.2.0.9+.uses
dce0	20 74 68 65 20 28 74 65 78 69 6e 66 6f 20 2e 2e 2e 29 20 6d 6f 64 75 6c 65 73 20 74 6f 20 70 72	.the.(texinfo....).modules.to.pr
dd00	6f 64 75 63 65 0a 20 20 3b 3b 20 60 67 75 69 6c 65 2d 70 72 6f 63 65 64 75 72 65 73 2e 74 78 74	oduce...;;.`guile-procedures.txt
dd20	27 2c 20 61 6e 64 20 74 68 65 20 6f 75 74 70 75 74 20 68 61 73 20 61 20 73 69 6e 67 6c 65 20 68	',.and.the.output.has.a.single.h
dd40	79 70 68 65 6e 2c 20 77 68 65 72 65 61 73 0a 20 20 3b 3b 20 60 6d 61 6b 65 69 6e 66 6f 27 20 70	yphen,.whereas...;;.`makeinfo'.p
dd60	72 6f 64 75 63 65 73 20 74 77 6f 20 68 79 70 68 65 6e 73 2e 0a 20 20 28 64 65 66 69 6e 65 20 70	roduces.two.hyphens....(define.p
dd80	72 6f 63 2d 72 78 20 22 2d 2d 3f 20 53 63 68 65 6d 65 20 50 72 6f 63 65 64 75 72 65 3a 20 28 5b	roc-rx."--?.Scheme.Procedure:.([
dda0	5e 5b 5c 6e 5d 2b 29 5c 6e 22 29 0a 20 20 28 64 65 66 69 6e 65 20 70 72 6f 63 2d 72 78 32 20 22	^[\n]+)\n")...(define.proc-rx2."
ddc0	2d 2d 3f 20 53 63 68 65 6d 65 20 50 72 6f 63 65 64 75 72 65 3a 20 28 5b 5e 5b 5c 6e 5d 2b 5c 5c	--?.Scheme.Procedure:.([^[\n]+\\
dde0	5b 5b 5e 5c 6e 5d 2a 28 5c 6e 5b 5e 5c 6e 5d 2b 5c 5c 5d 2b 29 3f 29 22 29 0a 20 20 28 6c 65 74	[[^\n]*(\n[^\n]+\\]+)?)")...(let
de00	20 28 28 64 6f 63 20 28 6f 62 6a 65 63 74 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 70 72 6f	.((doc.(object-documentation.pro
de20	63 29 29 29 0a 20 20 20 20 28 61 6e 64 20 64 6f 63 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20	c))).....(and.doc..........(let.
de40	28 28 6d 61 74 63 68 20 28 6f 72 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 70 72 6f 63 2d 72	((match.(or.(string-match.proc-r
de60	78 20 64 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	x.doc)..........................
de80	20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 70 72 6f 63 2d 72 78 32 20 64 6f 63 29 29 29 29 0a	.(string-match.proc-rx2.doc)))).
dea0	20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20	...........(and.match...........
dec0	20 20 20 20 20 20 28 70 61 72 73 65 2d 73 69 67 6e 61 74 75 72 65 2d 73 74 72 69 6e 67 20 28 6d	......(parse-signature-string.(m
dee0	61 74 63 68 3a 73 75 62 73 74 72 69 6e 67 20 6d 61 74 63 68 20 31 29 29 29 29 29 29 29 0a 0a 28	atch:substring.match.1)))))))..(
df00	64 65 66 69 6e 65 20 28 70 61 72 73 65 2d 73 69 67 6e 61 74 75 72 65 2d 73 74 72 69 6e 67 20 73	define.(parse-signature-string.s
df20	74 72 29 0a 20 20 28 64 65 66 69 6e 65 20 6f 70 74 2d 61 72 67 2d 72 78 20 22 5c 5c 5b 28 5b 5e	tr)...(define.opt-arg-rx."\\[([^
df40	5d 20 5d 2b 29 5c 5c 5d 3f 22 29 0a 20 20 28 64 65 66 69 6e 65 20 6f 70 74 2d 61 72 67 2d 72 78	].]+)\\]?")...(define.opt-arg-rx
df60	32 20 22 28 5b 5e 20 5d 29 2b 5c 5c 5d 2b 22 29 0a 20 20 28 6c 65 74 20 28 28 74 6f 6b 65 6e 73	2."([^.])+\\]+")...(let.((tokens
df80	20 28 73 74 72 69 6e 67 2d 74 6f 6b 65 6e 69 7a 65 20 73 74 72 29 29 29 0a 20 20 20 20 28 69 66	.(string-tokenize.str))).....(if
dfa0	20 28 3c 20 28 6c 65 6e 67 74 68 20 74 6f 6b 65 6e 73 29 20 32 29 0a 20 20 20 20 20 20 20 20 27	.(<.(length.tokens).2).........'
dfc0	28 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 74 6f 6b 65 6e 73 20 28 63	().........(let.loop.((tokens.(c
dfe0	64 72 20 74 6f 6b 65 6e 73 29 29 20 28 72 65 71 20 27 28 29 29 20 28 6f 70 74 20 27 28 29 29 20	dr.tokens)).(req.'()).(opt.'()).
e000	28 72 65 73 74 20 23 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c	(rest.#f))...........(cond.((nul
e020	6c 3f 20 74 6f 6b 65 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 72	l?.tokens)..................`((r
e040	65 71 75 69 72 65 64 20 2c 40 28 6d 61 70 20 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 28 72	equired.,@(map.string->symbol.(r
e060	65 76 65 72 73 65 21 20 72 65 71 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	everse!.req)))..................
e080	20 20 28 6f 70 74 69 6f 6e 61 6c 20 2c 40 28 6d 61 70 20 73 74 72 69 6e 67 2d 3e 73 79 6d 62 6f	..(optional.,@(map.string->symbo
e0a0	6c 20 28 72 65 76 65 72 73 65 21 20 6f 70 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	l.(reverse!.opt)))..............
e0c0	20 20 20 20 20 20 2c 40 28 69 66 20 72 65 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	......,@(if.rest................
e0e0	20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 27 72 65 73 74 20 28 73 74 72	..........(list.(cons.'rest.(str
e100	69 6e 67 2d 3e 73 79 6d 62 6f 6c 20 72 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	ing->symbol.rest))).............
e120	20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	.............'()))).............
e140	20 20 20 20 28 28 73 74 72 69 6e 67 3d 3f 20 22 2e 22 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 29	....((string=?.".".(car.tokens))
e160	0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 6e 75 6c 6c	..................(if.(not.(null
e180	3f 20 28 63 64 72 20 74 6f 6b 65 6e 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	?.(cdr.tokens)))................
e1a0	20 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 64 72 20 74 6f 6b 65 6e 73 29 20 72 65 71 20 6f 70	......(loop.(cddr.tokens).req.op
e1c0	74 20 28 63 61 64 72 20 74 6f 6b 65 6e 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	t.(cadr.tokens))................
e1e0	20 20 20 20 20 20 28 6c 6f 6f 70 20 27 28 29 20 72 65 71 20 6f 70 74 20 22 72 65 73 74 22 29 29	......(loop.'().req.opt."rest"))
e200	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 73 74 72 69 6e 67 2d 6d	).................((or.(string-m
e220	61 74 63 68 20 6f 70 74 2d 61 72 67 2d 72 78 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 29 0a 20 20	atch.opt-arg-rx.(car.tokens))...
e240	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68	...................(string-match
e260	20 6f 70 74 2d 61 72 67 2d 72 78 32 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 29 29 0a 20 20 20 20	.opt-arg-rx2.(car.tokens))).....
e280	20 20 20 20 20 20 20 20 20 20 20 20 20 3d 3e 20 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20	.............=>.(lambda.(m).....
e2a0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 6f 70 20 28 63 64 72 20 74 6f 6b	..................(loop.(cdr.tok
e2c0	65 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ens)............................
e2e0	20 72 65 71 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	.req............................
e300	20 28 63 6f 6e 73 20 28 6d 61 74 63 68 3a 73 75 62 73 74 72 69 6e 67 20 6d 20 31 29 20 6f 70 74	.(cons.(match:substring.m.1).opt
e320	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65	).............................re
e340	73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 6c 6f 6f	st))).................(else.(loo
e360	70 20 28 63 64 72 20 74 6f 6b 65 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	p.(cdr.tokens)..................
e380	20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 74 6f 6b 65 6e 73 29 20 72 65	...........(cons.(car.tokens).re
e3a0	71 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f	q).............................o
e3c0	70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72	pt.............................r
e3e0	65 73 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 6e 65 72 69 63 2d 61 72 67	est)))))))..(define.(generic-arg
e400	73 20 67 65 6e 29 0a 20 20 28 64 65 66 69 6e 65 20 28 73 72 63 3e 20 73 72 63 31 20 73 72 63 32	s.gen)...(define.(src>.src1.src2
e420	29 0a 20 20 20 20 28 3e 20 28 6c 65 6e 67 74 68 20 28 63 61 64 72 20 73 72 63 31 29 29 20 28 6c	).....(>.(length.(cadr.src1)).(l
e440	65 6e 67 74 68 20 28 63 61 64 72 20 73 72 63 32 29 29 29 29 0a 20 20 28 64 65 66 69 6e 65 20 28	ength.(cadr.src2))))...(define.(
e460	73 72 63 20 6d 29 0a 20 20 20 20 28 63 61 74 63 68 20 23 74 0a 20 20 20 20 20 20 28 6c 61 6d 62	src.m).....(catch.#t.......(lamb
e480	64 61 20 28 29 20 28 6d 65 74 68 6f 64 2d 73 6f 75 72 63 65 20 6d 29 29 0a 20 20 20 20 20 20 28	da.().(method-source.m)).......(
e4a0	6c 61 6d 62 64 61 20 28 6b 20 2e 20 61 29 20 23 66 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d	lambda.(k...a).#f)))...(let*.((m
e4c0	65 74 68 6f 64 73 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73	ethods.(generic-function-methods
e4e0	20 67 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 72 63 73 20 28 66 69 6c 74 65 72 20 69 64	.gen))..........(srcs.(filter.id
e500	65 6e 74 69 74 79 20 28 6d 61 70 20 73 72 63 20 6d 65 74 68 6f 64 73 29 29 29 29 0a 20 20 20 20	entity.(map.src.methods)))).....
e520	28 63 6f 6e 64 20 28 28 61 6e 64 20 28 6e 75 6c 6c 3f 20 73 72 63 73 29 0a 20 20 20 20 20 20 20	(cond.((and.(null?.srcs)........
e540	20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 6d 65 74 68 6f 64 73 29 29 0a 20	.........(not.(null?.methods))..
e560	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 2d 70 72 6f 63 65 64 75 72 65	...............(method-procedure
e580	20 28 63 61 72 20 6d 65 74 68 6f 64 73 29 29 29 20 3d 3e 20 61 72 67 75 6d 65 6e 74 73 29 0a 20	.(car.methods))).=>.arguments)..
e5a0	20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 73 72 63 73 29 29 20 28 6c 69	.........((not.(null?.srcs)).(li
e5c0	73 74 20 28 73 6f 75 72 63 65 2d 3e 61 72 67 73 20 28 63 61 72 20 28 73 6f 72 74 21 20 73 72 63	st.(source->args.(car.(sort!.src
e5e0	73 20 73 72 63 3e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 28 28 28	s.src>)))))...........(else.'(((
e600	72 65 73 74 20 2e 20 72 65 73 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 79 6d	rest...rest)))))))..(define.(sym
e620	62 6f 6c 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 29 0a 20 20 28 6c 65 74 20 28 28	bol-documentation.sym)...(let.((
e640	6f 62 6a 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79 6d 29 29 29 0a 20 20 20 20 28	obj.(symbol->object.sym))).....(
e660	69 66 20 6f 62 6a 0a 20 20 20 20 20 20 20 20 60 28 28 22 73 69 67 6e 61 74 75 72 65 22 20 2e 20	if.obj.........`(("signature"...
e680	2c 28 6f 72 20 28 6f 62 6a 2d 73 69 67 6e 61 74 75 72 65 20 73 79 6d 20 6f 62 6a 20 23 66 29 20	,(or.(obj-signature.sym.obj.#f).
e6a0	73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 22 64 6f 63 73 74 72 69 6e 67 22 20 2e 20 2c	sym))...........("docstring"...,
e6c0	28 64 6f 63 73 74 72 69 6e 67 20 73 79 6d 20 6f 62 6a 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e	(docstring.sym.obj))))))..(defin
e6e0	65 20 28 74 72 79 2d 74 65 78 69 6e 66 6f 2d 3e 70 6c 61 69 6e 2d 74 65 78 74 20 73 74 72 29 0a	e.(try-texinfo->plain-text.str).
e700	20 20 22 43 6f 6e 76 65 72 74 20 53 54 52 20 66 72 6f 6d 20 74 65 78 69 6e 66 6f 20 69 6e 74 6f	.."Convert.STR.from.texinfo.into
e720	20 61 20 70 6c 61 69 6e 20 74 65 78 74 2c 20 61 73 73 75 6d 69 6e 67 20 69 74 20 69 73 20 61 20	.a.plain.text,.assuming.it.is.a.
e740	76 61 6c 69 64 20 74 65 78 69 6e 66 6f 0a 61 6e 64 20 25 70 72 6f 63 65 73 73 2d 74 65 78 69 6e	valid.texinfo.and.%process-texin
e760	66 6f 3f 20 69 73 20 23 74 2e 0a 0a 52 65 74 75 72 6e 20 65 69 74 68 65 72 20 74 68 65 20 72 65	fo?.is.#t...Return.either.the.re
e780	73 75 6c 74 69 6e 67 20 70 6c 61 69 6e 20 74 65 78 74 20 6f 72 20 74 68 65 20 6f 72 69 67 69 6e	sulting.plain.text.or.the.origin
e7a0	61 6c 20 53 54 52 2e 22 0a 20 20 28 6f 72 20 28 61 6e 64 20 25 70 72 6f 63 65 73 73 2d 74 65 78	al.STR."...(or.(and.%process-tex
e7c0	69 6e 66 6f 3f 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 61 6c 73 65 2d 69 66 2d 65 78 63 65 70	info?............(false-if-excep
e7e0	74 69 6f 6e 20 28 73 74 65 78 69 2d 3e 70 6c 61 69 6e 2d 74 65 78 74 20 28 74 65 78 69 2d 66 72	tion.(stexi->plain-text.(texi-fr
e800	61 67 6d 65 6e 74 2d 3e 73 74 65 78 69 20 73 74 72 29 29 29 29 0a 20 20 20 20 20 20 73 74 72 29	agment->stexi.str)))).......str)
e820	29 0a 0a 28 64 65 66 69 6e 65 20 28 64 6f 63 73 74 72 69 6e 67 20 73 79 6d 20 6f 62 6a 29 0a 20	)..(define.(docstring.sym.obj)..
e840	20 28 64 65 66 69 6e 65 20 28 76 61 6c 75 61 62 6c 65 3f 29 0a 20 20 20 20 28 6e 6f 74 20 28 6f	.(define.(valuable?).....(not.(o
e860	72 20 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 20 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 6a 29 20	r.(macro?.obj).(procedure?.obj).
e880	28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 29 29 29 0a 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74	(program?.obj))))...(with-output
e8a0	2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20	-to-string.....(lambda.().......
e8c0	28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 63 6f 6e 64 20 28 28 6d 61 63 72 6f 3f 20 6f 62 6a 29	(let*.((type.(cond.((macro?.obj)
e8e0	20 22 41 20 6d 61 63 72 6f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	."A.macro").....................
e900	20 20 20 20 20 28 28 70 72 6f 63 65 64 75 72 65 3f 20 6f 62 6a 29 20 22 41 20 70 72 6f 63 65 64	.....((procedure?.obj)."A.proced
e920	75 72 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	ure")..........................(
e940	28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 20 22 41 20 63 6f 6d 70 69 6c 65 64 20 70 72 6f 67 72	(program?.obj)."A.compiled.progr
e960	61 6d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65	am")..........................(e
e980	6c 73 65 20 22 41 6e 20 6f 62 6a 65 63 74 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20	lse."An.object")))..............
e9a0	28 6d 6f 64 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 29 29 0a 20 20	(modname.(symbol-module.sym))...
e9c0	20 20 20 20 20 20 20 20 20 20 20 28 64 6f 63 20 28 6f 62 6a 65 63 74 2d 64 6f 63 75 6d 65 6e 74	...........(doc.(object-document
e9e0	61 74 69 6f 6e 20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 74 79	ation.obj))).........(display.ty
ea00	70 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 6d 6f 64 6e 61 6d 65 0a 20 20 20 20 20 20 20 20	pe).........(if.modname.........
ea20	20 20 20 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61	....(begin...............(displa
ea40	79 20 22 20 69 6e 20 6d 6f 64 75 6c 65 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	y.".in.module.")...............(
ea60	64 69 73 70 6c 61 79 20 6d 6f 64 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	display.modname)...............(
ea80	64 69 73 70 6c 61 79 20 22 2e 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 29	display."."))).........(newline)
eaa0	0a 20 20 20 20 20 20 20 20 28 69 66 20 64 6f 63 20 28 62 65 67 69 6e 20 28 6e 65 77 6c 69 6e 65	.........(if.doc.(begin.(newline
eac0	29 20 28 64 69 73 70 6c 61 79 20 28 74 72 79 2d 74 65 78 69 6e 66 6f 2d 3e 70 6c 61 69 6e 2d 74	).(display.(try-texinfo->plain-t
eae0	65 78 74 20 64 6f 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 76 61 6c 75 61 62 6c	ext.doc)))).........(if.(valuabl
eb00	65 3f 29 20 28 62 65 67 69 6e 20 28 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20	e?).(begin.(newline)............
eb20	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 22 56 61	....................(display."Va
eb40	6c 75 65 3a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	lue:")..........................
eb60	20 20 20 20 20 20 28 6e 65 77 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	......(newline).................
eb80	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 22 20 20 20 22 29 0a 20	...............(display."...")..
eba0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64	..............................(d
ebc0	69 73 70 6c 61 79 20 28 76 61 6c 75 65 2d 73 74 72 20 6f 62 6a 29 29 29 29 29 29 29 29 0a 0a 28	isplay.(value-str.obj))))))))..(
ebe0	64 65 66 69 6e 65 2a 20 28 6f 62 6a 2d 73 69 67 6e 61 74 75 72 65 20 73 79 6d 20 6f 62 6a 20 23	define*.(obj-signature.sym.obj.#
ec00	3a 6f 70 74 69 6f 6e 61 6c 20 28 64 65 74 61 69 6c 20 23 74 29 29 0a 20 20 28 6c 65 74 20 28 28	:optional.(detail.#t))...(let.((
ec20	61 72 67 73 20 28 6f 62 6a 2d 61 72 67 73 20 6f 62 6a 29 29 29 0a 20 20 20 20 28 61 6e 64 20 61	args.(obj-args.obj))).....(and.a
ec40	72 67 73 20 28 73 69 67 6e 61 74 75 72 65 20 73 79 6d 20 61 72 67 73 20 64 65 74 61 69 6c 29 29	rgs.(signature.sym.args.detail))
ec60	29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 6c 65 2d 65 78 70 6f 72 74 73 20 6d 6f 64 2d	))..(define.(module-exports.mod-
ec80	6e 61 6d 65 29 0a 20 20 28 64 65 66 69 6e 65 20 65 6c 74 2d 73 6f 72 74 20 28 6d 61 6b 65 2d 73	name)...(define.elt-sort.(make-s
eca0	79 6d 62 6f 6c 2d 73 6f 72 74 20 63 61 72 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 20 28	ymbol-sort.car))...(let*.((mod.(
ecc0	63 61 74 63 68 20 23 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61	catch.#t.................(lambda
ece0	20 28 29 20 28 72 65 73 6f 6c 76 65 2d 69 6e 74 65 72 66 61 63 65 20 6d 6f 64 2d 6e 61 6d 65 29	.().(resolve-interface.mod-name)
ed00	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 61 72 67 73 20 28	).................(lambda.args.(
ed20	72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20	resolve-module.mod-name)))).....
ed40	20 20 20 20 20 28 65 6c 74 73 20 28 68 61 73 68 2d 66 6f 6c 64 20 63 6c 61 73 73 69 66 79 2d 6d	.....(elts.(hash-fold.classify-m
ed60	6f 64 75 6c 65 2d 6f 62 6a 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	odule-object....................
ed80	20 20 20 20 20 20 20 28 6c 69 73 74 20 27 28 29 20 27 28 29 20 27 28 29 29 0a 20 20 20 20 20 20	.......(list.'().'().'()).......
eda0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 6f 62 61 72	....................(module-obar
edc0	72 61 79 20 6d 6f 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 6c 74 73 20 28 6d 61 70 20 65	ray.mod)))..........(elts.(map.e
ede0	6c 74 2d 73 6f 72 74 20 65 6c 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 75 62 73 20 28 6d	lt-sort.elts))..........(subs.(m
ee00	61 70 20 28 6c 61 6d 62 64 61 20 28 6d 29 20 28 6c 69 73 74 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d	ap.(lambda.(m).(list.(module-nam
ee20	65 20 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 6d	e.m))).....................(subm
ee40	6f 64 75 6c 65 73 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 20	odules.(resolve-module.mod-name.
ee60	23 66 29 29 29 29 29 0a 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 22 6d 6f 64 75 6c 65 73	#f))))).....(list.(cons."modules
ee80	22 20 73 75 62 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 70 72 6f 63 73 22 20	".subs)...........(cons."procs".
eea0	28 63 61 72 20 65 6c 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 73 79 6e	(car.elts))...........(cons."syn
eec0	74 61 78 22 20 28 63 61 64 72 20 65 6c 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e	tax".(cadr.elts))...........(con
eee0	73 20 22 76 61 72 73 22 20 28 63 61 64 64 72 20 65 6c 74 73 29 29 29 29 29 0a 0a 28 64 65 66 69	s."vars".(caddr.elts)))))..(defi
ef00	6e 65 20 28 63 6c 61 73 73 69 66 79 2d 6d 6f 64 75 6c 65 2d 6f 62 6a 65 63 74 20 6e 61 6d 65 20	ne.(classify-module-object.name.
ef20	76 61 72 20 65 6c 74 73 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 61 6e 64 20 28 76 61 72	var.elts)...(let.((obj.(and.(var
ef40	69 61 62 6c 65 2d 62 6f 75 6e 64 3f 20 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20	iable-bound?.var)...............
ef60	20 20 20 20 28 76 61 72 69 61 62 6c 65 2d 72 65 66 20 76 61 72 29 29 29 29 0a 20 20 20 20 28 63	....(variable-ref.var)))).....(c
ef80	6f 6e 64 20 28 28 6f 72 20 28 6e 6f 74 20 6f 62 6a 29 20 28 6d 6f 64 75 6c 65 3f 20 6f 62 6a 29	ond.((or.(not.obj).(module?.obj)
efa0	29 20 65 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 70 72 6f 63 65 64 75 72	).elts)...........((or.(procedur
efc0	65 3f 20 6f 62 6a 29 20 28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20	e?.obj).(program?.obj)).........
efe0	20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 6e 61 6d 65 20 60 28 22 73 69 67	...(list.(cons.(list.name.`("sig
f000	6e 61 74 75 72 65 22 20 2e 20 2c 28 6f 62 6a 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65 20 6f	nature"...,(obj-signature.name.o
f020	62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61	bj)))........................(ca
f040	72 20 65 6c 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 72 20	r.elts))..................(cadr.
f060	65 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 64 64 72 20 65 6c	elts)..................(caddr.el
f080	74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 6d 61 63 72 6f 3f 20 6f 62 6a 29 0a 20 20	ts)))...........((macro?.obj)...
f0a0	20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 61 72 20 65 6c 74 73 29 0a 20 20 20 20 20 20	.........(list.(car.elts).......
f0c0	20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 6e 61 6d 65 20 60 28 22 73	...........(cons.(list.name.`("s
f0e0	69 67 6e 61 74 75 72 65 22 20 2e 20 2c 28 6f 62 6a 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d 65	ignature"...,(obj-signature.name
f100	20 6f 62 6a 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28	.obj)))........................(
f120	63 61 64 72 20 65 6c 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61	cadr.elts))..................(ca
f140	64 64 72 20 65 6c 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 28 6c 69 73	ddr.elts)))...........(else.(lis
f160	74 20 28 63 61 72 20 65 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	t.(car.elts)....................
f180	20 20 20 28 63 61 64 72 20 65 6c 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	...(cadr.elts)..................
f1a0	20 20 20 20 20 28 63 6f 6e 73 20 28 6c 69 73 74 20 6e 61 6d 65 29 20 28 63 61 64 64 72 20 65 6c	.....(cons.(list.name).(caddr.el
f1c0	74 73 29 29 29 29 29 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	ts))))))).......................
f1e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f200	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 75	geiser-guile-0.28.3/src/geiser/u
f220	74 69 6c 73 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	tils.scm........................
f240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f260	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
f280	30 30 30 33 30 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 33 36 00 20 30 00 00 00	0003071.00000000000.016536..0...
f2a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f2c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f2e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f300	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
f320	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
f340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f3a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f3c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f3e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
f400	3b 3b 3b 20 75 74 69 6c 73 2e 73 63 6d 20 2d 2d 20 75 74 69 6c 69 74 79 20 66 75 6e 63 74 69 6f	;;;.utils.scm.--.utility.functio
f420	6e 73 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c	ns..;;.Copyright.(C).2009,.2010,
f440	20 32 30 31 31 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a	.2011.Jose.Antonio.Ortega.Ruiz..
f460	3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65	;;.This.program.is.free.software
f480	3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72	;.you.can.redistribute.it.and/or
f4a0	0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66	.;;.modify.it.under.the.terms.of
f4c0	20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73	.the.Modified.BSD.License..You.s
f4e0	68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66	hould.;;.have.received.a.copy.of
f500	20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f	.the.license.along.with.this.pro
f520	67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77	gram..If.;;.not,.see.<http://www
f540	2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74	.xfree86.org/3.3.6/COPYRIGHT2.ht
f560	6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 4d 6f 6e 20 4d 61 72 20 30	ml#5>...;;.Start.date:.Mon.Mar.0
f580	32 2c 20 32 30 30 39 20 30 31 3a 34 38 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67	2,.2009.01:48..(define-module.(g
f5a0	65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 65 78 70 6f 72 74 20 28 6d 61 6b 65 2d 6c 6f	eiser.utils)...#:export.(make-lo
f5c0	63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63	cation.............symbol->objec
f5e0	74 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 61 69 72 2d 3e 6c 69 73 74 0a 20 20 20 20 20 20 20	t.............pair->list........
f600	20 20 20 20 20 73 6f 72 74 2d 73 79 6d 62 6f 6c 73 21 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d	.....sort-symbols!.............m
f620	61 6b 65 2d 73 79 6d 62 6f 6c 2d 73 6f 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 6e 73	ake-symbol-sort.............gens
f640	79 6d 3f 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78	ym?)...#:use-module.(ice-9.regex
f660	29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79 6d 29	))..(define.(symbol->object.sym)
f680	0a 20 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 3f 20 73 79 6d 29 0a 20 20 20 20 20 20 20 28 6d 6f	...(and.(symbol?.sym)........(mo
f6a0	64 75 6c 65 2d 64 65 66 69 6e 65 64 3f 20 28 63 75 72 72 65 6e 74 2d 6d 6f 64 75 6c 65 29 20 73	dule-defined?.(current-module).s
f6c0	79 6d 29 0a 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 72 65 66 20 28 63 75 72 72 65 6e 74 2d	ym)........(module-ref.(current-
f6e0	6d 6f 64 75 6c 65 29 20 73 79 6d 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 61 69 72 2d 3e 6c	module).sym)))..(define.(pair->l
f700	69 73 74 20 70 61 69 72 29 0a 20 20 28 6c 65 74 20 6c 6f 6f 70 20 28 28 64 20 70 61 69 72 29 20	ist.pair)...(let.loop.((d.pair).
f720	28 73 20 27 28 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 3f 20 64 29 20 28 72	(s.'())).....(cond.((null?.d).(r
f740	65 76 65 72 73 65 21 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 3f 20	everse!.s))...........((symbol?.
f760	64 29 20 28 72 65 76 65 72 73 65 21 20 28 63 6f 6e 73 20 64 20 73 29 29 29 0a 20 20 20 20 20 20	d).(reverse!.(cons.d.s))).......
f780	20 20 20 20 28 65 6c 73 65 20 28 6c 6f 6f 70 20 28 63 64 72 20 64 29 20 28 63 6f 6e 73 20 28 63	....(else.(loop.(cdr.d).(cons.(c
f7a0	61 72 20 64 29 20 73 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 6c 6f 63	ar.d).s))))))..(define.(make-loc
f7c0	61 74 69 6f 6e 20 66 69 6c 65 20 6c 69 6e 65 29 0a 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 22	ation.file.line)...(list.(cons."
f7e0	66 69 6c 65 22 20 28 69 66 20 28 73 74 72 69 6e 67 3f 20 66 69 6c 65 29 20 66 69 6c 65 20 27 28	file".(if.(string?.file).file.'(
f800	29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 6c 69 6e 65 22 20 28 69 66 20 28 6e 75	))).........(cons."line".(if.(nu
f820	6d 62 65 72 3f 20 6c 69 6e 65 29 20 28 2b 20 31 20 6c 69 6e 65 29 20 27 28 29 29 29 29 29 0a 0a	mber?.line).(+.1.line).'()))))..
f840	28 64 65 66 69 6e 65 20 28 73 6f 72 74 2d 73 79 6d 62 6f 6c 73 21 20 73 79 6d 73 29 0a 20 20 28	(define.(sort-symbols!.syms)...(
f860	6c 65 74 20 28 28 63 6d 70 20 28 6c 61 6d 62 64 61 20 28 6c 20 72 29 0a 20 20 20 20 20 20 20 20	let.((cmp.(lambda.(l.r).........
f880	20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3c 3f 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67	.......(string<?.(symbol->string
f8a0	20 6c 29 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 72 29 29 29 29 29 0a 20 20 20 20 28	.l).(symbol->string.r))))).....(
f8c0	73 6f 72 74 21 20 73 79 6d 73 20 63 6d 70 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65	sort!.syms.cmp)))..(define.(make
f8e0	2d 73 79 6d 62 6f 6c 2d 73 6f 72 74 20 73 65 6c 29 0a 20 20 28 6c 65 74 20 28 28 63 6d 70 20 28	-symbol-sort.sel)...(let.((cmp.(
f900	6c 61 6d 62 64 61 20 28 61 20 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72	lambda.(a.b)................(str
f920	69 6e 67 3c 3f 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 28 73 65 6c 20 61 29 29 0a 20	ing<?.(symbol->string.(sel.a))..
f940	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d	........................(symbol-
f960	3e 73 74 72 69 6e 67 20 28 73 65 6c 20 62 29 29 29 29 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61	>string.(sel.b)))))).....(lambda
f980	20 28 73 79 6d 73 29 0a 20 20 20 20 20 20 28 73 6f 72 74 21 20 73 79 6d 73 20 63 6d 70 29 29 29	.(syms).......(sort!.syms.cmp)))
f9a0	29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 6e 73 79 6d 3f 20 73 79 6d 29 0a 20 20 28 61 6e 64 20	)..(define.(gensym?.sym)...(and.
f9c0	28 73 79 6d 62 6f 6c 3f 20 73 79 6d 29 20 28 67 65 6e 73 79 6d 2d 6e 61 6d 65 3f 20 28 66 6f 72	(symbol?.sym).(gensym-name?.(for
f9e0	6d 61 74 20 23 66 20 22 7e 41 22 20 73 79 6d 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65	mat.#f."~A".sym))))..(define.(ge
fa00	6e 73 79 6d 2d 6e 61 6d 65 3f 20 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 73 74 72 69 6e 67 2d	nsym-name?.name)...(and.(string-
fa20	6d 61 74 63 68 20 22 5e 23 5b 7b 5d 22 20 6e 61 6d 65 29 20 23 74 29 29 0a 00 00 00 00 00 00 00	match."^#[{]".name).#t))........
fa40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fa60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fa80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
faa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fb00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fb20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fb40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fb60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fb80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fbc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fbe0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fc00	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 6d	geiser-guile-0.28.3/src/geiser/m
fc20	6f 64 75 6c 65 73 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	odules.scm......................
fc40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fc60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
fc80	30 30 30 36 37 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 30 36 30 00 20 30 00 00 00	0006771.00000000000.017060..0...
fca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fcc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fd00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
fd20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
fd40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fd60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fd80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fda0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fdc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fde0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
fe00	3b 3b 3b 20 6d 6f 64 75 6c 65 73 2e 73 63 6d 20 2d 2d 20 6d 6f 64 75 6c 65 20 6d 65 74 61 64 61	;;;.modules.scm.--.module.metada
fe20	74 61 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c	ta..;;.Copyright.(C).2009,.2010,
fe40	20 32 30 31 31 2c 20 32 30 31 38 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20	.2011,.2018.Jose.Antonio.Ortega.
fe60	52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f	Ruiz..;;.This.program.is.free.so
fe80	66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20	ftware;.you.can.redistribute.it.
fea0	61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65	and/or.;;.modify.it.under.the.te
fec0	72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e	rms.of.the.Modified.BSD.License.
fee0	20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63	.You.should.;;.have.received.a.c
ff00	6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68	opy.of.the.license.along.with.th
ff20	69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70	is.program..If.;;.not,.see.<http
ff40	3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47	://www.xfree86.org/3.3.6/COPYRIG
ff60	48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 4d 6f 6e	HT2.html#5>...;;.Start.date:.Mon
ff80	20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 32 3a 30 30 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64	.Mar.02,.2009.02:00..(define-mod
ffa0	75 6c 65 20 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 65 78 70 6f 72 74 20	ule.(geiser.modules)...#:export.
ffc0	28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 72	(symbol-module.............progr
ffe0	61 6d 2d 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 6e 61 6d	am-module.............module-nam
10000	65 3f 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 70 61 74 68 0a 20 20 20 20 20	e?.............module-path......
10020	20 20 20 20 20 20 20 66 69 6e 64 2d 6d 6f 64 75 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 61	.......find-module.............a
10040	6c 6c 2d 6d 6f 64 75 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 6d 6f 64 75 6c 65	ll-modules.............submodule
10060	73 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 75 6c 65 2d 6c 6f 63 61 74 69 6f 6e 29 0a 20	s.............module-location)..
10080	20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 75 74 69 6c 73 29 0a 20 20 23	.#:use-module.(geiser.utils)...#
100a0	3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29 0a	:use-module.(system.vm.program).
100c0	20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 64 65 62 75 67 29	..#:use-module.(system.vm.debug)
100e0	0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 72 65 67 65 78 29 0a 20 20	...#:use-module.(ice-9.regex)...
10100	23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 73 65 73 73 69 6f 6e 29 0a 20 20 23	#:use-module.(ice-9.session)...#
10120	3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 72 66 69 20 73 72 66 69 2d 31 29 29 0a 0a 3b 3b 20 52	:use-module.(srfi.srfi-1))..;;.R
10140	65 74 75 72 6e 20 68 61 73 68 20 74 61 62 6c 65 20 6d 61 70 70 69 6e 67 20 66 69 6c 65 6e 61 6d	eturn.hash.table.mapping.filenam
10160	65 20 74 6f 20 6c 69 73 74 20 6f 66 20 6d 6f 64 75 6c 65 73 20 64 65 66 69 6e 65 64 20 69 6e 20	e.to.list.of.modules.defined.in.
10180	74 68 61 74 0a 3b 3b 20 66 69 6c 65 2e 20 48 2f 74 20 61 6e 64 79 20 77 69 6e 67 6f 2e 0a 28 64	that.;;.file..H/t.andy.wingo..(d
101a0	65 66 69 6e 65 20 28 66 69 6c 6c 2d 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 2d 6d 61 70 70 69 6e 67	efine.(fill-file->module-mapping
101c0	21 20 72 65 74 29 0a 20 20 28 64 65 66 69 6e 65 20 28 72 65 63 6f 72 64 2d 6d 6f 64 75 6c 65 20	!.ret)...(define.(record-module.
101e0	6d 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 6d 6f 64 75 6c 65 2d 66 69 6c 65 6e 61 6d 65	m).....(let.((f.(module-filename
10200	20 6d 29 29 29 0a 20 20 20 20 20 20 28 68 61 73 68 2d 73 65 74 21 20 72 65 74 20 66 20 28 63 6f	.m))).......(hash-set!.ret.f.(co
10220	6e 73 20 6d 20 28 68 61 73 68 2d 72 65 66 20 72 65 74 20 66 20 27 28 29 29 29 29 29 29 0a 20 20	ns.m.(hash-ref.ret.f.'())))))...
10240	28 64 65 66 69 6e 65 20 28 76 69 73 69 74 2d 6d 6f 64 75 6c 65 20 6d 29 0a 20 20 20 20 28 72 65	(define.(visit-module.m).....(re
10260	63 6f 72 64 2d 6d 6f 64 75 6c 65 20 6d 29 0a 20 20 20 20 28 68 61 73 68 2d 66 6f 72 2d 65 61 63	cord-module.m).....(hash-for-eac
10280	68 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 20 28 76 69 73 69 74 2d 6d 6f 64 75 6c 65 20 76 29	h.(lambda.(k.v).(visit-module.v)
102a0	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 73 75 62	)....................(module-sub
102c0	6d 6f 64 75 6c 65 73 20 6d 29 29 29 0a 20 20 28 76 69 73 69 74 2d 6d 6f 64 75 6c 65 20 28 72 65	modules.m)))...(visit-module.(re
102e0	73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 29 20 23 66 29 29 0a 20 20 72 65 74 29 0a 0a 28 64	solve-module.'().#f))...ret)..(d
10300	65 66 69 6e 65 20 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 73 20 28 66 69 6c 6c 2d 66 69 6c 65 2d 3e	efine.file->modules.(fill-file->
10320	6d 6f 64 75 6c 65 2d 6d 61 70 70 69 6e 67 21 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65	module-mapping!.(make-hash-table
10340	29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d 66 69 6c 65 20 70 29 0a 20 20	)))..(define.(program-file.p)...
10360	28 6c 65 74 20 28 28 73 72 63 20 28 70 72 6f 67 72 61 6d 2d 73 6f 75 72 63 65 20 70 20 30 29 29	(let.((src.(program-source.p.0))
10380	29 0a 20 20 20 20 28 61 6e 64 20 28 70 61 69 72 3f 20 73 72 63 29 20 28 63 61 64 72 20 73 72 63	).....(and.(pair?.src).(cadr.src
103a0	29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d 6d 6f 64 75 6c 65 20 70 29	))))..(define.(program-module.p)
103c0	0a 20 20 28 6c 65 74 2a 20 28 28 66 20 28 70 72 6f 67 72 61 6d 2d 66 69 6c 65 20 70 29 29 0a 20	...(let*.((f.(program-file.p))..
103e0	20 20 20 20 20 20 20 20 28 6d 6f 64 73 20 28 6f 72 20 28 68 61 73 68 2d 72 65 66 20 66 69 6c 65	........(mods.(or.(hash-ref.file
10400	2d 3e 6d 6f 64 75 6c 65 73 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	->modules.f)....................
10420	28 68 61 73 68 2d 72 65 66 20 28 66 69 6c 6c 2d 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 2d 6d 61 70	(hash-ref.(fill-file->module-map
10440	70 69 6e 67 21 20 66 69 6c 65 2d 3e 6d 6f 64 75 6c 65 73 29 20 66 29 29 29 29 0a 20 20 20 20 28	ping!.file->modules).f)))).....(
10460	61 6e 64 20 28 70 61 69 72 3f 20 6d 6f 64 73 29 20 28 6e 6f 74 20 28 6e 75 6c 6c 3f 20 6d 6f 64	and.(pair?.mods).(not.(null?.mod
10480	73 29 29 20 28 63 61 72 20 6d 6f 64 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75	s)).(car.mods))))..(define.(modu
104a0	6c 65 2d 6e 61 6d 65 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 6c 69	le-name?.module-name)...(and.(li
104c0	73 74 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6e 75	st?.module-name)........(not.(nu
104e0	6c 6c 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 65 76 65 72 79 20	ll?.module-name))........(every.
10500	73 79 6d 62 6f 6c 3f 20 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 20	symbol?.module-name)))..(define.
10520	28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 20 2e 20 61 6c 6c 29 0a 20 20 28 61 6e 64	(symbol-module.sym...all)...(and
10540	20 73 79 6d 0a 20 20 20 20 20 20 20 28 63 61 74 63 68 20 27 6d 6f 64 75 6c 65 2d 6e 61 6d 65 0a	.sym........(catch.'module-name.
10560	20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 28	.........(lambda.()............(
10580	61 70 72 6f 70 6f 73 2d 66 6f 6c 64 20 28 6c 61 6d 62 64 61 20 28 6d 6f 64 75 6c 65 20 6e 61 6d	apropos-fold.(lambda.(module.nam
105a0	65 20 76 61 72 20 69 6e 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	e.var.init).....................
105c0	20 20 20 20 20 20 20 28 69 66 20 28 65 71 3f 20 6e 61 6d 65 20 73 79 6d 29 0a 20 20 20 20 20 20	.......(if.(eq?.name.sym).......
105e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20	.........................(throw.
10600	27 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6d 6f 64 75 6c 65	'module-name.(module-name.module
10620	29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	))..............................
10640	20 20 69 6e 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	..init))........................
10660	20 20 23 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72	..#f..........................(r
10680	65 67 65 78 70 2d 71 75 6f 74 65 20 28 73 79 6d 62 6f 6c 2d 3e 73 74 72 69 6e 67 20 73 79 6d 29	egexp-quote.(symbol->string.sym)
106a0	29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28	)..........................(if.(
106c0	6f 72 20 28 6e 75 6c 6c 3f 20 61 6c 6c 29 20 28 6e 6f 74 20 28 63 61 72 20 61 6c 6c 29 29 29 0a	or.(null?.all).(not.(car.all))).
106e0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70	.............................(ap
10700	72 6f 70 6f 73 2d 66 6f 6c 64 2d 61 63 63 65 73 73 69 62 6c 65 20 28 63 75 72 72 65 6e 74 2d 6d	ropos-fold-accessible.(current-m
10720	6f 64 75 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	odule)).........................
10740	20 20 20 20 20 61 70 72 6f 70 6f 73 2d 66 6f 6c 64 2d 61 6c 6c 29 29 29 0a 20 20 20 20 20 20 20	.....apropos-fold-all)))........
10760	20 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 20 2e 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20	..(lambda.(key...args)..........
10780	20 20 28 61 6e 64 20 28 65 71 3f 20 6b 65 79 20 27 6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 20 28 63	..(and.(eq?.key.'module-name).(c
107a0	61 72 20 61 72 67 73 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 6c 65 2d 6c	ar.args))))))..(define.(module-l
107c0	6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 0a 20 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28	ocation.name)...(make-location.(
107e0	6d 6f 64 75 6c 65 2d 70 61 74 68 20 6e 61 6d 65 29 20 23 66 29 29 0a 0a 28 64 65 66 69 6e 65 20	module-path.name).#f))..(define.
10800	28 66 69 6e 64 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 6d	(find-module.mod-name)...(and.(m
10820	6f 64 75 6c 65 2d 6e 61 6d 65 3f 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 72 65	odule-name?.mod-name)........(re
10840	73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 2d 6e 61 6d 65 20 23 66 20 23 3a 65 6e 73 75 72	solve-module.mod-name.#f.#:ensur
10860	65 20 23 66 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 6f 64 75 6c 65 2d 70 61 74 68 20 6d 6f	e.#f)))..(define.(module-path.mo
10880	64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 28 61 6e 64 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 3f 20	dule-name)...(and.(module-name?.
108a0	6d 6f 64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 6f 72 20 28 28 40 40 20 28 69 63	module-name)........(or.((@@.(ic
108c0	65 2d 39 20 73 65 73 73 69 6f 6e 29 20 6d 6f 64 75 6c 65 2d 66 69 6c 65 6e 61 6d 65 29 20 6d 6f	e-9.session).module-filename).mo
108e0	64 75 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 75 6c 65 2d 66 69	dule-name)............(module-fi
10900	6c 65 6e 61 6d 65 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 6d 6f 64 75 6c 65 2d 6e 61	lename.(resolve-module.module-na
10920	6d 65 20 23 66 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 73 75 62 6d 6f 64 75 6c 65 73 20	me.#f)))))..(define.(submodules.
10940	6d 6f 64 29 0a 20 20 28 68 61 73 68 2d 6d 61 70 2d 3e 6c 69 73 74 20 28 6c 61 6d 62 64 61 20 28	mod)...(hash-map->list.(lambda.(
10960	6b 20 76 29 20 76 29 20 28 6d 6f 64 75 6c 65 2d 73 75 62 6d 6f 64 75 6c 65 73 20 6d 6f 64 29 29	k.v).v).(module-submodules.mod))
10980	29 0a 0a 28 64 65 66 69 6e 65 20 28 72 6f 6f 74 2d 6d 6f 64 75 6c 65 73 29 0a 20 20 28 73 75 62	)..(define.(root-modules)...(sub
109a0	6d 6f 64 75 6c 65 73 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 29 20 23 66 29 29	modules.(resolve-module.'().#f))
109c0	29 0a 0a 28 64 65 66 69 6e 65 20 28 61 6c 6c 2d 6d 6f 64 75 6c 65 73 29 0a 20 20 28 64 65 66 69	)..(define.(all-modules)...(defi
109e0	6e 65 20 28 6d 61 79 62 65 2d 6e 61 6d 65 20 6d 29 0a 20 20 20 20 28 61 6e 64 20 28 6d 6f 64 75	ne.(maybe-name.m).....(and.(modu
10a00	6c 65 2d 6b 69 6e 64 20 6d 29 20 28 66 6f 72 6d 61 74 20 23 66 20 22 7e 41 22 20 28 6d 6f 64 75	le-kind.m).(format.#f."~A".(modu
10a20	6c 65 2d 6e 61 6d 65 20 6d 29 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 67 75 69 6c 65 20 28 72	le-name.m))))...(let*.((guile.(r
10a40	65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 67 75 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20	esolve-module.'(guile)))........
10a60	20 20 28 72 6f 6f 74 73 20 28 72 65 6d 6f 76 65 20 28 6c 61 6d 62 64 61 20 28 6d 29 20 28 65 71	..(roots.(remove.(lambda.(m).(eq
10a80	3f 20 6d 20 67 75 69 6c 65 29 29 20 28 72 6f 6f 74 2d 6d 6f 64 75 6c 65 73 29 29 29 0a 20 20 20	?.m.guile)).(root-modules)))....
10aa0	20 20 20 20 20 20 28 63 68 69 6c 64 72 65 6e 20 28 61 70 70 65 6e 64 2d 6d 61 70 20 61 6c 6c 2d	......(children.(append-map.all-
10ac0	63 68 69 6c 64 2d 6d 6f 64 75 6c 65 73 20 72 6f 6f 74 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 73	child-modules.roots))).....(cons
10ae0	20 22 28 67 75 69 6c 65 29 22 20 28 66 69 6c 74 65 72 2d 6d 61 70 20 6d 61 79 62 65 2d 6e 61 6d	."(guile)".(filter-map.maybe-nam
10b00	65 20 63 68 69 6c 64 72 65 6e 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2a 20 28 61 6c 6c 2d 63 68	e.children))))..(define*.(all-ch
10b20	69 6c 64 2d 6d 6f 64 75 6c 65 73 20 6d 6f 64 20 23 3a 6f 70 74 69 6f 6e 61 6c 20 28 73 65 65 6e	ild-modules.mod.#:optional.(seen
10b40	20 27 28 29 29 29 0a 20 20 28 6c 65 74 20 28 28 63 73 20 28 66 69 6c 74 65 72 20 28 6c 61 6d 62	.'()))...(let.((cs.(filter.(lamb
10b60	64 61 20 28 6d 29 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 6d 20 73 65 65 6e 29 29 29 20 28 73	da.(m).(not.(member.m.seen))).(s
10b80	75 62 6d 6f 64 75 6c 65 73 20 6d 6f 64 29 29 29 29 0a 20 20 20 20 28 66 6f 6c 64 20 28 6c 61 6d	ubmodules.mod)))).....(fold.(lam
10ba0	62 64 61 20 28 6d 20 61 6c 6c 29 20 28 61 70 70 65 6e 64 20 28 61 6c 6c 2d 63 68 69 6c 64 2d 6d	bda.(m.all).(append.(all-child-m
10bc0	6f 64 75 6c 65 73 20 6d 20 61 6c 6c 29 20 61 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c	odules.m.all).all))...........(l
10be0	69 73 74 20 6d 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 63 73 29 29 29 0a 00 00 00 00 00 00 00	ist.mod)...........cs)))........
10c00	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 65	geiser-guile-0.28.3/src/geiser/e
10c20	6d 61 63 73 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	macs.scm........................
10c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10c60	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
10c80	30 30 30 34 31 37 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 34 37 36 00 20 30 00 00 00	0004177.00000000000.016476..0...
10ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10d00	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
10d20	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
10d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
10e00	3b 3b 3b 20 65 6d 61 63 73 2e 73 63 6d 20 2d 2d 20 70 72 6f 63 65 64 75 72 65 73 20 66 6f 72 20	;;;.emacs.scm.--.procedures.for.
10e20	65 6d 61 63 73 20 69 6e 74 65 72 61 63 74 69 6f 6e 3a 20 65 6e 74 72 79 20 70 6f 69 6e 74 0a 0a	emacs.interaction:.entry.point..
10e40	3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 39 2c 20 32 30 31 30 2c 20 32 30 31	;;.Copyright.(C).2009,.2010,.201
10e60	31 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65 67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54	1.Jose.Antonio.Ortega.Ruiz..;;.T
10e80	68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f	his.program.is.free.software;.yo
10ea0	75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20	u.can.redistribute.it.and/or.;;.
10ec0	6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65	modify.it.under.the.terms.of.the
10ee0	20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e 73 65 2e 20 59 6f 75 20 73 68 6f 75 6c	.Modified.BSD.License..You.shoul
10f00	64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65	d.;;.have.received.a.copy.of.the
10f20	20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d	.license.along.with.this.program
10f40	2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 78 66 72	..If.;;.not,.see.<http://www.xfr
10f60	65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59 52 49 47 48 54 32 2e 68 74 6d 6c 23 35	ee86.org/3.3.6/COPYRIGHT2.html#5
10f80	3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20 53 75 6e 20 46 65 62 20 30 38 2c 20 32	>...;;.Start.date:.Sun.Feb.08,.2
10fa0	30 30 39 20 31 38 3a 33 39 0a 0a 28 64 65 66 69 6e 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65	009.18:39..(define-module.(geise
10fc0	72 20 65 6d 61 63 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 69 63 65 2d 39 20 6d	r.emacs)...#:use-module.(ice-9.m
10fe0	61 74 63 68 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 72 65 70	atch)...#:use-module.(system.rep
11000	6c 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65	l.command)...#:use-module.(syste
11020	6d 20 72 65 70 6c 20 65 72 72 6f 72 2d 68 61 6e 64 6c 69 6e 67 29 0a 20 20 23 3a 75 73 65 2d 6d	m.repl.error-handling)...#:use-m
11040	6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 72 65 70 6c 20 73 65 72 76 65 72 29 0a 20 20 23 3a 75	odule.(system.repl.server)...#:u
11060	73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 65 76 61 6c 75 61 74 69 6f 6e 29 0a 20 20	se-module.(geiser.evaluation)...
11080	23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 28 67 65 69 73 65 72 20 6d 6f 64 75 6c 65 73 29 20 23	#:use-module.((geiser.modules).#
110a0	3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 72 65 66 69 78 2d 70 72 6f 63 20 27 67 65	:renamer.(symbol-prefix-proc.'ge
110c0	3a 29 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 28 67 65 69 73 65 72 20 63 6f 6d 70	:))...#:use-module.((geiser.comp
110e0	6c 65 74 69 6f 6e 29 20 23 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 72 65 66 69 78	letion).#:renamer.(symbol-prefix
11100	2d 70 72 6f 63 20 27 67 65 3a 29 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 28 67 65	-proc.'ge:))...#:use-module.((ge
11120	69 73 65 72 20 78 72 65 66 29 20 23 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70 72 65	iser.xref).#:renamer.(symbol-pre
11140	66 69 78 2d 70 72 6f 63 20 27 67 65 3a 29 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28	fix-proc.'ge:))...#:use-module.(
11160	28 67 65 69 73 65 72 20 64 6f 63 29 20 23 3a 72 65 6e 61 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 70	(geiser.doc).#:renamer.(symbol-p
11180	72 65 66 69 78 2d 70 72 6f 63 20 27 67 65 3a 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 74 68 69 73	refix-proc.'ge:)))..(define.this
111a0	2d 6d 6f 64 75 6c 65 20 28 72 65 73 6f 6c 76 65 2d 6d 6f 64 75 6c 65 20 27 28 67 65 69 73 65 72	-module.(resolve-module.'(geiser
111c0	20 65 6d 61 63 73 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20	.emacs)))..(define-meta-command.
111e0	28 28 67 65 69 73 65 72 2d 6e 6f 2d 76 61 6c 75 65 73 20 67 65 69 73 65 72 29 20 72 65 70 6c 29	((geiser-no-values.geiser).repl)
11200	0a 20 20 22 67 65 69 73 65 72 2d 6e 6f 2d 76 61 6c 75 65 73 0a 4e 6f 2d 6f 70 20 63 6f 6d 6d 61	..."geiser-no-values.No-op.comma
11220	6e 64 20 75 73 65 64 20 69 6e 74 65 72 6e 61 6c 6c 79 20 62 79 20 47 65 69 73 65 72 2e 22 0a 20	nd.used.internally.by.Geiser."..
11240	20 28 76 61 6c 75 65 73 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64	.(values))..(define-meta-command
11260	20 28 28 67 65 69 73 65 72 2d 6e 65 77 6c 69 6e 65 20 67 65 69 73 65 72 29 20 72 65 70 6c 29 0a	.((geiser-newline.geiser).repl).
11280	20 20 22 67 65 69 73 65 72 2d 6e 65 77 6c 69 6e 65 0a 4d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 75	.."geiser-newline.Meta-command.u
112a0	73 65 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 65 6d 69 74 20 61 20 6e 65 77 20 6c 69 6e 65	sed.by.Geiser.to.emit.a.new.line
112c0	2e 22 0a 20 20 28 6e 65 77 6c 69 6e 65 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f	."...(newline))..(define-meta-co
112e0	6d 6d 61 6e 64 20 28 28 67 65 69 73 65 72 2d 65 76 61 6c 20 67 65 69 73 65 72 29 20 72 65 70 6c	mmand.((geiser-eval.geiser).repl
11300	20 28 6d 6f 64 20 66 6f 72 6d 20 61 72 67 73 29 20 2e 20 72 65 73 74 29 0a 20 20 22 67 65 69 73	.(mod.form.args)...rest)..."geis
11320	65 72 2d 65 76 61 6c 20 6d 6f 64 75 6c 65 20 66 6f 72 6d 20 61 72 67 73 20 28 29 0a 4d 65 74 61	er-eval.module.form.args.().Meta
11340	2d 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 65 76 61 6c 75	-command.used.by.Geiser.to.evalu
11360	61 74 65 20 61 6e 64 20 63 6f 6d 70 69 6c 65 20 63 6f 64 65 2e 22 0a 20 20 28 6c 65 74 20 28 28	ate.and.compile.code."...(let.((
11380	61 72 67 73 20 28 73 79 6e 74 61 78 2d 3e 64 61 74 75 6d 20 61 72 67 73 29 29 0a 20 20 20 20 20	args.(syntax->datum.args))......
113a0	20 20 20 28 6d 6f 64 20 28 73 79 6e 74 61 78 2d 3e 64 61 74 75 6d 20 6d 6f 64 29 29 29 0a 20 20	...(mod.(syntax->datum.mod)))...
113c0	20 20 28 69 66 20 28 6e 75 6c 6c 3f 20 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c	..(if.(null?.args).........(call
113e0	2d 77 69 74 68 2d 65 72 72 6f 72 2d 68 61 6e 64 6c 69 6e 67 0a 20 20 20 20 20 20 20 20 20 28 6c	-with-error-handling..........(l
11400	61 6d 62 64 61 20 28 29 20 28 67 65 3a 63 6f 6d 70 69 6c 65 20 66 6f 72 6d 20 6d 6f 64 29 29 29	ambda.().(ge:compile.form.mod)))
11420	0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 65 76 61 6c 20 66 6f 72 6d 20	.........(let.((proc.(eval.form.
11440	74 68 69 73 2d 6d 6f 64 75 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 65 3a 65 76 61	this-module)))...........(ge:eva
11460	6c 20 60 28 2c 70 72 6f 63 20 2c 40 61 72 67 73 29 20 6d 6f 64 29 29 29 29 29 0a 0a 28 64 65 66	l.`(,proc.,@args).mod)))))..(def
11480	69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 28 28 67 65 69 73 65 72 2d 6c 6f 61 64 2d 66	ine-meta-command.((geiser-load-f
114a0	69 6c 65 20 67 65 69 73 65 72 29 20 72 65 70 6c 20 66 69 6c 65 29 0a 20 20 22 67 65 69 73 65 72	ile.geiser).repl.file)..."geiser
114c0	2d 6c 6f 61 64 2d 66 69 6c 65 20 66 69 6c 65 0a 4d 65 74 61 2d 63 6f 6d 6d 61 6e 64 20 75 73 65	-load-file.file.Meta-command.use
114e0	64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 6c 6f 61 64 20 61 6e 64 20 63 6f 6d 70 69 6c 65 20	d.by.Geiser.to.load.and.compile.
11500	66 69 6c 65 73 2e 22 0a 20 20 28 63 61 6c 6c 2d 77 69 74 68 2d 65 72 72 6f 72 2d 68 61 6e 64 6c	files."...(call-with-error-handl
11520	69 6e 67 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 67 65 3a 63 6f 6d 70 69 6c 65 2d 66 69	ing....(lambda.().(ge:compile-fi
11540	6c 65 20 66 69 6c 65 29 29 29 29 0a 0a 0a 28 64 65 66 69 6e 65 2d 6d 65 74 61 2d 63 6f 6d 6d 61	le.file))))...(define-meta-comma
11560	6e 64 20 28 28 67 65 69 73 65 72 2d 73 74 61 72 74 2d 73 65 72 76 65 72 20 67 65 69 73 65 72 29	nd.((geiser-start-server.geiser)
11580	20 72 65 70 6c 29 0a 20 20 22 67 65 69 73 65 72 2d 73 74 61 72 74 2d 73 65 72 76 65 72 0a 4d 65	.repl)..."geiser-start-server.Me
115a0	74 61 2d 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 62 79 20 47 65 69 73 65 72 20 74 6f 20 73 74 61	ta-command.used.by.Geiser.to.sta
115c0	72 74 20 61 20 52 45 50 4c 20 73 65 72 76 65 72 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 6f 63	rt.a.REPL.server."...(let*.((soc
115e0	6b 20 28 6d 61 6b 65 2d 74 63 70 2d 73 65 72 76 65 72 2d 73 6f 63 6b 65 74 20 23 3a 70 6f 72 74	k.(make-tcp-server-socket.#:port
11600	20 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 72 74 20 28 73 6f 63 6b 61 64 64 72 3a 70 6f	.0))..........(port.(sockaddr:po
11620	72 74 20 28 67 65 74 73 6f 63 6b 6e 61 6d 65 20 73 6f 63 6b 29 29 29 29 0a 20 20 20 20 28 73 70	rt.(getsockname.sock)))).....(sp
11640	61 77 6e 2d 73 65 72 76 65 72 20 73 6f 63 6b 29 0a 20 20 20 20 28 77 72 69 74 65 20 28 6c 69 73	awn-server.sock).....(write.(lis
11660	74 20 27 70 6f 72 74 20 70 6f 72 74 29 29 0a 20 20 20 20 28 6e 65 77 6c 69 6e 65 29 29 29 0a 00	t.'port.port)).....(newline)))..
11680	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
116a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
116c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
116e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11700	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11720	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11740	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11760	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11780	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
117a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
117c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
117e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11800	67 65 69 73 65 72 2d 67 75 69 6c 65 2d 30 2e 32 38 2e 33 2f 73 72 63 2f 67 65 69 73 65 72 2f 78	geiser-guile-0.28.3/src/geiser/x
11820	72 65 66 2e 73 63 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	ref.scm.........................
11840	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11860	00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30	....0000644.0000000.0000000.0000
11880	30 30 30 35 35 32 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 33 35 32 00 20 30 00 00 00	0005527.00000000000.016352..0...
118a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
118c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
118e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11900	00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.ustar...root...................
11920	00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	.........root...................
11940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
119a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
119c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
119e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
11a00	3b 3b 3b 20 78 72 65 66 2e 73 63 6d 20 2d 2d 20 63 72 6f 73 73 2d 72 65 66 65 72 65 6e 63 69 6e	;;;.xref.scm.--.cross-referencin
11a20	67 20 75 74 69 6c 69 74 69 65 73 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30	g.utilities..;;.Copyright.(C).20
11a40	30 39 2c 20 32 30 31 30 2c 20 32 30 32 30 20 4a 6f 73 65 20 41 6e 74 6f 6e 69 6f 20 4f 72 74 65	09,.2010,.2020.Jose.Antonio.Orte
11a60	67 61 20 52 75 69 7a 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65	ga.Ruiz..;;.This.program.is.free
11a80	20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20	.software;.you.can.redistribute.
11aa0	69 74 20 61 6e 64 2f 6f 72 0a 3b 3b 20 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68 65	it.and/or.;;.modify.it.under.the
11ac0	20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 4d 6f 64 69 66 69 65 64 20 42 53 44 20 4c 69 63 65 6e	.terms.of.the.Modified.BSD.Licen
11ae0	73 65 2e 20 59 6f 75 20 73 68 6f 75 6c 64 0a 3b 3b 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20	se..You.should.;;.have.received.
11b00	61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 6c 69 63 65 6e 73 65 20 61 6c 6f 6e 67 20 77 69 74 68	a.copy.of.the.license.along.with
11b20	20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 49 66 0a 3b 3b 20 6e 6f 74 2c 20 73 65 65 20 3c 68	.this.program..If.;;.not,.see.<h
11b40	74 74 70 3a 2f 2f 77 77 77 2e 78 66 72 65 65 38 36 2e 6f 72 67 2f 33 2e 33 2e 36 2f 43 4f 50 59	ttp://www.xfree86.org/3.3.6/COPY
11b60	52 49 47 48 54 32 2e 68 74 6d 6c 23 35 3e 2e 0a 0a 3b 3b 20 53 74 61 72 74 20 64 61 74 65 3a 20	RIGHT2.html#5>...;;.Start.date:.
11b80	4d 6f 6e 20 4d 61 72 20 30 32 2c 20 32 30 30 39 20 30 32 3a 33 37 0a 0a 28 64 65 66 69 6e 65 2d	Mon.Mar.02,.2009.02:37..(define-
11ba0	6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72 20 78 72 65 66 29 0a 20 20 23 3a 65 78 70 6f 72 74 20	module.(geiser.xref)...#:export.
11bc0	28 73 79 6d 62 6f 6c 2d 6c 6f 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 65 6e	(symbol-location.............gen
11be0	65 72 69 63 2d 6d 65 74 68 6f 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 72 73	eric-methods.............callers
11c00	0a 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6c 6c 65 65 73 0a 20 20 20 20 20 20 20 20 20 20 20	.............callees............
11c20	20 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73	.find-file)...#:use-module.(geis
11c40	65 72 20 75 74 69 6c 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72	er.utils)...#:use-module.(geiser
11c60	20 6d 6f 64 75 6c 65 73 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 67 65 69 73 65 72	.modules)...#:use-module.(geiser
11c80	20 64 6f 63 29 0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 6f 6f 70 20 67 6f 6f 70 73 29	.doc)...#:use-module.(oop.goops)
11ca0	0a 20 20 23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 78 72 65 66 29 0a 20 20	...#:use-module.(system.xref)...
11cc0	23 3a 75 73 65 2d 6d 6f 64 75 6c 65 20 28 73 79 73 74 65 6d 20 76 6d 20 70 72 6f 67 72 61 6d 29	#:use-module.(system.vm.program)
11ce0	29 0a 0a 28 64 65 66 69 6e 65 20 28 73 79 6d 62 6f 6c 2d 6c 6f 63 61 74 69 6f 6e 20 73 79 6d 29	)..(define.(symbol-location.sym)
11d00	0a 20 20 28 6c 65 74 20 28 28 6f 62 6a 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79	...(let.((obj.(symbol->object.sy
11d20	6d 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 70 72 6f 67 72 61 6d 3f 20 6f 62 6a 29 20 28	m))).....(cond.((program?.obj).(
11d40	70 72 6f 67 72 61 6d 2d 6c 6f 63 61 74 69 6f 6e 20 6f 62 6a 29 29 0a 20 20 20 20 20 20 20 20 20	program-location.obj))..........
11d60	20 28 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 29 20 3d 3e 20 6d 6f 64 75 6c 65 2d	.((symbol-module.sym).=>.module-
11d80	6c 6f 63 61 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 27 28 29 29 29 29	location)...........(else.'())))
11da0	29 0a 0a 28 64 65 66 69 6e 65 20 28 67 65 6e 65 72 69 63 2d 6d 65 74 68 6f 64 73 20 73 79 6d 29	)..(define.(generic-methods.sym)
11dc0	0a 20 20 28 6c 65 74 2a 20 28 28 67 65 6e 20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73	...(let*.((gen.(symbol->object.s
11de0	79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 68 6f 64 73 20 28 69 66 20 28 69 73 2d 61	ym))..........(methods.(if.(is-a
11e00	3f 20 67 65 6e 20 3c 67 65 6e 65 72 69 63 3e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	?.gen.<generic>)................
11e20	20 20 20 20 20 20 20 28 67 65 6e 65 72 69 63 2d 66 75 6e 63 74 69 6f 6e 2d 6d 65 74 68 6f 64 73	.......(generic-function-methods
11e40	20 67 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 29 29	.gen).......................'())
11e60	29 29 0a 20 20 20 20 28 66 69 6c 74 65 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6e 6f 74 20	)).....(filter.(lambda.(x).(not.
11e80	28 6e 75 6c 6c 3f 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 6c 61	(null?.x))).............(map.(la
11ea0	6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b	mbda.(m)....................(mak
11ec0	65 2d 78 72 65 66 20 28 6d 65 74 68 6f 64 2d 70 72 6f 63 65 64 75 72 65 20 6d 29 20 73 79 6d 20	e-xref.(method-procedure.m).sym.
11ee0	28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20	(symbol-module.sym)))...........
11f00	20 20 20 20 20 20 20 6d 65 74 68 6f 64 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b	.......methods))))..(define.(mak
11f20	65 2d 78 72 65 66 20 70 72 6f 63 20 6e 61 6d 65 20 6d 6f 64 75 6c 65 29 0a 20 20 28 61 6e 64 20	e-xref.proc.name.module)...(and.
11f40	70 72 6f 63 0a 20 20 20 20 20 20 20 60 28 28 22 6c 6f 63 61 74 69 6f 6e 22 20 2e 20 2c 28 6f 72	proc........`(("location"...,(or
11f60	20 28 70 72 6f 67 72 61 6d 2d 6c 6f 63 61 74 69 6f 6e 20 70 72 6f 63 29 20 28 73 79 6d 62 6f 6c	.(program-location.proc).(symbol
11f80	2d 6c 6f 63 61 74 69 6f 6e 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 22 73 69 67	-location.name)))..........("sig
11fa0	6e 61 74 75 72 65 22 20 2e 20 2c 28 6f 62 6a 65 63 74 2d 73 69 67 6e 61 74 75 72 65 20 6e 61 6d	nature"...,(object-signature.nam
11fc0	65 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 22 6d 6f 64 75 6c 65 22 20 2e 20 2c 28	e.proc))..........("module"...,(
11fe0	6f 72 20 6d 6f 64 75 6c 65 20 27 28 29 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f	or.module.'())))))..(define.(pro
12000	67 72 61 6d 2d 6c 6f 63 61 74 69 6f 6e 20 70 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 28	gram-location.p)...(cond.((not.(
12020	70 72 6f 67 72 61 6d 3f 20 70 29 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 28 28 70 72 6f 67 72	program?.p)).#f).........((progr
12040	61 6d 2d 73 6f 75 72 63 65 20 70 20 30 29 20 3d 3e 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62	am-source.p.0).=>..........(lamb
12060	64 61 20 28 73 29 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 28 70 72 6f 67 72 61 6d 2d 70	da.(s).(make-location.(program-p
12080	61 74 68 20 70 29 20 28 73 6f 75 72 63 65 3a 6c 69 6e 65 20 73 29 29 29 29 0a 20 20 20 20 20 20	ath.p).(source:line.s)))).......
120a0	20 20 28 28 70 72 6f 67 72 61 6d 2d 70 61 74 68 20 70 29 20 3d 3e 20 28 6c 61 6d 62 64 61 20 28	..((program-path.p).=>.(lambda.(
120c0	73 29 20 28 6d 61 6b 65 2d 6c 6f 63 61 74 69 6f 6e 20 73 20 23 66 29 29 29 0a 20 20 20 20 20 20	s).(make-location.s.#f))).......
120e0	20 20 28 65 6c 73 65 20 23 66 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 67 72 61 6d 2d	..(else.#f)))..(define.(program-
12100	70 61 74 68 20 70 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 6f 64 20 28 70 72 6f 67 72 61 6d 2d 6d	path.p)...(let*.((mod.(program-m
12120	6f 64 75 6c 65 20 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 20 28 61 6e 64 20 28 6d	odule.p))..........(name.(and.(m
12140	6f 64 75 6c 65 3f 20 6d 6f 64 29 20 28 6d 6f 64 75 6c 65 2d 6e 61 6d 65 20 6d 6f 64 29 29 29 29	odule?.mod).(module-name.mod))))
12160	0a 20 20 20 20 28 61 6e 64 20 6e 61 6d 65 20 28 6d 6f 64 75 6c 65 2d 70 61 74 68 20 6e 61 6d 65	.....(and.name.(module-path.name
12180	29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 70 72 6f 63 65 64 75 72 65 2d 78 72 65 66 20 70 72	))))..(define.(procedure-xref.pr
121a0	6f 63 20 2e 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 2d 6e 61	oc...mod-name)...(let*.((proc-na
121c0	6d 65 20 28 6f 72 20 28 70 72 6f 63 65 64 75 72 65 2d 6e 61 6d 65 20 70 72 6f 63 29 20 27 3c 61	me.(or.(procedure-name.proc).'<a
121e0	6e 6f 6e 79 6d 6f 75 73 3e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 6f 64 2d 6e 61 6d 65 20 28	nonymous>))..........(mod-name.(
12200	69 66 20 28 6e 75 6c 6c 3f 20 6d 6f 64 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20	if.(null?.mod-name).............
12220	20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6d 6f 64 75 6c 65 20 70 72 6f 63 2d 6e	...........(symbol-module.proc-n
12240	61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72	ame)........................(car
12260	20 6d 6f 64 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 78 72 65 66 20 70 72 6f	.mod-name)))).....(make-xref.pro
12280	63 20 70 72 6f 63 2d 6e 61 6d 65 20 6d 6f 64 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 69 6e 65	c.proc-name.mod-name)))..(define
122a0	20 28 63 61 6c 6c 65 72 73 20 73 79 6d 29 0a 20 20 28 6c 65 74 20 28 28 6d 6f 64 20 28 73 79 6d	.(callers.sym)...(let.((mod.(sym
122c0	62 6f 6c 2d 6d 6f 64 75 6c 65 20 73 79 6d 20 23 74 29 29 29 0a 20 20 20 20 28 61 6e 64 20 6d 6f	bol-module.sym.#t))).....(and.mo
122e0	64 0a 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 61 70 70 65 6e 64 20 28 6d 61 70 20 28 6c	d..........(apply.append.(map.(l
12300	61 6d 62 64 61 20 28 70 72 6f 63 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	ambda.(procs)...................
12320	20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 63 29 0a	............(map.(lambda.(proc).
12340	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	................................
12360	20 20 20 20 20 28 70 72 6f 63 65 64 75 72 65 2d 78 72 65 66 20 70 72 6f 63 20 28 63 61 72 20 70	.....(procedure-xref.proc.(car.p
12380	72 6f 63 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20	rocs))).........................
123a0	20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 70 72 6f 63 73 29 29 29 0a 20 20 20 20 20 20 20	...........(cdr.procs)))........
123c0	20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 64 75 72 65 2d	.....................(procedure-
123e0	63 61 6c 6c 65 72 73 20 28 63 6f 6e 73 20 6d 6f 64 20 73 79 6d 29 29 29 29 29 29 29 0a 0a 28 64	callers.(cons.mod.sym)))))))..(d
12400	65 66 69 6e 65 20 28 63 61 6c 6c 65 65 73 20 73 79 6d 29 0a 20 20 28 6c 65 74 20 28 28 6f 62 6a	efine.(callees.sym)...(let.((obj
12420	20 28 73 79 6d 62 6f 6c 2d 3e 6f 62 6a 65 63 74 20 73 79 6d 29 29 29 0a 20 20 20 20 28 61 6e 64	.(symbol->object.sym))).....(and
12440	20 6f 62 6a 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 70 72 6f 63 65 64 75 72 65 2d 78 72 65	.obj..........(map.procedure-xre
12460	66 20 28 70 72 6f 63 65 64 75 72 65 2d 63 61 6c 6c 65 65 73 20 6f 62 6a 29 29 29 29 29 0a 0a 28	f.(procedure-callees.obj)))))..(
12480	64 65 66 69 6e 65 20 28 66 69 6e 64 2d 66 69 6c 65 20 70 61 74 68 29 0a 20 20 28 6c 65 74 20 6c	define.(find-file.path)...(let.l
124a0	6f 6f 70 20 28 28 64 69 72 73 20 25 6c 6f 61 64 2d 70 61 74 68 29 29 0a 20 20 20 20 28 69 66 20	oop.((dirs.%load-path)).....(if.
124c0	28 6e 75 6c 6c 3f 20 64 69 72 73 29 20 23 66 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63	(null?.dirs).#f.........(let.((c
124e0	61 6e 64 69 64 61 74 65 20 28 73 74 72 69 6e 67 2d 61 70 70 65 6e 64 20 28 63 61 72 20 64 69 72	andidate.(string-append.(car.dir
12500	73 29 20 22 2f 22 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69	s)."/".path)))...........(if.(fi
12520	6c 65 2d 65 78 69 73 74 73 3f 20 63 61 6e 64 69 64 61 74 65 29 20 63 61 6e 64 69 64 61 74 65 20	le-exists?.candidate).candidate.
12540	28 6c 6f 6f 70 20 28 63 64 72 20 64 69 72 73 29 29 29 29 29 29 29 0a 00 00 00 00 00 00 00 00 00	(loop.(cdr.dirs)))))))..........
12560	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12580	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
125a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
125c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
125e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12600	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12620	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12640	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12660	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12680	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
126a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
126c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
126e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12700	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12720	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12740	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12760	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12780	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
127a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
127c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
127e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12800	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12820	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12840	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12860	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12880	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
128a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
128c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
128e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12900	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12920	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
129a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
129c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
129e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12a00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12a20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12a40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12a60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12a80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12b00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12b20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12c00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12c20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12c60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12c80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12d00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12d20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12e00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12e20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12e40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12e60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12e80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ea0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ec0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12ee0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12f00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12f20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12f40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12f60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12f80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12fa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12fc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
12fe0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13000	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13020	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13040	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13060	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13080	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
130a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
130c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
130e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13100	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13120	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13140	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13160	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13180	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
131a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
131c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
131e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13200	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13220	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13240	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13260	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13280	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
132a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
132c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
132e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13300	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13320	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13340	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13360	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13380	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
133a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
133c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
133e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13400	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13420	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13440	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13460	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13480	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
134a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
134c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
134e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13500	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13520	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13540	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13560	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13580	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
135a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
135c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
135e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13600	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13620	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13640	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13660	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13680	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
136a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
136c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
136e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13700	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13720	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13740	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13760	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13780	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
137a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
137c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
137e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13800	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13820	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13840	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13860	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13880	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
138a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
138c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
138e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13900	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13920	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13940	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13960	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13980	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
139a0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
139c0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
139e0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13a00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13a20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13a40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13a60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13a80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13aa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ac0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ae0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13b00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13b20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13b40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13b60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13b80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ba0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13bc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13be0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13c00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13c20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13c40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13c60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13c80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ca0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13cc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ce0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13d00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13d20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13d40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13d60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13d80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13da0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13dc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13de0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13e00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13e20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13e40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13e60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13e80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ea0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ec0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13ee0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13f00	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13f20	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13f40	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13f60	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13f80	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13fa0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13fc0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................
13fe0	00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00	................................