|
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 - metrics - downloadIndex: x
Length: 25651 (0x6433)
Names: »xscheme.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/xscheme.elc«
0x0000…0020 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 64 65 66 76 ┆ (require (quote scheme)) (defv┆
0x0020…0040 61 72 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 6e 61 6d 65 20 22 73 63 68 65 6d 65 22 20 ┆ar scheme-program-name "scheme" ┆
0x0040…0060 22 5c 0a 2a 50 72 6f 67 72 61 6d 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 60 72 75 6e 2d ┆"\ *Program invoked by the `run-┆
0x0060…0080 73 63 68 65 6d 65 27 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 63 68 65 ┆scheme' command.") (defvar sche┆
0x0080…00a0 6d 65 2d 62 61 6e 64 2d 6e 61 6d 65 20 6e 69 6c 20 22 5c 0a 2a 42 61 6e 64 20 6c 6f 61 64 65 64 ┆me-band-name nil "\ *Band loaded┆
0x00a0…00c0 20 62 79 20 74 68 65 20 60 72 75 6e 2d 73 63 68 65 6d 65 27 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a ┆ by the `run-scheme' command.") ┆
0x00c0…00e0 0a 28 64 65 66 76 61 72 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 61 72 67 75 6d 65 6e 74 ┆ (defvar scheme-program-argument┆
0x00e0…0100 73 20 6e 69 6c 20 22 5c 0a 2a 41 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 74 6f 20 74 68 ┆s nil "\ *Arguments passed to th┆
0x0100…0120 65 20 53 63 68 65 6d 65 20 70 72 6f 67 72 61 6d 20 62 79 20 74 68 65 20 60 72 75 6e 2d 73 63 68 ┆e Scheme program by the `run-sch┆
0x0120…0140 65 6d 65 27 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 ┆eme' command.") (defvar xscheme┆
0x0140…0160 2d 61 6c 6c 6f 77 2d 70 69 70 65 6c 69 6e 65 64 2d 65 76 61 6c 75 61 74 69 6f 6e 20 74 20 22 5c ┆-allow-pipelined-evaluation t "\┆
0x0160…0180 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 79 20 62 ┆ If non-nil, an expression may b┆
0x0180…01a0 65 20 74 72 61 6e 73 6d 69 74 74 65 64 20 77 68 69 6c 65 20 61 6e 6f 74 68 65 72 20 69 73 20 65 ┆e transmitted while another is e┆
0x01a0…01c0 76 61 6c 75 61 74 69 6e 67 2e 0a 4f 74 68 65 72 77 69 73 65 2c 20 61 74 74 65 6d 70 74 69 6e 67 ┆valuating. Otherwise, attempting┆
0x01c0…01e0 20 74 6f 20 65 76 61 6c 75 61 74 65 20 61 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f 72 ┆ to evaluate an expression befor┆
0x01e0…0200 65 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 65 78 70 72 65 73 73 69 6f 6e 0a 68 61 73 20 66 69 ┆e the previous expression has fi┆
0x0200…0220 6e 69 73 68 65 64 20 65 76 61 6c 75 61 74 69 6e 67 20 77 69 6c 6c 20 73 69 67 6e 61 6c 20 61 6e ┆nished evaluating will signal an┆
0x0220…0240 20 65 72 72 6f 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 ┆ error.") (defvar xscheme-start┆
0x0240…0260 75 70 2d 6d 65 73 73 61 67 65 20 22 54 68 69 73 20 69 73 20 74 68 65 20 53 63 68 65 6d 65 20 70 ┆up-message "This is the Scheme p┆
0x0260…0280 72 6f 63 65 73 73 20 62 75 66 66 65 72 2e 0a 54 79 70 65 20 5c 5c 5b 61 64 76 65 72 74 69 73 65 ┆rocess buffer. Type \\[advertise┆
0x0280…02a0 64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 ┆d-xscheme-send-previous-expressi┆
0x02a0…02c0 6f 6e 5d 20 74 6f 20 65 76 61 6c 75 61 74 65 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 ┆on] to evaluate the expression b┆
0x02c0…02e0 65 66 6f 72 65 20 70 6f 69 6e 74 2e 0a 54 79 70 65 20 5c 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e ┆efore point. Type \\[xscheme-sen┆
0x02e0…0300 64 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 69 6e 74 65 72 72 75 70 74 5d 20 74 6f 20 61 62 6f 72 74 20 ┆d-control-g-interrupt] to abort ┆
0x0300…0320 65 76 61 6c 75 61 74 69 6f 6e 2e 0a 54 79 70 65 20 5c 5c 5b 64 65 73 63 72 69 62 65 2d 6d 6f 64 ┆evaluation. Type \\[describe-mod┆
0x0320…0340 65 5d 20 66 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0a 0a 22 20 22 53 74 72 ┆e] for more information. " "Str┆
0x0340…0360 69 6e 67 20 74 6f 20 69 6e 73 65 72 74 20 69 6e 74 6f 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 ┆ing to insert into Scheme proces┆
0x0360…0380 73 20 62 75 66 66 65 72 20 66 69 72 73 74 20 74 69 6d 65 20 69 74 20 69 73 20 73 74 61 72 74 65 ┆s buffer first time it is starte┆
0x0380…03a0 64 2e 0a 49 73 20 70 72 6f 63 65 73 73 65 64 20 77 69 74 68 20 60 73 75 62 73 74 69 74 75 74 65 ┆d. Is processed with `substitute┆
0x03a0…03c0 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 27 20 66 69 72 73 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 ┆-command-keys' first.") (defvar┆
0x03c0…03e0 20 78 73 63 68 65 6d 65 2d 73 69 67 6e 61 6c 2d 64 65 61 74 68 2d 6d 65 73 73 61 67 65 20 6e 69 ┆ xscheme-signal-death-message ni┆
0x03e0…0400 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 63 61 75 73 65 73 20 61 20 6d 65 73 73 61 67 ┆l "\ If non-nil, causes a messag┆
0x0400…0420 65 20 74 6f 20 62 65 20 67 65 6e 65 72 61 74 65 64 20 77 68 65 6e 20 74 68 65 20 53 63 68 65 6d ┆e to be generated when the Schem┆
0x0420…0440 65 20 70 72 6f 63 65 73 73 20 64 69 65 73 2e 22 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d ┆e process dies.") (defun xschem┆
0x0440…0460 65 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 73 20 28 6b 65 79 6d 61 70 29 20 28 ┆e-evaluation-commands (keymap) (┆
0x0460…0480 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 23 88 c1 08 c6 c7 23 88 c1 08 c8 ┆byte-code " # # # ┆
0x0480…04a0 c3 23 88 c1 08 c9 ca 23 88 c1 08 cb cc 23 87 22 20 5b 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d ┆ # # # " [keymap define-┆
0x04a0…04c0 6b 65 79 20 22 1b 18 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 64 65 66 69 6e 69 74 69 6f 6e ┆key " " xscheme-send-definition┆
0x04c0…04e0 20 22 18 05 22 20 61 64 76 65 72 74 69 73 65 64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 ┆ " " advertised-xscheme-send-pr┆
0x04e0…0500 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 22 1b 6f 22 20 78 73 63 68 65 6d 65 2d 73 ┆evious-expression " o" xscheme-s┆
0x0500…0520 65 6e 64 2d 62 75 66 66 65 72 20 22 1b 7a 22 20 22 1b 0d 22 20 78 73 63 68 65 6d 65 2d 73 65 6e ┆end-buffer " z" " " xscheme-sen┆
0x0520…0540 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 22 1b 1a 22 20 78 73 63 68 65 ┆d-previous-expression " " xsche┆
0x0540…0560 6d 65 2d 73 65 6e 64 2d 72 65 67 69 6f 6e 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 ┆me-send-region] 9)) (defun xsch┆
0x0560…0580 65 6d 65 2d 69 6e 74 65 72 72 75 70 74 2d 63 6f 6d 6d 61 6e 64 73 20 28 6b 65 79 6d 61 70 29 20 ┆eme-interrupt-commands (keymap) ┆
0x0580…05a0 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 23 88 c1 08 c6 c7 23 88 c1 08 ┆(byte-code " # # # ┆
0x05a0…05c0 c8 c9 23 88 c1 08 ca cb 23 87 22 20 5b 6b 65 79 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 ┆ # # " [keymap define-key "┆
0x05c0…05e0 03 13 22 20 78 73 63 68 65 6d 65 2d 73 65 6c 65 63 74 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 ┆ " xscheme-select-process-buffe┆
0x05e0…0600 72 20 22 03 02 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 62 72 65 61 6b 70 6f 69 6e 74 2d 69 ┆r " " xscheme-send-breakpoint-i┆
0x0600…0620 6e 74 65 72 72 75 70 74 20 22 03 03 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 ┆nterrupt " " xscheme-send-contr┆
0x0620…0640 6f 6c 2d 67 2d 69 6e 74 65 72 72 75 70 74 20 22 03 15 22 20 78 73 63 68 65 6d 65 2d 73 65 6e 64 ┆ol-g-interrupt " " xscheme-send┆
0x0640…0660 2d 63 6f 6e 74 72 6f 6c 2d 75 2d 69 6e 74 65 72 72 75 70 74 20 22 03 18 22 20 78 73 63 68 65 6d ┆-control-u-interrupt " " xschem┆
0x0660…0680 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 78 2d 69 6e 74 65 72 72 75 70 74 5d 20 38 29 29 0a ┆e-send-control-x-interrupt] 8)) ┆
0x0680…06a0 0a 28 78 73 63 68 65 6d 65 2d 65 76 61 6c 75 61 74 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 ┆ (xscheme-evaluation-commands sc┆
0x06a0…06c0 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 0a 0a 28 78 73 63 68 65 6d 65 2d 69 6e 74 65 72 72 75 ┆heme-mode-map) (xscheme-interru┆
0x06c0…06e0 70 74 2d 63 6f 6d 6d 61 6e 64 73 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 6d 61 70 29 0a 0a 28 64 ┆pt-commands scheme-mode-map) (d┆
0x06e0…0700 65 66 75 6e 20 72 75 6e 2d 73 63 68 65 6d 65 20 28 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 29 20 22 ┆efun run-scheme (command-line) "┆
0x0700…0720 5c 0a 52 75 6e 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 ┆\ Run an inferior Scheme process┆
0x0720…0740 2e 0a 4f 75 74 70 75 74 20 67 6f 65 73 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 60 2a 73 63 ┆. Output goes to the buffer `*sc┆
0x0740…0760 68 65 6d 65 2a 27 2e 0a 57 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 61 73 6b 73 20 66 6f 72 20 ┆heme*'. With argument, asks for ┆
0x0760…0780 61 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 62 ┆a command line." (interactive (b┆
0x0780…07a0 79 74 65 2d 63 6f 64 65 20 22 09 86 06 00 c3 20 18 0a 83 12 00 c4 c5 08 5c 22 82 13 00 08 29 43 ┆yte-code " \" )C┆
0x07a0…07c0 87 22 20 5b 64 65 66 61 75 6c 74 20 78 73 63 68 65 6d 65 2d 70 72 6f 63 65 73 73 2d 63 6f 6d 6d ┆ " [default xscheme-process-comm┆
0x07c0…07e0 61 6e 64 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 78 73 63 68 ┆and-line current-prefix-arg xsch┆
0x07e0…0800 65 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 72 65 61 64 2d 73 74 ┆eme-default-command-line read-st┆
0x0800…0820 72 69 6e 67 20 22 52 75 6e 20 53 63 68 65 6d 65 3a 20 22 5d 20 34 29 29 20 28 62 79 74 65 2d 63 ┆ring "Run Scheme: "] 4)) (byte-c┆
0x0820…0840 6f 64 65 20 22 c4 88 0b 89 11 88 c5 c6 0b 21 21 87 22 20 5b 64 65 66 61 75 6c 74 20 78 73 63 68 ┆ode " !! " [default xsch┆
0x0840…0860 65 6d 65 2d 70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 63 75 72 72 65 6e 74 ┆eme-process-command-line current┆
0x0860…0880 2d 70 72 65 66 69 78 2d 61 72 67 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 6e 69 6c 20 73 77 69 ┆-prefix-arg command-line nil swi┆
0x0880…08a0 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 70 72 6f 63 ┆tch-to-buffer xscheme-start-proc┆
0x08a0…08c0 65 73 73 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 73 65 74 2d 73 63 68 65 6d 65 20 6e 69 ┆ess] 3)) (defun reset-scheme ni┆
0x08c0…08e0 6c 20 22 5c 0a 52 65 73 65 74 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 22 20 ┆l "\ Reset the Scheme process." ┆
0x08e0…0900 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 c5 21 18 ┆(interactive) (byte-code " ! ┆
0x0900…0920 08 3f 86 17 00 c6 08 21 c7 3d 3f 86 17 00 c8 c9 21 85 2e 00 ca cb 21 88 08 85 26 00 cc 08 c1 5c ┆ ? ! =? ! . ! & \┆
0x0920…0940 22 88 cd 0a 21 88 ca ce 21 29 87 22 20 5b 70 72 6f 63 65 73 73 20 74 20 78 73 63 68 65 6d 65 2d ┆" ! !) " [process t xscheme-┆
0x0940…0960 70 72 6f 63 65 73 73 2d 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 20 6e 69 6c 20 67 65 74 2d 70 72 6f ┆process-command-line nil get-pro┆
0x0960…0980 63 65 73 73 20 22 73 63 68 65 6d 65 22 20 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 72 75 6e ┆cess "scheme" process-status run┆
0x0980…09a0 20 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 54 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 ┆ yes-or-no-p "The Scheme process┆
0x09a0…09c0 20 69 73 20 72 75 6e 6e 69 6e 67 2c 20 61 72 65 20 79 6f 75 20 53 55 52 45 20 79 6f 75 20 77 61 ┆ is running, are you SURE you wa┆
0x09c0…09e0 6e 74 20 74 6f 20 72 65 73 65 74 20 69 74 3f 20 22 20 6d 65 73 73 61 67 65 20 22 52 65 73 65 74 ┆nt to reset it? " message "Reset┆
0x09e0…0a00 74 69 6e 67 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 2e 2e 22 20 6b 69 6c 6c 2d 70 72 6f ┆ting Scheme process..." kill-pro┆
0x0a00…0a20 63 65 73 73 20 78 73 63 68 65 6d 65 2d 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 52 65 73 65 ┆cess xscheme-start-process "Rese┆
0x0a20…0a40 74 74 69 6e 67 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 2e 2e 64 6f 6e 65 22 5d 20 38 29 ┆tting Scheme process...done"] 8)┆
0x0a40…0a60 29 0a 0a 28 64 65 66 75 6e 20 78 73 63 68 65 6d 65 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e ┆) (defun xscheme-default-comman┆
0x0a60…0a80 64 2d 6c 69 6e 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c3 09 83 0c 00 c4 09 50 ┆d-line nil (byte-code " P┆
0x0a80…0aa0 82 0d 00 c5 0a 83 17 00 c6 0a 50 82 18 00 c5 52 87 22 20 5b 73 63 68 65 6d 65 2d 70 72 6f 67 72 ┆ P R " [scheme-progr┆
0x0aa0…0ac0 61 6d 2d 6e 61 6d 65 20 73 63 68 65 6d 65 2d 70 72 6f 67 72 61 6d 2d 61 72 67 75 6d 65 6e 74 73 ┆am-name scheme-program-arguments┆
0x0ac0…0ae0 20 73 63 68 65 6d 65 2d 62 61 6e 64 2d 6e 61 6d 65 20 22 20 2d 65 6d 61 63 73 22 20 22 20 22 20 ┆ scheme-band-name " -emacs" " " ┆
0x0ae0…0b00 22 22 20 22 20 2d 62 61 6e 64 20 22 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 68 65 6d 65 ┆"" " -band "] 5)) (defun scheme┆
0x0b00…0b20 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d ┆-interaction-mode nil "\ Major m┆
0x0b20…0b40 6f 64 65 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 6e 67 20 77 69 74 68 20 74 68 65 20 69 6e 66 ┆ode for interacting with the inf┆
0x0b40…0b60 65 72 69 6f 72 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 2e 0a 4c 69 6b 65 20 20 73 63 68 65 ┆erior Scheme process. Like sche┆
0x0b60…0b80 6d 65 2d 6d 6f 64 65 20 20 65 78 63 65 70 74 20 74 68 61 74 3a 0a 0a 5c 5c 5b 61 64 76 65 72 74 ┆me-mode except that: \\[advert┆
0x0b80…0ba0 69 73 65 64 2d 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 70 72 65 76 69 6f 75 73 2d 65 78 70 72 65 ┆ised-xscheme-send-previous-expre┆
0x0ba0…0bc0 73 73 69 6f 6e 5d 20 73 65 6e 64 73 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 62 65 66 6f ┆ssion] sends the expression befo┆
0x0bc0…0be0 72 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 61 ┆re point to the Scheme process a┆
0x0be0…0c00 73 20 69 6e 70 75 74 0a 5c 5c 5b 78 73 63 68 65 6d 65 2d 79 61 6e 6b 2d 70 72 65 76 69 6f 75 73 ┆s input \\[xscheme-yank-previous┆
0x0c00…0c20 2d 73 65 6e 64 5d 20 79 61 6e 6b 73 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 6f 73 74 ┆-send] yanks the expression most┆
0x0c20…0c40 20 72 65 63 65 6e 74 6c 79 20 73 65 6e 74 20 74 6f 20 53 63 68 65 6d 65 0a 0a 41 6c 6c 20 6f 75 ┆ recently sent to Scheme All ou┆
0x0c40…0c60 74 70 75 74 20 66 72 6f 6d 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 20 ┆tput from the Scheme process is ┆
0x0c60…0c80 77 72 69 74 74 65 6e 20 69 6e 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 0a 62 75 ┆written in the Scheme process bu┆
0x0c80…0ca0 66 66 65 72 2c 20 77 68 69 63 68 20 69 73 20 69 6e 69 74 69 61 6c 6c 79 20 6e 61 6d 65 64 20 5c ┆ffer, which is initially named \┆
0x0ca0…0cc0 22 2a 73 63 68 65 6d 65 2a 5c 22 2e 20 20 54 68 65 20 72 65 73 75 6c 74 20 6f 66 0a 65 76 61 6c ┆"*scheme*\". The result of eval┆
0x0cc0…0ce0 75 61 74 69 6e 67 20 61 20 53 63 68 65 6d 65 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 20 61 6c ┆uating a Scheme expression is al┆
0x0ce0…0d00 73 6f 20 70 72 69 6e 74 65 64 20 69 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 62 75 66 66 65 72 ┆so printed in the process buffer┆
0x0d00…0d20 2c 0a 70 72 65 63 65 64 65 64 20 62 79 20 74 68 65 20 73 74 72 69 6e 67 20 5c 22 3b 56 61 6c 75 ┆, preceded by the string \";Valu┆
0x0d20…0d40 65 3a 20 5c 22 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 69 74 2e 20 20 49 66 20 74 68 65 20 70 ┆e: \" to highlight it. If the p┆
0x0d40…0d60 72 6f 63 65 73 73 0a 62 75 66 66 65 72 20 69 73 20 6e 6f 74 20 76 69 73 69 62 6c 65 20 61 74 20 ┆rocess buffer is not visible at ┆
0x0d60…0d80 74 68 61 74 20 74 69 6d 65 2c 20 74 68 65 20 76 61 6c 75 65 20 77 69 6c 6c 20 61 6c 73 6f 20 62 ┆that time, the value will also b┆
0x0d80…0da0 65 20 64 69 73 70 6c 61 79 65 64 0a 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 20 20 ┆e displayed in the minibuffer. ┆
0x0da0…0dc0 49 66 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 74 68 65 20 70 72 6f 63 65 73 73 20 ┆If an error occurs, the process ┆
0x0dc0…0de0 62 75 66 66 65 72 20 77 69 6c 6c 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 70 6f 70 20 75 70 ┆buffer will automatically pop up┆
0x0de0…0e00 20 74 6f 20 73 68 6f 77 20 79 6f 75 20 74 68 65 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a ┆ to show you the error message. ┆
0x0e00…0e20 0a 57 68 69 6c 65 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 69 73 20 72 75 6e ┆ While the Scheme process is run┆
0x0e20…0e40 6e 69 6e 67 2c 20 74 68 65 20 6d 6f 64 65 6c 69 6e 65 73 20 6f 66 20 61 6c 6c 20 62 75 66 66 65 ┆ning, the modelines of all buffe┆
0x0e40…0e60 72 73 20 69 6e 0a 73 63 68 65 6d 65 2d 6d 6f 64 65 20 61 72 65 20 6d 6f 64 69 66 69 65 64 20 74 ┆rs in scheme-mode are modified t┆
0x0e60…0e80 6f 20 73 68 6f 77 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 20 70 72 6f 63 65 73 73 2e ┆o show the state of the process.┆
0x0e80…0ea0 20 20 54 68 65 0a 70 6f 73 73 69 62 6c 65 20 73 74 61 74 65 73 20 61 6e 64 20 74 68 65 69 72 20 ┆ The possible states and their ┆
0x0ea0…0ec0 6d 65 61 6e 69 6e 67 73 20 61 72 65 3a 0a 0a 69 6e 70 75 74 09 09 77 61 69 74 69 6e 67 20 66 6f ┆meanings are: input waiting fo┆
0x0ec0…0ee0 72 20 69 6e 70 75 74 0a 72 75 6e 09 09 65 76 61 6c 75 61 74 69 6e 67 0a 67 63 09 09 67 61 72 62 ┆r input run evaluating gc garb┆
0x0ee0…0f00 61 67 65 20 63 6f 6c 6c 65 63 74 69 6e 67 0a 0a 54 68 65 20 70 72 6f 63 65 73 73 20 62 75 66 66 ┆age collecting The process buff┆
0x0f00…0f20 65 72 27 73 20 6d 6f 64 65 6c 69 6e 65 20 63 6f 6e 74 61 69 6e 73 20 61 64 64 69 74 69 6f 6e 61 ┆er's modeline contains additiona┆
0x0f20…0f40 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 77 68 65 72 65 0a 74 68 65 20 62 75 66 66 65 72 27 73 ┆l information where the buffer's┆
0x0f40…0f60 20 6e 61 6d 65 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 64 69 73 70 6c 61 79 65 64 3a 20 74 68 65 ┆ name is normally displayed: the┆
0x0f60…0f80 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 20 6c 65 76 65 6c 0a 61 6e 64 20 74 ┆ command interpreter level and t┆
0x0f80…0fa0 79 70 65 2e 0a 0a 53 63 68 65 6d 65 20 6d 61 69 6e 74 61 69 6e 73 20 61 20 73 74 61 63 6b 20 6f ┆ype. Scheme maintains a stack o┆
0x0fa0…0fc0 66 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 73 2e 20 20 45 76 65 72 79 20 74 ┆f command interpreters. Every t┆
0x0fc0…0fe0 69 6d 65 20 61 6e 20 65 72 72 6f 72 0a 6f 72 20 62 72 65 61 6b 70 6f 69 6e 74 20 6f 63 63 75 72 ┆ime an error or breakpoint occur┆
0x0fe0…1000 73 2c 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 ┆s, the current command interpret┆
0x1000…1020 65 72 20 69 73 20 70 75 73 68 65 64 20 6f 6e 20 74 68 65 0a 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 ┆er is pushed on the command inte┆
0x1020…1040 72 70 72 65 74 65 72 20 73 74 61 63 6b 2c 20 61 6e 64 20 61 20 6e 65 77 20 63 6f 6d 6d 61 6e 64 ┆rpreter stack, and a new command┆
0x1040…1060 20 69 6e 74 65 72 70 72 65 74 65 72 20 69 73 20 73 74 61 72 74 65 64 2e 0a 4f 6e 65 20 65 78 61 ┆ interpreter is started. One exa┆
0x1060…1080 6d 70 6c 65 20 6f 66 20 77 68 79 20 74 68 69 73 20 69 73 20 64 6f 6e 65 20 69 73 20 73 6f 20 74 ┆mple of why this is done is so t┆
0x1080…10a0 68 61 74 20 61 6e 20 65 72 72 6f 72 20 74 68 61 74 20 6f 63 63 75 72 73 20 77 68 69 6c 65 0a 79 ┆hat an error that occurs while y┆
0x10a0…10c0 6f 75 20 61 72 65 20 64 65 62 75 67 67 69 6e 67 20 61 6e 6f 74 68 65 72 20 65 72 72 6f 72 20 77 ┆ou are debugging another error w┆
0x10c0…10e0 69 6c 6c 20 6e 6f 74 20 64 65 73 74 72 6f 79 20 74 68 65 20 73 74 61 74 65 20 6f 66 20 74 68 65 ┆ill not destroy the state of the┆
0x10e0…1100 0a 69 6e 69 74 69 61 6c 20 65 72 72 6f 72 2c 20 61 6c 6c 6f 77 69 6e 67 20 79 6f 75 20 74 6f 20 ┆ initial error, allowing you to ┆
0x1100…1120 72 65 74 75 72 6e 20 74 6f 20 69 74 20 61 66 74 65 72 20 74 68 65 20 73 65 63 6f 6e 64 20 65 72 ┆return to it after the second er┆
0x1120…1140 72 6f 72 20 68 61 73 0a 62 65 65 6e 20 66 69 78 65 64 2e 0a 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 ┆ror has been fixed. The command┆
0x1140…1160 20 69 6e 74 65 72 70 72 65 74 65 72 20 6c 65 76 65 6c 20 69 6e 64 69 63 61 74 65 73 20 68 6f 77 ┆ interpreter level indicates how┆
0x1160…1180 20 6d 61 6e 79 20 69 6e 74 65 72 70 72 65 74 65 72 73 20 61 72 65 20 69 6e 0a 74 68 65 20 63 6f ┆ many interpreters are in the co┆
0x1180…11a0 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 72 20 73 74 61 63 6b 2e 20 20 49 74 20 69 73 20 ┆mmand interpreter stack. It is ┆
0x11a0…11c0 69 6e 69 74 69 61 6c 6c 79 20 73 65 74 20 74 6f 20 6f 6e 65 2c 20 61 6e 64 20 69 74 20 69 73 0a ┆initially set to one, and it is ┆
0x11c0…11e0 69 6e 63 72 65 6d 65 6e 74 65 64 20 65 76 65 72 79 20 74 69 6d 65 20 74 68 61 74 20 73 74 61 63 ┆incremented every time that stac┆
0x11e0…1200 6b 20 69 73 20 70 75 73 68 65 64 2c 20 61 6e 64 20 64 65 63 72 65 6d 65 6e 74 65 64 20 65 76 65 ┆k is pushed, and decremented eve┆
0x1200…1220 72 79 0a 74 69 6d 65 20 69 74 20 69 73 20 70 6f 70 70 65 64 2e 20 20 54 68 65 20 66 6f 6c 6c 6f ┆ry time it is popped. The follo┆
0x1220…1240 77 69 6e 67 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 75 73 65 66 75 6c 20 66 6f 72 20 6d 61 6e ┆wing commands are useful for man┆
0x1240…1260 69 70 75 6c 61 74 69 6e 67 0a 74 68 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 72 70 72 65 74 65 ┆ipulating the command interprete┆
0x1260…1280 72 20 73 74 61 63 6b 3a 0a 0a 5c 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 62 72 65 61 6b 70 ┆r stack: \\[xscheme-send-breakp┆
0x1280…12a0 6f 69 6e 74 2d 69 6e 74 65 72 72 75 70 74 5d 09 70 75 73 68 65 73 20 74 68 65 20 73 74 61 63 6b ┆oint-interrupt] pushes the stack┆
0x12a0…12c0 20 6f 6e 63 65 0a 5c 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 75 2d ┆ once \\[xscheme-send-control-u-┆
0x12c0…12e0 69 6e 74 65 72 72 75 70 74 5d 09 70 6f 70 73 20 74 68 65 20 73 74 61 63 6b 20 6f 6e 63 65 0a 5c ┆interrupt] pops the stack once \┆
0x12e0…1300 5c 5b 78 73 63 68 65 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 67 2d 69 6e 74 65 72 72 75 ┆\[xscheme-send-control-g-interru┆
0x1300…1320 70 74 5d 09 70 6f 70 73 20 65 76 65 72 79 74 68 69 6e 67 20 6f 66 66 0a 5c 5c 5b 78 73 63 68 65 ┆pt] pops everything off \\[xsche┆
0x1320…1340 6d 65 2d 73 65 6e 64 2d 63 6f 6e 74 72 6f 6c 2d 78 2d 69 6e 74 65 72 72 75 70 74 5d 09 61 62 6f ┆me-send-control-x-interrupt] abo┆
0x1340…1360 72 74 73 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 64 6f 65 73 6e 27 74 20 61 66 66 65 63 74 20 73 ┆rts evaluation, doesn't affect s┆
0x1360…1380 74 61 63 6b 0a 0a 53 6f 6d 65 20 70 6f 73 73 69 62 6c 65 20 63 6f 6d 6d 61 6e 64 20 69 6e 74 65 ┆tack Some possible command inte┆
0x1380…13a0 72 70 72 65 74 65 72 20 74 79 70 65 73 20 61 6e 64 20 74 68 65 69 72 20 6d 65 61 6e 69 6e 67 73 ┆rpreter types and their meanings┆
0x13a0…13c0 20 61 72 65 3a 0a 0a 5b 45 76 61 6c 75 61 74 6f 72 5d 09 72 65 61 64 2d 65 76 61 6c 2d 70 72 69 ┆ are: [Evaluator] read-eval-pri┆
0x13c0…13e0 6e 74 20 6c 6f 6f 70 20 66 6f 72 20 65 76 61 6c 75 61 74 69 6e 67 20 65 78 70 72 65 73 73 69 6f ┆nt loop for evaluating expressio┆
0x13e0…1400 6e 73 0a 5b 44 65 62 75 67 67 65 72 5d 09 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 20 63 ┆ns [Debugger] single character c┆
0x1400…1420 6f 6d 6d 61 6e 64 73 20 66 6f 72 20 64 65 62 75 67 67 69 6e 67 20 65 72 72 6f 72 73 0a 5b 57 68 ┆ommands for debugging errors [Wh┆
0x1420…1440 65 72 65 5d 09 09 73 69 6e 67 6c 65 20 63 68 61 72 61 63 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20 ┆ere] single character commands ┆
0x1440…1460 66 6f 72 20 65 78 61 6d 69 6e 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 0a 0a 53 74 61 72 ┆for examining environments Star┆
0x1460…1480 74 69 6e 67 20 77 69 74 68 20 72 65 6c 65 61 73 65 20 36 2e 32 20 6f 66 20 53 63 68 65 6d 65 2c ┆ting with release 6.2 of Scheme,┆
0x1480…14a0 20 74 68 65 20 6c 61 74 74 65 72 20 74 77 6f 20 74 79 70 65 73 20 6f 66 20 63 6f 6d 6d 61 6e 64 ┆ the latter two types of command┆
0x14a0…14c0 0a 69 6e 74 65 72 70 72 65 74 65 72 73 20 77 69 6c 6c 20 63 68 61 6e 67 65 20 74 68 65 20 6d 61 ┆ interpreters will change the ma┆
0x14c0…14e0 6a 6f 72 20 6d 6f 64 65 20 6f 66 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f 63 65 73 73 20 62 ┆jor mode of the Scheme process b┆
0x14e0…1500 75 66 66 65 72 0a 74 6f 20 73 63 68 65 6d 65 2d 64 65 62 75 67 67 65 72 2d 6d 6f 64 65 20 2c 20 ┆uffer to scheme-debugger-mode , ┆
0x1500…1520 69 6e 20 77 68 69 63 68 20 74 68 65 20 65 76 61 6c 75 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 ┆in which the evaluation commands┆
0x1520…1540 20 61 72 65 0a 64 69 73 61 62 6c 65 64 2c 20 61 6e 64 20 74 68 65 20 6b 65 79 73 20 77 68 69 63 ┆ are disabled, and the keys whic┆
0x1540…1560 68 20 6e 6f 72 6d 61 6c 6c 79 20 73 65 6c 66 20 69 6e 73 65 72 74 20 69 6e 73 74 65 61 64 20 73 ┆h normally self insert instead s┆
0x1560…1580 65 6e 64 0a 74 68 65 6d 73 65 6c 76 65 73 20 74 6f 20 74 68 65 20 53 63 68 65 6d 65 20 70 72 6f ┆end themselves to the Scheme pro┆
0x1580…15a0 63 65 73 73 2e 20 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 63 68 61 72 61 63 74 65 72 20 3f 20 77 ┆cess. The command character ? w┆
0x15a0…15c0 69 6c 6c 20 6c 69 73 74 0a 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d 61 6e 64 73 2e ┆ill list the available commands.┆
0x15c0…15e0 0a 0a 46 6f 72 20 6f 6c 64 65 72 20 72 65 6c 65 61 73 65 73 20 6f 66 20 53 63 68 65 6d 65 2c 20 ┆ For older releases of Scheme, ┆
0x15e0…1600 74 68 65 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 77 69 6c 6c 20 62 65 20 62 65 0a 73 63 68 65 6d 65 ┆the major mode will be be scheme┆
0x1600…1620 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 2c 20 61 6e 64 20 74 68 65 20 63 6f 6d 6d ┆-interaction-mode , and the comm┆
0x1620…1640 61 6e 64 20 63 68 61 72 61 63 74 65 72 73 20 6d 75 73 74 20 62 65 20 73 65 6e 74 20 61 73 0a 69 ┆and characters must be sent as i┆
0x1640…1660 66 20 74 68 65 79 20 77 65 72 65 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 0a 43 6f 6d 6d 61 6e ┆f they were expressions. Comman┆
0x1660…1680 64 73 3a 0a 44 65 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 ┆ds: Delete converts tabs to spac┆
0x1680…16a0 65 73 20 61 73 20 69 74 20 6d 6f 76 65 73 20 62 61 63 6b 2e 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73 ┆es as it moves back. Blank lines┆
0x16a0…16c0 20 73 65 70 61 72 61 74 65 20 70 61 72 61 67 72 61 70 68 73 2e 20 20 53 65 6d 69 63 6f 6c 6f 6e ┆ separate paragraphs. Semicolon┆
0x16c0…16e0 73 20 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 73 2e 0a 5c 5c 7b 73 63 68 65 6d 65 2d 69 6e 74 65 ┆s start comments. \\{scheme-inte┆
0x16e0…1700 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 ┆raction-mode-map} Entry to this┆
0x1700…1720 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 63 68 65 6d 65 2d ┆ mode calls the value of scheme-┆
0x1720…1740 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 77 69 74 68 20 6e 6f 20 61 72 ┆interaction-mode-hook with no ar┆
0x1740…1760 67 73 2c 20 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 ┆gs, if that value is non-nil." (┆
0x1760…1780 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 88 c2 20 ┆interactive) (byte-code " ┆
0x1780…17a0 88 c3 20 88 c4 c5 21 88 c6 c7 21 87 22 20 5b 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 ┆ ! ! " [nil kill-all-loca┆
0x17a0…17c0 6c 2d 76 61 72 69 61 62 6c 65 73 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d ┆l-variables scheme-interaction-m┆
0x17c0…17e0 6f 64 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 73 63 68 65 6d 65 2d 6d 6f 64 65 2d 76 61 72 69 61 ┆ode-initialize scheme-mode-varia┆
0x17e0…1800 62 6c 65 73 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 78 73 63 68 65 6d 65 ┆bles make-local-variable xscheme┆
0x1800…1820 2d 70 72 65 76 69 6f 75 73 2d 73 65 6e 64 20 72 75 6e 2d 68 6f 6f 6b 73 20 73 63 68 65 6d 65 2d ┆-previous-send run-hooks scheme-┆
0x1820…1840 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 36 29 29 0a 0a 28 64 65 66 ┆interaction-mode-hook] 6)) (def┆
0x1840…1860 75 6e 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 69 6e 69 74 69 ┆un scheme-interaction-mode-initi┆
0x1860…1880 61 6c 69 7a 65 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 88 c4 89 11 88 c5 89 ┆alize nil (byte-code " ! ┆
0x1880…18a0 12 87 22 20 5b 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 6d 61 70 ┆ " [scheme-interaction-mode-map┆
0x18a0…18c0 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 75 73 65 2d 6c 6f 63 61 6c 2d ┆ major-mode mode-name use-local-┆
0x18c0…18e0 6d 61 70 20 73 63 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 20 22 53 63 68 ┆map scheme-interaction-mode "Sch┆
0x18e0…1900 65 6d 65 20 49 6e 74 65 72 61 63 74 69 6f 6e 22 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 73 63 ┆eme Interaction"] 3)) (defun sc┆
0x1900…1920 68 65 6d 65 2d 69 6e 74 65 72 61 63 74 69 6f 6e 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 73 20 28 ┆heme-interaction-mode-commands (┆
[…truncated at 200 lines…]