|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ x ┃
Length: 3512 (0xdb8)
Names: »xscheme.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/xscheme.elc«
0x000…020 0a 28 72 65 71 75 69 72 65 20 28 71 75 6f 74 65 20 73 63 68 65 6d 65 29 29 0a 0a 28 72 65 71 75 ┆ (require (quote scheme)) (requ┆
0x020…040 69 72 65 20 28 71 75 6f 74 65 20 73 68 65 6c 6c 29 29 0a 0a 28 64 65 66 76 61 72 20 69 6e 66 65 ┆ire (quote shell)) (defvar infe┆
0x040…060 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 69 66 20 69 ┆rior-scheme-mode-map nil) (if i┆
0x060…080 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 74 ┆nferior-scheme-mode-map nil (set┆
0x080…0a0 71 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 28 63 6f 70 79 ┆q inferior-scheme-mode-map (copy┆
0x0a0…0c0 2d 61 6c 69 73 74 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d ┆-alist shell-mode-map)) (define-┆
0x0c0…0e0 6b 65 79 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 03 01 ┆key inferior-scheme-mode-map " ┆
0x0e0…100 22 20 28 71 75 6f 74 65 20 71 75 69 74 2d 73 68 65 6c 6c 2d 73 75 62 6a 6f 62 29 29 20 28 64 65 ┆" (quote quit-shell-subjob)) (de┆
0x100…120 66 69 6e 65 2d 6b 65 79 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 ┆fine-key inferior-scheme-mode-ma┆
0x120…140 70 20 22 03 07 22 20 28 71 75 6f 74 65 20 69 6e 74 65 72 72 75 70 74 2d 73 68 65 6c 6c 2d 73 75 ┆p " " (quote interrupt-shell-su┆
0x140…160 62 6a 6f 62 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 ┆bjob)) (define-key inferior-sche┆
0x160…180 6d 65 2d 6d 6f 64 65 2d 6d 61 70 20 22 1b 07 22 20 28 71 75 6f 74 65 20 69 6e 74 65 72 72 75 70 ┆me-mode-map " " (quote interrup┆
0x180…1a0 74 2d 73 68 65 6c 6c 2d 73 75 62 6a 6f 62 29 29 20 28 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 63 6f ┆t-shell-subjob)) (scheme-mode-co┆
0x1a0…1c0 6d 6d 61 6e 64 73 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 ┆mmands inferior-scheme-mode-map)┆
0x1c0…1e0 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 20 6e ┆) (defun inferior-scheme-mode n┆
0x1e0…200 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 6e 67 ┆il "\ Major mode for interacting┆
0x200…220 20 77 69 74 68 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 ┆ with an inferior Scheme process┆
0x220…240 2e 0a 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 61 76 ┆. The following commands are av┆
0x240…260 61 69 6c 61 62 6c 65 3a 0a 5c 5c 7b 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆ailable: \\{inferior-scheme-mode┆
0x260…280 2d 6d 61 70 7d 0a 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 ┆-map} Entry to this mode calls ┆
0x280…2a0 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 77 69 ┆the value of scheme-mode-hook wi┆
0x2a0…2c0 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2c 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 ┆th no arguments, if that value i┆
0x2c0…2e0 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 20 4c 69 6b 65 77 69 73 65 20 77 69 74 68 20 74 68 65 20 76 61 ┆s non-nil. Likewise with the va┆
0x2e0…300 6c 75 65 20 6f 66 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 2e 0a 73 63 68 65 6d 65 2d 6d ┆lue of shell-mode-hook. scheme-m┆
0x300…320 6f 64 65 2d 68 6f 6f 6b 20 69 73 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20 73 68 65 6c 6c 2d 6d ┆ode-hook is called after shell-m┆
0x320…340 6f 64 65 2d 68 6f 6f 6b 2e 0a 0a 59 6f 75 20 63 61 6e 20 73 65 6e 64 20 74 65 78 74 20 74 6f 20 ┆ode-hook. You can send text to ┆
0x340…360 74 68 65 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 66 72 6f 6d 20 6f 74 68 65 72 20 62 ┆the inferior Scheme from other b┆
0x360…380 75 66 66 65 72 73 0a 75 73 69 6e 67 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 20 73 65 6e 64 2d 72 ┆uffers using the commands send-r┆
0x380…3a0 65 67 69 6f 6e 2c 20 73 65 6e 64 2d 73 74 72 69 6e 67 20 61 6e 64 20 5c 5c 5b 73 63 68 65 6d 65 ┆egion, send-string and \\[scheme┆
0x3a0…3c0 2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 5d 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 44 65 ┆-send-definition]. Commands: De┆
0x3c0…3e0 6c 65 74 65 20 63 6f 6e 76 65 72 74 73 20 74 61 62 73 20 74 6f 20 73 70 61 63 65 73 20 61 73 20 ┆lete converts tabs to spaces as ┆
0x3e0…400 69 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 54 61 62 20 69 6e 64 65 6e 74 73 20 66 6f 72 20 53 ┆it moves back. Tab indents for S┆
0x400…420 63 68 65 6d 65 3b 20 77 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 73 68 69 66 74 73 20 72 65 73 ┆cheme; with argument, shifts res┆
0x420…440 74 0a 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 20 72 69 67 69 64 6c 79 20 77 69 74 68 20 74 68 ┆t of expression rigidly with th┆
0x440…460 65 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 4d 65 74 61 2d 43 6f 6e 74 72 6f 6c 2d 51 20 64 ┆e current line. Meta-Control-Q d┆
0x460…480 6f 65 73 20 54 61 62 20 6f 6e 20 65 61 63 68 20 6c 69 6e 65 20 73 74 61 72 74 69 6e 67 20 77 69 ┆oes Tab on each line starting wi┆
0x480…4a0 74 68 69 6e 20 66 6f 6c 6c 6f 77 69 6e 67 20 65 78 70 72 65 73 73 69 6f 6e 2e 0a 50 61 72 61 67 ┆thin following expression. Parag┆
0x4a0…4c0 72 61 70 68 73 20 61 72 65 20 73 65 70 61 72 61 74 65 64 20 6f 6e 6c 79 20 62 79 20 62 6c 61 6e ┆raphs are separated only by blan┆
0x4c0…4e0 6b 20 6c 69 6e 65 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e 73 20 73 74 61 72 74 20 63 6f 6d 6d 65 ┆k lines. Semicolons start comme┆
0x4e0…500 6e 74 73 2e 0a 0a 52 65 74 75 72 6e 20 61 74 20 65 6e 64 20 6f 66 20 62 75 66 66 65 72 20 73 65 ┆nts. Return at end of buffer se┆
0x500…520 6e 64 73 20 6c 69 6e 65 20 61 73 20 69 6e 70 75 74 2e 0a 52 65 74 75 72 6e 20 6e 6f 74 20 61 74 ┆nds line as input. Return not at┆
0x520…540 20 65 6e 64 20 63 6f 70 69 65 73 20 72 65 73 74 20 6f 66 20 6c 69 6e 65 20 74 6f 20 65 6e 64 20 ┆ end copies rest of line to end ┆
0x540…560 61 6e 64 20 73 65 6e 64 73 20 69 74 2e 0a 43 2d 64 20 61 74 20 65 6e 64 20 6f 66 20 62 75 66 66 ┆and sends it. C-d at end of buff┆
0x560…580 65 72 20 73 65 6e 64 73 20 65 6e 64 2d 6f 66 2d 66 69 6c 65 20 61 73 20 69 6e 70 75 74 2e 0a 43 ┆er sends end-of-file as input. C┆
0x580…5a0 2d 64 20 6e 6f 74 20 61 74 20 65 6e 64 20 6f 72 20 77 69 74 68 20 61 72 67 20 64 65 6c 65 74 65 ┆-d not at end or with arg delete┆
0x5a0…5c0 73 20 6f 72 20 6b 69 6c 6c 73 20 63 68 61 72 61 63 74 65 72 73 2e 0a 43 2d 75 20 61 6e 64 20 43 ┆s or kills characters. C-u and C┆
0x5c0…5e0 2d 77 20 61 72 65 20 6b 69 6c 6c 20 63 6f 6d 6d 61 6e 64 73 2c 20 69 6d 69 74 61 74 69 6e 67 20 ┆-w are kill commands, imitating ┆
0x5e0…600 6e 6f 72 6d 61 6c 20 55 6e 69 78 20 69 6e 70 75 74 20 65 64 69 74 69 6e 67 2e 0a 43 2d 63 20 69 ┆normal Unix input editing. C-c i┆
0x600…620 6e 74 65 72 72 75 70 74 73 20 74 68 65 20 73 68 65 6c 6c 20 6f 72 20 69 74 73 20 63 75 72 72 65 ┆nterrupts the shell or its curre┆
0x620…640 6e 74 20 73 75 62 6a 6f 62 20 69 66 20 61 6e 79 2e 0a 43 2d 7a 20 73 74 6f 70 73 2c 20 6c 69 6b ┆nt subjob if any. C-z stops, lik┆
0x640…660 65 77 69 73 65 2e 20 20 43 2d 5c 5c 20 73 65 6e 64 73 20 71 75 69 74 20 73 69 67 6e 61 6c 2c 20 ┆ewise. C-\\ sends quit signal, ┆
0x660…680 6c 69 6b 65 77 69 73 65 2e 0a 0a 43 2d 78 20 43 2d 6b 20 64 65 6c 65 74 65 73 20 6c 61 73 74 20 ┆likewise. C-x C-k deletes last ┆
0x680…6a0 62 61 74 63 68 20 6f 66 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 73 68 65 6c 6c 2e 0a 43 2d 78 20 ┆batch of output from shell. C-x ┆
0x6a0…6c0 43 2d 76 20 70 75 74 73 20 74 6f 70 20 6f 66 20 6c 61 73 74 20 62 61 74 63 68 20 6f 66 20 6f 75 ┆C-v puts top of last batch of ou┆
0x6c0…6e0 74 70 75 74 20 61 74 20 74 6f 70 20 6f 66 20 77 69 6e 64 6f 77 2e 22 20 28 69 6e 74 65 72 61 63 ┆tput at top of window." (interac┆
0x6e0…700 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 c7 20 88 c8 89 10 88 c9 89 11 88 ca ┆tive) (byte-code " ┆
0x700…720 89 12 88 cb 20 88 cc 0b 21 88 cd c4 21 88 ce 20 89 14 88 cd c5 21 88 ce 20 89 15 88 cf d0 d1 5c ┆ ! ! ! \┆
0x720…740 22 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6d 6f 64 65 2d 6c ┆" " [major-mode mode-name mode-l┆
0x740…760 69 6e 65 2d 70 72 6f 63 65 73 73 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 ┆ine-process inferior-scheme-mode┆
0x760…780 2d 6d 61 70 20 6c 61 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 ┆-map last-input-start last-input┆
0x780…7a0 2d 65 6e 64 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 ┆-end nil kill-all-local-variable┆
0x7a0…7c0 73 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 20 22 49 6e 66 65 72 69 6f 72 ┆s inferior-scheme-mode "Inferior┆
0x7c0…7e0 20 53 63 68 65 6d 65 22 20 28 22 3a 20 25 73 22 29 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 76 61 ┆ Scheme" (": %s") scheme-mode-va┆
0x7e0…800 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 6b 65 2d 6c 6f 63 61 6c ┆riables use-local-map make-local┆
0x800…820 2d 76 61 72 69 61 62 6c 65 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 72 75 6e 2d 68 6f 6f 6b 73 20 ┆-variable make-marker run-hooks ┆
0x820…840 73 68 65 6c 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 68 6f 6f 6b ┆shell-mode-hook scheme-mode-hook┆
0x840…860 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 61 72 67 73 2d 74 6f 2d 6c 69 73 74 20 28 73 74 72 ┆] 10)) (defun args-to-list (str┆
0x860…880 69 6e 67 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 09 5c 22 18 08 3f 83 0f 00 09 43 82 41 ┆ing) (byte-code " \" ? C A┆
0x880…8a0 00 08 c7 55 3f 83 27 00 09 c7 08 4f c8 09 c9 08 5c 5c 09 47 4f 21 42 82 41 00 c2 85 41 00 c5 ca ┆ U? ' O \\ GO!B A A ┆
0x8a0…8c0 09 5c 22 1b 0b 3f 83 39 00 c4 82 40 00 c8 09 0b 09 47 4f 21 29 29 87 22 20 5b 77 68 65 72 65 20 ┆ \" ? 9 @ GO!)) " [where ┆
0x8c0…8e0 73 74 72 69 6e 67 20 74 20 70 6f 73 20 6e 69 6c 20 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5b ┆string t pos nil string-match "[┆
0x8e0…900 20 09 5d 22 20 30 20 61 72 67 73 2d 74 6f 2d 6c 69 73 74 20 31 20 22 5b 5e 20 09 5d 22 5d 20 37 ┆ ]" 0 args-to-list 1 "[^ ]"] 7┆
0x900…920 29 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 20 ┆)) (defvar scheme-program-name ┆
0x920…940 22 73 63 68 65 6d 65 22 20 22 5c 0a 50 72 6f 67 72 61 6d 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 ┆"scheme" "\ Program invoked by t┆
0x940…960 68 65 20 73 63 68 65 6d 65 20 61 6e 64 20 72 75 6e 2d 73 63 68 65 6d 65 20 63 6f 6d 6d 61 6e 64 ┆he scheme and run-scheme command┆
0x960…980 73 22 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 20 28 61 72 67 29 20 22 5c 0a 52 75 6e 20 ┆s") (defun scheme (arg) "\ Run ┆
0x980…9a0 61 6e 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 72 65 61 64 69 ┆an inferior Scheme process readi┆
0x9a0…9c0 6e 67 20 61 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 66 72 6f 6d 20 74 68 65 20 74 65 72 6d 69 ┆ng a command line from the termi┆
0x9c0…9e0 6e 61 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 73 45 78 74 72 61 20 61 72 67 75 6d ┆nal." (interactive "sExtra argum┆
0x9e0…a00 65 6e 74 73 20 74 6f 20 73 63 68 65 6d 65 3a 20 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 ┆ents to scheme: ") (byte-code " ┆
0xa00…a20 88 c3 c4 c5 c6 08 c1 c7 c8 0a 21 c9 5c 22 25 21 88 ca 20 87 22 20 5b 73 63 68 65 6d 65 2d 70 72 ┆ ! \"%! " [scheme-pr┆
0xa20…a40 6f 67 72 61 6d 2d 6e 61 6d 65 20 6e 69 6c 20 61 72 67 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 ┆ogram-name nil arg switch-to-buf┆
0xa40…a60 66 65 72 20 61 70 70 6c 79 20 6d 61 6b 65 2d 73 68 65 6c 6c 20 22 73 63 68 65 6d 65 22 20 61 70 ┆fer apply make-shell "scheme" ap┆
0xa60…a80 70 65 6e 64 20 61 72 67 73 2d 74 6f 2d 6c 69 73 74 20 28 22 2d 65 6d 61 63 73 22 29 20 69 6e 66 ┆pend args-to-list ("-emacs") inf┆
0xa80…aa0 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 5d 20 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 ┆erior-scheme-mode] 10)) (defun ┆
0xaa0…ac0 72 75 6e 2d 73 63 68 65 6d 65 20 28 61 72 67 29 20 22 5c 0a 52 75 6e 20 61 6e 20 69 6e 66 65 72 ┆run-scheme (arg) "\ Run an infer┆
0xac0…ae0 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 0a 49 6e 70 75 74 20 61 6e 64 20 6f 75 ┆ior Scheme process. Input and ou┆
0xae0…b00 74 70 75 74 20 76 69 61 20 62 75 66 66 65 72 20 2a 73 63 68 65 6d 65 2a 2e 0a 57 69 74 68 20 61 ┆tput via buffer *scheme*. With a┆
0xb00…b20 72 67 75 6d 65 6e 74 20 69 74 20 61 73 6b 73 20 66 6f 72 20 61 20 63 6f 6d 6d 61 6e 64 20 6c 69 ┆rgument it asks for a command li┆
0xb20…b40 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 20 28 62 79 74 65 2d 63 6f 64 ┆ne." (interactive "P") (byte-cod┆
0xb40…b60 65 20 22 c2 88 08 83 0c 00 c3 c4 21 82 17 00 c5 c6 c7 09 c2 c8 24 21 88 c9 20 87 22 20 5b 61 72 ┆e " ! $! " [ar┆
0xb60…b80 67 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 20 6e 69 6c 20 63 61 6c 6c 2d 69 ┆g scheme-program-name nil call-i┆
0xb80…ba0 6e 74 65 72 61 63 74 69 76 65 6c 79 20 73 63 68 65 6d 65 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 ┆nteractively scheme switch-to-bu┆
0xba0…bc0 66 66 65 72 20 6d 61 6b 65 2d 73 68 65 6c 6c 20 22 73 63 68 65 6d 65 22 20 22 2d 65 6d 61 63 73 ┆ffer make-shell "scheme" "-emacs┆
0xbc0…be0 22 20 69 6e 66 65 72 69 6f 72 2d 73 63 68 65 6d 65 2d 6d 6f 64 65 5d 20 37 29 29 0a 0a 28 64 65 ┆" inferior-scheme-mode] 7)) (de┆
0xbe0…c00 66 75 6e 20 73 63 68 65 6d 65 2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 6e 69 6c 20 22 ┆fun scheme-send-definition nil "┆
0xc00…c20 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f ┆\ Send the current definition to┆
0xc20…c40 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 6d 61 64 65 20 62 79 20 4d 2d 78 20 ┆ the Scheme process made by M-x ┆
0xc40…c60 72 75 6e 2d 73 63 68 65 6d 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 ┆run-scheme." (interactive) (byte┆
0xc60…c80 2d 63 6f 64 65 20 22 c1 88 8a c2 20 88 60 18 c3 20 88 c4 c5 60 08 23 88 c6 c5 c7 5c 22 29 29 87 ┆-code " ` ` # \")) ┆
0xc80…ca0 22 20 5b 65 6e 64 20 6e 69 6c 20 65 6e 64 2d 6f 66 2d 64 65 66 75 6e 20 62 65 67 69 6e 6e 69 6e ┆" [end nil end-of-defun beginnin┆
0xca0…cc0 67 2d 6f 66 2d 64 65 66 75 6e 20 73 65 6e 64 2d 72 65 67 69 6f 6e 20 22 73 63 68 65 6d 65 22 20 ┆g-of-defun send-region "scheme" ┆
0xcc0…ce0 73 65 6e 64 2d 73 74 72 69 6e 67 20 22 0a 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 ┆send-string " "] 6)) (defun sch┆
0xce0…d00 65 6d 65 2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 2d 61 6e 64 2d 67 6f 20 6e 69 6c 20 22 ┆eme-send-definition-and-go nil "┆
0xd00…d20 5c 0a 53 65 6e 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 6f ┆\ Send the current definition to┆
0xd20…d40 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 53 63 68 65 6d 65 2c 20 61 6e 64 20 73 77 69 74 63 68 ┆ the inferior Scheme, and switch┆
0xd40…d60 20 74 6f 20 2a 73 63 68 65 6d 65 2a 20 62 75 66 66 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 69 ┆ to *scheme* buffer." (interacti┆
0xd60…d80 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 c3 21 87 22 20 5b 6e 69 6c 20 ┆ve) (byte-code " ! " [nil ┆
0xd80…da0 73 63 68 65 6d 65 2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e 20 73 77 69 74 63 68 2d 74 6f ┆scheme-send-definition switch-to┆
0xda0…db8 2d 62 75 66 66 65 72 20 22 2a 73 63 68 65 6d 65 2a 22 5d 20 33 29 29 0a ┆-buffer "*scheme*"] 3)) ┆