/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / scheme.elc.z / scheme.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 31 3a 33 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:30 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 73 63 68 65 6d 65 | 2e 65 6c 0a 3b 3b 3b 20 |s/scheme|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 73 63 68 65 6d 65 2e |(error "|`scheme.|
|000001f0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|00000200| 20 66 6f 72 20 45 6d 61 | 63 73 20 32 30 22 29 29 | for Ema|cs 20"))|
|00000210| 0a 0a 28 6f 72 20 28 62 | 6f 75 6e 64 70 20 27 63 |..(or (b|oundp 'c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 29 20 28 73 65 74 71 20 | 63 75 72 72 65 6e 74 2d |) (setq |current-|
|00000240| 6c 6f 61 64 2d 6c 69 73 | 74 20 6e 69 6c 29 29 0a |load-lis|t nil)).|
|00000250| 0a 0a 23 40 32 20 1f 0a | 28 64 65 66 76 61 72 20 |..#@2 ..|(defvar |
|00000260| 73 63 68 65 6d 65 2d 6d | 6f 64 65 2d 73 79 6e 74 |scheme-m|ode-synt|
|00000270| 61 78 2d 74 61 62 6c 65 | 20 6e 69 6c 20 28 23 24 |ax-table| nil (#$|
|00000280| 20 2e 20 35 39 38 29 29 | 0a 28 62 79 74 65 2d 63 | . 598))|.(byte-c|
|00000290| 6f 64 65 20 22 08 84 b8 | 00 c1 1a c3 20 10 c4 08 |ode "...|.... ...|
|000002a0| 21 88 5c 6e c5 57 ab 8b | c6 5c 6e c7 5c 22 88 5c |!.\n.W..|.\n.\".\|
|000002b0| 6e 54 89 12 aa 71 c8 12 | c8 c9 58 ab 8b c6 5c 6e |nT...q..|..X...\n|
|000002c0| ca 5c 22 88 5c 6e 54 89 | 12 aa 71 cb 12 cb cc 58 |.\".\nT.|..q....X|
|000002d0| ab 8b c6 5c 6e ca 5c 22 | 88 5c 6e 54 89 12 aa 71 |...\n.\"|.\nT...q|
|000002e0| cd 12 cd ce 58 ab 8b c6 | 5c 6e ca 5c 22 88 5c 6e |....X...|\n.\".\n|
|000002f0| 54 89 12 aa 71 c6 cf d0 | 5c 22 88 c6 d1 d2 5c 22 |T...q...|\"....\"|
|00000300| 88 c6 d3 d0 5c 22 88 c6 | d4 d0 5c 22 88 c6 d5 d0 |....\"..|..\"....|
|00000310| 5c 22 88 c6 d6 d7 5c 22 | 88 c6 d8 d9 5c 22 88 c6 |\"....\"|....\"..|
|00000320| da db 5c 22 88 c6 dc dd | 5c 22 88 c6 de df 5c 22 |..\"....|\"....\"|
|00000330| 88 c6 e0 e1 5c 22 88 c6 | e2 e3 5c 22 88 c6 e4 e5 |....\"..|..\"....|
|00000340| 5c 22 88 c6 e6 e7 5c 22 | 88 c6 e8 e9 5c 22 88 c6 |\"....\"|....\"..|
|00000350| ea e9 5c 22 88 c6 eb ec | 5c 22 88 c6 ed ec 5c 22 |..\"....|\"....\"|
|00000360| 88 c6 ee ef 5c 22 88 c6 | f0 f1 5c 22 88 29 c1 87 |....\"..|..\".)..|
|00000370| 22 20 5b 73 63 68 65 6d | 65 2d 6d 6f 64 65 2d 73 |" [schem|e-mode-s|
|00000380| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 30 20 69 20 |yntax-ta|ble 0 i |
|00000390| 6d 61 6b 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |make-syn|tax-tabl|
|000003a0| 65 20 73 65 74 2d 73 79 | 6e 74 61 78 2d 74 61 62 |e set-sy|ntax-tab|
|000003b0| 6c 65 20 32 35 36 20 6d | 6f 64 69 66 79 2d 73 79 |le 256 m|odify-sy|
|000003c0| 6e 74 61 78 2d 65 6e 74 | 72 79 20 22 5f 20 20 20 |ntax-ent|ry "_   |
|000003d0| 22 20 3f 30 20 3f 39 20 | 22 77 20 20 20 22 20 3f |" ?0 ?9 |"w   " ?|
|000003e0| 41 20 3f 5a 20 3f 61 20 | 3f 7a 20 3f 5c 74 20 22 |A ?Z ?a |?z ?\t "|
|000003f0| 20 20 20 20 22 20 3f 5c | 6e 20 22 3e 20 20 20 22 |    " ?\|n ">   "|
|00000400| 20 3f 5c 5e 4c 20 3f 5c | 72 20 3f 5c 20 20 3f 5c | ?\^L ?\|r ?\  ?\|
|00000410| 5b 20 22 28 5d 20 20 22 | 20 3f 5c 5d 20 22 29 5b |[ "(]  "| ?\] ")[|
|00000420| 20 20 22 20 3f 5c 7b 20 | 22 28 7d 20 20 22 20 3f |  " ?\{ |"(}  " ?|
|00000430| 5c 7d 20 22 29 7b 20 20 | 22 20 3f 5c 7c 20 22 20 |\} "){  |" ?\| " |
|00000440| 20 32 33 22 20 3f 5c 28 | 20 22 28 29 20 20 22 20 | 23" ?\(| "()  " |
|00000450| 3f 5c 29 20 22 29 28 20 | 20 22 20 3f 5c 3b 20 22 |?\) ")( | " ?\; "|
|00000460| 3c 20 20 20 22 20 3f 5c | 22 20 22 5c 22 20 20 20 |<   " ?\|" "\"   |
|00000470| 20 22 20 3f 5c 27 20 22 | 20 20 70 22 20 3f 5c 60 | " ?\' "|  p" ?\`|
|00000480| 20 3f 5c 2c 20 22 5f 20 | 70 22 20 3f 5c 40 20 3f | ?\, "_ |p" ?\@ ?|
|00000490| 5c 23 20 22 5f 20 70 31 | 34 22 20 3f 5c 5c 20 22 |\# "_ p1|4" ?\\ "|
|000004a0| 5c 5c 20 20 20 22 5d 20 | 34 29 0a 23 40 32 20 1f |\\   "] |4).#@2 .|
|000004b0| 0a 28 64 65 66 76 61 72 | 20 73 63 68 65 6d 65 2d |.(defvar| scheme-|
|000004c0| 6d 6f 64 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |mode-abb|rev-tabl|
|000004d0| 65 20 6e 69 6c 20 28 23 | 24 20 2e 20 31 31 39 39 |e nil (#|$ . 1199|
|000004e0| 29 29 0a 28 64 65 66 69 | 6e 65 2d 61 62 62 72 65 |)).(defi|ne-abbre|
|000004f0| 76 2d 74 61 62 6c 65 20 | 27 73 63 68 65 6d 65 2d |v-table |'scheme-|
|00000500| 6d 6f 64 65 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |mode-abb|rev-tabl|
|00000510| 65 20 6e 69 6c 29 0a 28 | 64 65 66 61 6c 69 61 73 |e nil).(|defalias|
|00000520| 20 27 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 76 61 | 'scheme|-mode-va|
|00000530| 72 69 61 62 6c 65 73 20 | 23 5b 6e 69 6c 20 22 c0 |riables |#[nil ".|
|00000540| 09 21 88 5c 6e 13 c4 c5 | 21 88 c6 0e 07 50 15 c4 |.!.\n...|!....P..|
|00000550| c8 21 88 0d 16 08 c4 c9 | 21 88 ca 16 09 c4 cb 21 |.!......|!......!|
|00000560| 88 cc 16 0b c4 cd 21 88 | ca 16 0d c4 ce 21 88 cf |......!.|.....!..|
|00000570| 16 0e c4 d0 21 88 d1 16 | 10 c4 d2 21 88 d3 16 12 |....!...|...!....|
|00000580| c4 d4 21 88 d5 16 14 c4 | cd 21 88 ca 16 0d d6 89 |..!.....|.!......|
|00000590| 16 17 87 22 20 5b 73 65 | 74 2d 73 79 6e 74 61 78 |..." [se|t-syntax|
|000005a0| 2d 74 61 62 6c 65 20 73 | 63 68 65 6d 65 2d 6d 6f |-table s|cheme-mo|
|000005b0| 64 65 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 20 |de-synta|x-table |
|000005c0| 73 63 68 65 6d 65 2d 6d | 6f 64 65 2d 61 62 62 72 |scheme-m|ode-abbr|
|000005d0| 65 76 2d 74 61 62 6c 65 | 20 6c 6f 63 61 6c 2d 61 |ev-table| local-a|
|000005e0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 6d 61 6b 65 |bbrev-ta|ble make|
|000005f0| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00000600| 70 61 72 61 67 72 61 70 | 68 2d 73 74 61 72 74 20 |paragrap|h-start |
|00000610| 22 24 5c 5c 7c 22 20 70 | 61 67 65 2d 64 65 6c 69 |"$\\|" p|age-deli|
|00000620| 6d 69 74 65 72 20 70 61 | 72 61 67 72 61 70 68 2d |miter pa|ragraph-|
|00000630| 73 65 70 61 72 61 74 65 | 20 70 61 72 61 67 72 61 |separate| paragra|
|00000640| 70 68 2d 69 67 6e 6f 72 | 65 2d 66 69 6c 6c 2d 70 |ph-ignor|e-fill-p|
|00000650| 72 65 66 69 78 20 74 20 | 69 6e 64 65 6e 74 2d 6c |refix t |indent-l|
|00000660| 69 6e 65 2d 66 75 6e 63 | 74 69 6f 6e 20 73 63 68 |ine-func|tion sch|
|00000670| 65 6d 65 2d 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 20 |eme-inde|nt-line |
|00000680| 70 61 72 73 65 2d 73 65 | 78 70 2d 69 67 6e 6f 72 |parse-se|xp-ignor|
|00000690| 65 2d 63 6f 6d 6d 65 6e | 74 73 20 63 6f 6d 6d 65 |e-commen|ts comme|
|000006a0| 6e 74 2d 73 74 61 72 74 | 20 22 3b 22 20 63 6f 6d |nt-start| ";" com|
|000006b0| 6d 65 6e 74 2d 73 74 61 | 72 74 2d 73 6b 69 70 20 |ment-sta|rt-skip |
|000006c0| 22 5c 5c 28 5c 5c 28 5e | 5c 5c 7c 5b 5e 5c 5c 5c |"\\(\\(^|\\|[^\\\|
|000006d0| 5c 5c 6e 5d 5c 5c 29 5c | 5c 28 5c 5c 5c 5c 5c 5c |\\n]\\)\|\(\\\\\\|
|000006e0| 5c 5c 5c 5c 29 2a 5c 5c | 29 3b 2b 5b 20 09 5d 2a |\\\\)*\\|);+[ .]*|
|000006f0| 22 20 63 6f 6d 6d 65 6e | 74 2d 63 6f 6c 75 6d 6e |" commen|t-column|
|00000700| 20 34 30 20 63 6f 6d 6d | 65 6e 74 2d 69 6e 64 65 | 40 comm|ent-inde|
|00000710| 6e 74 2d 66 75 6e 63 74 | 69 6f 6e 20 73 63 68 65 |nt-funct|ion sche|
|00000720| 6d 65 2d 63 6f 6d 6d 65 | 6e 74 2d 69 6e 64 65 6e |me-comme|nt-inden|
|00000730| 74 20 28 22 22 20 73 63 | 68 65 6d 65 2d 6d 6f 64 |t ("" sc|heme-mod|
|00000740| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 29 20 |e-line-p|rocess) |
|00000750| 6d 6f 64 65 2d 6c 69 6e | 65 2d 70 72 6f 63 65 73 |mode-lin|e-proces|
|00000760| 73 5d 20 32 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |s] 2]).(|byte-cod|
|00000770| 65 20 22 c0 c1 21 ac 82 | c2 11 c1 0b 42 13 c0 87 |e "..!..|....B...|
|00000780| 22 20 5b 62 6f 75 6e 64 | 70 20 73 63 68 65 6d 65 |" [bound|p scheme|
|00000790| 2d 6d 6f 64 65 2d 6c 69 | 6e 65 2d 70 72 6f 63 65 |-mode-li|ne-proce|
|000007a0| 73 73 20 22 22 20 63 75 | 72 72 65 6e 74 2d 6c 6f |ss "" cu|rrent-lo|
|000007b0| 61 64 2d 6c 69 73 74 5d | 20 32 29 0a 28 64 65 66 |ad-list]| 2).(def|
|000007c0| 61 6c 69 61 73 20 27 73 | 63 68 65 6d 65 2d 6d 6f |alias 's|cheme-mo|
|000007d0| 64 65 2d 63 6f 6d 6d 61 | 6e 64 73 20 23 5b 28 6d |de-comma|nds #[(m|
|000007e0| 61 70 29 20 22 c0 09 c2 | c3 23 88 c0 09 c4 c5 23 |ap) "...|.#.....#|
|000007f0| 87 22 20 5b 64 65 66 69 | 6e 65 2d 6b 65 79 20 6d |." [defi|ne-key m|
|00000800| 61 70 20 22 09 22 20 73 | 63 68 65 6d 65 2d 69 6e |ap "." s|cheme-in|
|00000810| 64 65 6e 74 2d 6c 69 6e | 65 20 22 1b 11 22 20 73 |dent-lin|e ".." s|
|00000820| 63 68 65 6d 65 2d 69 6e | 64 65 6e 74 2d 73 65 78 |cheme-in|dent-sex|
|00000830| 70 5d 20 34 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |p] 4]).(|byte-cod|
|00000840| 65 20 22 c0 c1 21 ac 82 | c2 11 c1 0b 42 13 09 ac |e "..!..|....B...|
|00000850| 87 c4 20 11 c5 09 21 88 | c2 87 22 20 5b 62 6f 75 |.. ...!.|.." [bou|
|00000860| 6e 64 70 20 73 63 68 65 | 6d 65 2d 6d 6f 64 65 2d |ndp sche|me-mode-|
|00000870| 6d 61 70 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |map nil |current-|
|00000880| 6c 6f 61 64 2d 6c 69 73 | 74 20 6d 61 6b 65 2d 73 |load-lis|t make-s|
|00000890| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 73 63 68 |parse-ke|ymap sch|
|000008a0| 65 6d 65 2d 6d 6f 64 65 | 2d 63 6f 6d 6d 61 6e 64 |eme-mode|-command|
|000008b0| 73 5d 20 32 29 0a 23 40 | 37 31 32 20 4d 61 6a 6f |s] 2).#@|712 Majo|
|000008c0| 72 20 6d 6f 64 65 20 66 | 6f 72 20 65 64 69 74 69 |r mode f|or editi|
|000008d0| 6e 67 20 53 63 68 65 6d | 65 20 63 6f 64 65 2e 0a |ng Schem|e code..|
|000008e0| 45 64 69 74 69 6e 67 20 | 63 6f 6d 6d 61 6e 64 73 |Editing |commands|
|000008f0| 20 61 72 65 20 73 69 6d | 69 6c 61 72 20 74 6f 20 | are sim|ilar to |
|00000900| 74 68 6f 73 65 20 6f 66 | 20 6c 69 73 70 2d 6d 6f |those of| lisp-mo|
|00000910| 64 65 2e 0a 0a 49 6e 20 | 61 64 64 69 74 69 6f 6e |de...In |addition|
|00000920| 2c 20 69 66 20 61 6e 20 | 69 6e 66 65 72 69 6f 72 |, if an |inferior|
|00000930| 20 53 63 68 65 6d 65 20 | 70 72 6f 63 65 73 73 20 | Scheme |process |
|00000940| 69 73 20 72 75 6e 6e 69 | 6e 67 2c 20 73 6f 6d 65 |is runni|ng, some|
|00000950| 20 61 64 64 69 74 69 6f | 6e 61 6c 0a 63 6f 6d 6d | additio|nal.comm|
|00000960| 61 6e 64 73 20 77 69 6c | 6c 20 62 65 20 64 65 66 |ands wil|l be def|
|00000970| 69 6e 65 64 2c 20 66 6f | 72 20 65 76 61 6c 75 61 |ined, fo|r evalua|
|00000980| 74 69 6e 67 20 65 78 70 | 72 65 73 73 69 6f 6e 73 |ting exp|ressions|
|00000990| 20 61 6e 64 20 63 6f 6e | 74 72 6f 6c 6c 69 6e 67 | and con|trolling|
|000009a0| 0a 74 68 65 20 69 6e 74 | 65 72 70 72 65 74 65 72 |.the int|erpreter|
|000009b0| 2c 20 61 6e 64 20 74 68 | 65 20 73 74 61 74 65 20 |, and th|e state |
|000009c0| 6f 66 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 77 |of the p|rocess w|
|000009d0| 69 6c 6c 20 62 65 20 64 | 69 73 70 6c 61 79 65 64 |ill be d|isplayed|
|000009e0| 20 69 6e 20 74 68 65 0a | 6d 6f 64 65 6c 69 6e 65 | in the.|modeline|
|000009f0| 20 6f 66 20 61 6c 6c 20 | 53 63 68 65 6d 65 20 62 | of all |Scheme b|
|00000a00| 75 66 66 65 72 73 2e 20 | 20 54 68 65 20 6e 61 6d |uffers. | The nam|
|00000a10| 65 73 20 6f 66 20 63 6f | 6d 6d 61 6e 64 73 20 74 |es of co|mmands t|
|00000a20| 68 61 74 20 69 6e 74 65 | 72 61 63 74 0a 77 69 74 |hat inte|ract.wit|
|00000a30| 68 20 74 68 65 20 53 63 | 68 65 6d 65 20 70 72 6f |h the Sc|heme pro|
|00000a40| 63 65 73 73 20 73 74 61 | 72 74 20 77 69 74 68 20 |cess sta|rt with |
|00000a50| 22 78 73 63 68 65 6d 65 | 2d 22 2e 20 20 46 6f 72 |"xscheme|-".  For|
|00000a60| 20 6d 6f 72 65 20 69 6e | 66 6f 72 6d 61 74 69 6f | more in|formatio|
|00000a70| 6e 0a 73 65 65 20 74 68 | 65 20 64 6f 63 75 6d 65 |n.see th|e docume|
|00000a80| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 78 73 63 68 |ntation |for xsch|
|00000a90| 65 6d 65 2d 69 6e 74 65 | 72 61 63 74 69 6f 6e 2d |eme-inte|raction-|
|00000aa0| 6d 6f 64 65 2e 0a 0a 43 | 6f 6d 6d 61 6e 64 73 3a |mode...C|ommands:|
|00000ab0| 0a 44 65 6c 65 74 65 20 | 63 6f 6e 76 65 72 74 73 |.Delete |converts|
|00000ac0| 20 74 61 62 73 20 74 6f | 20 73 70 61 63 65 73 20 | tabs to| spaces |
|00000ad0| 61 73 20 69 74 20 6d 6f | 76 65 73 20 62 61 63 6b |as it mo|ves back|
|00000ae0| 2e 0a 42 6c 61 6e 6b 20 | 6c 69 6e 65 73 20 73 65 |..Blank |lines se|
|00000af0| 70 61 72 61 74 65 20 70 | 61 72 61 67 72 61 70 68 |parate p|aragraph|
|00000b00| 73 2e 20 20 53 65 6d 69 | 63 6f 6c 6f 6e 73 20 73 |s.  Semi|colons s|
|00000b10| 74 61 72 74 20 63 6f 6d | 6d 65 6e 74 73 2e 0a 5c |tart com|ments..\|
|00000b20| 7b 73 63 68 65 6d 65 2d | 6d 6f 64 65 2d 6d 61 70 |{scheme-|mode-map|
|00000b30| 7d 0a 45 6e 74 72 79 20 | 74 6f 20 74 68 69 73 20 |}.Entry |to this |
|00000b40| 6d 6f 64 65 20 63 61 6c | 6c 73 20 74 68 65 20 76 |mode cal|ls the v|
|00000b50| 61 6c 75 65 20 6f 66 20 | 73 63 68 65 6d 65 2d 6d |alue of |scheme-m|
|00000b60| 6f 64 65 2d 68 6f 6f 6b | 0a 69 66 20 74 68 61 74 |ode-hook|.if that|
|00000b70| 20 76 61 6c 75 65 20 69 | 73 20 6e 6f 6e 2d 6e 69 | value i|s non-ni|
|00000b80| 6c 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |l...(def|alias 's|
|00000b90| 63 68 65 6d 65 2d 6d 6f | 64 65 20 23 5b 6e 69 6c |cheme-mo|de #[nil|
|00000ba0| 20 22 c0 20 88 c1 20 88 | c2 20 88 c3 c4 21 87 22 | ". .. .|. ...!."|
|00000bb0| 20 5b 6b 69 6c 6c 2d 61 | 6c 6c 2d 6c 6f 63 61 6c | [kill-a|ll-local|
|00000bc0| 2d 76 61 72 69 61 62 6c | 65 73 20 73 63 68 65 6d |-variabl|es schem|
|00000bd0| 65 2d 6d 6f 64 65 2d 69 | 6e 69 74 69 61 6c 69 7a |e-mode-i|nitializ|
|00000be0| 65 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 76 61 |e scheme|-mode-va|
|00000bf0| 72 69 61 62 6c 65 73 20 | 72 75 6e 2d 68 6f 6f 6b |riables |run-hook|
|00000c00| 73 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 2d 68 6f |s scheme|-mode-ho|
|00000c10| 6f 6b 5d 20 32 20 28 23 | 24 20 2e 20 32 32 33 36 |ok] 2 (#|$ . 2236|
|00000c20| 29 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |) nil]).|(defalia|
|00000c30| 73 20 27 73 63 68 65 6d | 65 2d 6d 6f 64 65 2d 69 |s 'schem|e-mode-i|
|00000c40| 6e 69 74 69 61 6c 69 7a | 65 20 23 5b 6e 69 6c 20 |nitializ|e #[nil |
|00000c50| 22 c0 09 21 88 c2 13 c4 | 89 15 87 22 20 5b 75 73 |"..!....|..." [us|
|00000c60| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 73 63 68 65 |e-local-|map sche|
|00000c70| 6d 65 2d 6d 6f 64 65 2d | 6d 61 70 20 73 63 68 65 |me-mode-|map sche|
|00000c80| 6d 65 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |me-mode |major-mo|
|00000c90| 64 65 20 22 53 63 68 65 | 6d 65 22 20 6d 6f 64 65 |de "Sche|me" mode|
|00000ca0| 2d 6e 61 6d 65 5d 20 32 | 5d 29 0a 23 40 31 30 39 |-name] 2|]).#@109|
|00000cb0| 20 49 66 20 6e 6f 6e 2d | 6e 69 6c 2c 20 73 63 68 | If non-|nil, sch|
|00000cc0| 65 6d 65 20 6d 6f 64 65 | 20 69 73 20 73 70 65 63 |eme mode| is spec|
|00000cd0| 69 61 6c 69 7a 65 64 20 | 66 6f 72 20 4d 49 54 20 |ialized |for MIT |
|00000ce0| 53 63 68 65 6d 65 2e 0a | 53 65 74 20 74 68 69 73 |Scheme..|Set this|
|00000cf0| 20 74 6f 20 6e 69 6c 20 | 69 66 20 79 6f 75 20 6e | to nil |if you n|
|00000d00| 6f 72 6d 61 6c 6c 79 20 | 75 73 65 20 61 6e 6f 74 |ormally |use anot|
|00000d10| 68 65 72 20 64 69 61 6c | 65 63 74 2e 1f 0a 28 64 |her dial|ect...(d|
|00000d20| 65 66 76 61 72 20 73 63 | 68 65 6d 65 2d 6d 69 74 |efvar sc|heme-mit|
|00000d30| 2d 64 69 61 6c 65 63 74 | 20 74 20 28 23 24 20 2e |-dialect| t (#$ .|
|00000d40| 20 33 32 34 39 29 29 0a | 28 64 65 66 61 6c 69 61 | 3249)).|(defalia|
|00000d50| 73 20 27 73 63 68 65 6d | 65 2d 63 6f 6d 6d 65 6e |s 'schem|e-commen|
|00000d60| 74 2d 69 6e 64 65 6e 74 | 20 23 5b 28 26 6f 70 74 |t-indent| #[(&opt|
|00000d70| 69 6f 6e 61 6c 20 70 6f | 73 29 20 22 8a 08 ab 83 |ional po|s) "....|
|00000d80| 08 62 88 c1 c2 21 ab 83 | 69 aa a3 c1 c3 21 ab 8f |.b...!..|i....!..|
|00000d90| c4 20 89 1d 3c ab 84 0d | 40 aa 81 0d 29 aa 8f c6 |. ..<...|@...)...|
|00000da0| c7 78 88 6e ab 83 c8 aa | 82 69 54 0e 09 5d 29 87 |.x.n....|.iT..]).|
|00000db0| 22 20 5b 70 6f 73 20 6c | 6f 6f 6b 69 6e 67 2d 61 |" [pos l|ooking-a|
|00000dc0| 74 20 22 3b 3b 3b 22 20 | 22 3b 3b 22 20 63 61 6c |t ";;;" |";;" cal|
|00000dd0| 63 75 6c 61 74 65 2d 73 | 63 68 65 6d 65 2d 69 6e |culate-s|cheme-in|
|00000de0| 64 65 6e 74 20 74 65 6d | 20 22 20 09 22 20 6e 69 |dent tem| " ." ni|
|00000df0| 6c 20 30 20 63 6f 6d 6d | 65 6e 74 2d 63 6f 6c 75 |l 0 comm|ent-colu|
|00000e00| 6d 6e 5d 20 33 5d 29 0a | 23 40 32 20 1f 0a 28 64 |mn] 3]).|#@2 ..(d|
|00000e10| 65 66 76 61 72 20 73 63 | 68 65 6d 65 2d 69 6e 64 |efvar sc|heme-ind|
|00000e20| 65 6e 74 2d 6f 66 66 73 | 65 74 20 6e 69 6c 20 28 |ent-offs|et nil (|
|00000e30| 23 24 20 2e 20 33 35 39 | 36 29 29 0a 23 40 32 20 |#$ . 359|6)).#@2 |
|00000e40| 1f 0a 28 64 65 66 76 61 | 72 20 73 63 68 65 6d 65 |..(defva|r scheme|
|00000e50| 2d 69 6e 64 65 6e 74 2d | 66 75 6e 63 74 69 6f 6e |-indent-|function|
|00000e60| 20 27 73 63 68 65 6d 65 | 2d 69 6e 64 65 6e 74 2d | 'scheme|-indent-|
|00000e70| 66 75 6e 63 74 69 6f 6e | 20 28 23 24 20 2e 20 33 |function| (#$ . 3|
|00000e80| 36 34 38 29 29 0a 23 40 | 31 33 32 20 49 6e 64 65 |648)).#@|132 Inde|
|00000e90| 6e 74 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 20 |nt curre|nt line |
|00000ea0| 61 73 20 53 63 68 65 6d | 65 20 63 6f 64 65 2e 0a |as Schem|e code..|
|00000eb0| 57 69 74 68 20 61 72 67 | 75 6d 65 6e 74 2c 20 69 |With arg|ument, i|
|00000ec0| 6e 64 65 6e 74 20 61 6e | 79 20 61 64 64 69 74 69 |ndent an|y additi|
|00000ed0| 6f 6e 61 6c 20 6c 69 6e | 65 73 20 6f 66 20 74 68 |onal lin|es of th|
|00000ee0| 65 20 73 61 6d 65 20 65 | 78 70 72 65 73 73 69 6f |e same e|xpressio|
|00000ef0| 6e 0a 72 69 67 69 64 6c | 79 20 61 6c 6f 6e 67 20 |n.rigidl|y along |
|00000f00| 77 69 74 68 20 74 68 69 | 73 20 6f 6e 65 2e 1f 0a |with thi|s one...|
|00000f10| 28 64 65 66 61 6c 69 61 | 73 20 27 73 63 68 65 6d |(defalia|s 'schem|
|00000f20| 65 2d 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 20 23 5b |e-indent|-line #[|
|00000f30| 28 26 6f 70 74 69 6f 6e | 61 6c 20 77 68 6f 6c 65 |(&option|al whole|
|00000f40| 2d 65 78 70 29 20 22 c0 | 20 c1 89 89 64 60 5a 1a |-exp) ".| ...d`Z.|
|00000f50| 1b 1c 1d 1e 06 c7 79 88 | 60 14 c8 c1 77 88 c9 ca |......y.|`...w...|
|00000f60| 21 3f ad cf 0e 06 3c ab | 85 0e 06 40 16 06 0e 06 |!?....<.|...@....|
|00000f70| 69 5a 89 15 c7 55 ac 88 | 0c 60 7c 88 0e 06 6a 88 |iZ...U..|.`|...j.|
|00000f80| 64 5c 6e 5a 60 56 ab 85 | 64 5c 6e 5a 62 88 0e 0b |d\nZ`V..|d\nZb...|
|00000f90| ad a3 0d c7 55 3f ad 9d | 8a 0c 62 88 cc cd 21 88 |....U?..|..b...!.|
|00000fa0| 60 13 0c 62 88 cd 79 88 | 60 14 0b 0c 56 29 ad 85 |`..b..y.|`...V)..|
|00000fb0| ce 0c 0b 0d 23 2d 87 22 | 20 5b 63 61 6c 63 75 6c |....#-."| [calcul|
|00000fc0| 61 74 65 2d 73 63 68 65 | 6d 65 2d 69 6e 64 65 6e |ate-sche|me-inden|
|00000fd0| 74 20 6e 69 6c 20 70 6f | 73 20 65 6e 64 20 62 65 |t nil po|s end be|
|00000fe0| 67 20 73 68 69 66 74 2d | 61 6d 74 20 69 6e 64 65 |g shift-|amt inde|
|00000ff0| 6e 74 20 30 20 22 20 09 | 22 20 6c 6f 6f 6b 69 6e |nt 0 " .|" lookin|
|00001000| 67 2d 61 74 20 22 5b 20 | 09 5d 2a 3b 3b 3b 22 20 |g-at "[ |.]*;;;" |
|00001010| 77 68 6f 6c 65 2d 65 78 | 70 20 66 6f 72 77 61 72 |whole-ex|p forwar|
|00001020| 64 2d 73 65 78 70 20 31 | 20 69 6e 64 65 6e 74 2d |d-sexp 1| indent-|
|00001030| 63 6f 64 65 2d 72 69 67 | 69 64 6c 79 5d 20 37 20 |code-rig|idly] 7 |
|00001040| 28 23 24 20 2e 20 33 37 | 32 34 29 20 22 50 22 5d |(#$ . 37|24) "P"]|
|00001050| 29 0a 23 40 34 30 30 20 | 52 65 74 75 72 6e 20 61 |).#@400 |Return a|
|00001060| 70 70 72 6f 70 72 69 61 | 74 65 20 69 6e 64 65 6e |ppropria|te inden|
|00001070| 74 61 74 69 6f 6e 20 66 | 6f 72 20 63 75 72 72 65 |tation f|or curre|
|00001080| 6e 74 20 6c 69 6e 65 20 | 61 73 20 73 63 68 65 6d |nt line |as schem|
|00001090| 65 20 63 6f 64 65 2e 0a | 49 6e 20 75 73 75 61 6c |e code..|In usual|
|000010a0| 20 63 61 73 65 20 72 65 | 74 75 72 6e 73 20 61 6e | case re|turns an|
|000010b0| 20 69 6e 74 65 67 65 72 | 3a 20 74 68 65 20 63 6f | integer|: the co|
|000010c0| 6c 75 6d 6e 20 74 6f 20 | 69 6e 64 65 6e 74 20 74 |lumn to |indent t|
|000010d0| 6f 2e 0a 43 61 6e 20 69 | 6e 73 74 65 61 64 20 72 |o..Can i|nstead r|
|000010e0| 65 74 75 72 6e 20 61 20 | 6c 69 73 74 2c 20 77 68 |eturn a |list, wh|
|000010f0| 6f 73 65 20 63 61 72 20 | 69 73 20 74 68 65 20 63 |ose car |is the c|
|00001100| 6f 6c 75 6d 6e 20 74 6f | 20 69 6e 64 65 6e 74 20 |olumn to| indent |
|00001110| 74 6f 2e 0a 54 68 69 73 | 20 6d 65 61 6e 73 20 74 |to..This| means t|
|00001120| 68 61 74 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6c 69 |hat foll|owing li|
|00001130| 6e 65 73 20 61 74 20 74 | 68 65 20 73 61 6d 65 20 |nes at t|he same |
|00001140| 6c 65 76 65 6c 20 6f 66 | 20 69 6e 64 65 6e 74 61 |level of| indenta|
|00001150| 74 69 6f 6e 0a 73 68 6f | 75 6c 64 20 6e 6f 74 20 |tion.sho|uld not |
|00001160| 6e 65 63 65 73 73 61 72 | 69 6c 79 20 62 65 20 69 |necessar|ily be i|
|00001170| 6e 64 65 6e 74 65 64 20 | 74 68 65 20 73 61 6d 65 |ndented |the same|
|00001180| 20 77 61 79 2e 0a 54 68 | 65 20 73 65 63 6f 6e 64 | way..Th|e second|
|00001190| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 74 68 65 20 | element| of the |
|000011a0| 6c 69 73 74 20 69 73 20 | 74 68 65 20 62 75 66 66 |list is |the buff|
|000011b0| 65 72 20 70 6f 73 69 74 | 69 6f 6e 0a 6f 66 20 74 |er posit|ion.of t|
|000011c0| 68 65 20 73 74 61 72 74 | 20 6f 66 20 74 68 65 20 |he start| of the |
|000011d0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 65 78 70 72 65 |containi|ng expre|
|000011e0| 73 73 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ssion...|(defalia|
|000011f0| 73 20 27 63 61 6c 63 75 | 6c 61 74 65 2d 73 63 68 |s 'calcu|late-sch|
|00001200| 65 6d 65 2d 69 6e 64 65 | 6e 74 20 23 5b 28 26 6f |eme-inde|nt #[(&o|
|00001210| 70 74 69 6f 6e 61 6c 20 | 70 61 72 73 65 2d 73 74 |ptional |parse-st|
|00001220| 61 72 74 29 20 22 8a c0 | 79 88 60 c1 89 89 c2 c1 |art) "..|y.`.....|
|00001230| 89 89 1b 1c 1d 1e 06 1e | 07 1e 08 1e 09 1e 5c 6e |........|......\n|
|00001240| 0e 0b ab 86 0e 0b 62 88 | aa 83 cc 20 88 60 0e 5c |......b.|... .`.\|
|00001250| 6e 57 ab 8a cd 60 0e 5c | 6e c0 23 16 09 aa 70 0e |nW...`.\|n.#...p.|
|00001260| 06 83 ce 00 0e 09 40 89 | 16 08 83 ce 00 0e 08 c0 |......@.|........|
|00001270| 56 83 ce 00 c1 16 06 ce | 0e 09 38 15 0e 09 41 40 |V.......|..8...A@|
|00001280| 89 14 54 62 88 0d ab 9a | 0d 60 56 ab 95 cd 0d 0e |..Tb....|.`V.....|
|00001290| 5c 6e c0 23 89 1e 0f 41 | 40 89 16 06 ab 84 0e 0f |\n.#...A|@.......|
|000012a0| 16 09 29 0e 06 ac 39 0c | 54 62 88 0d ac 85 69 16 |..)...9.|Tb....i.|
|000012b0| 07 aa 2d cd 60 0d c0 c2 | 24 88 d0 d1 21 13 8a d2 |..-.`...|$...!...|
|000012c0| 79 88 60 29 0d 56 ab 9d | cd 60 0d c0 c2 24 88 60 |y.`).V..|.`...$.`|
|000012d0| 0d 55 ac 8b d3 d2 21 88 | cd 60 0d c0 c2 24 88 d4 |.U....!.|.`...$..|
|000012e0| 20 88 82 36 00 0d 62 88 | c0 79 88 cd 60 0d c0 c2 | ..6..b.|.y..`...|
|000012f0| 24 88 d4 20 88 82 36 00 | 0b ab 83 69 16 07 d5 0e |$.. ..6.|...i....|
|00001300| 09 9b 40 ab 8d 0e 5c 6e | 62 88 d6 c1 77 88 69 16 |..@...\n|b...w.i.|
|00001310| 07 aa b3 0e 17 a8 ab 8e | 0c ab 8b 0c 62 88 0e 17 |........|....b...|
|00001320| 69 5c 5c 16 07 aa a0 0e | 07 ac 9c d8 d9 21 ab 94 |i\\.....|.....!..|
|00001330| 0e 19 ab 90 0e 06 ac 8c | 0e 19 0e 5c 6e 0e 09 5c |........|...\n..\|
|00001340| 22 89 16 07 ac 83 69 16 | 07 0e 07 2e 09 87 22 20 |".....i.|......" |
|00001350| 5b 30 20 6e 69 6c 20 74 | 20 66 69 72 73 74 2d 73 |[0 nil t| first-s|
|00001360| 65 78 70 2d 6c 69 73 74 | 2d 70 20 63 6f 6e 74 61 |exp-list|-p conta|
|00001370| 69 6e 69 6e 67 2d 73 65 | 78 70 20 6c 61 73 74 2d |ining-se|xp last-|
|00001380| 73 65 78 70 20 72 65 74 | 72 79 20 64 65 73 69 72 |sexp ret|ry desir|
|00001390| 65 64 2d 69 6e 64 65 6e | 74 20 70 61 72 65 6e 2d |ed-inden|t paren-|
|000013a0| 64 65 70 74 68 20 73 74 | 61 74 65 20 69 6e 64 65 |depth st|ate inde|
|000013b0| 6e 74 2d 70 6f 69 6e 74 | 20 70 61 72 73 65 2d 73 |nt-point| parse-s|
|000013c0| 74 61 72 74 20 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |tart beg|inning-o|
|000013d0| 66 2d 64 65 66 75 6e 20 | 70 61 72 73 65 2d 70 61 |f-defun |parse-pa|
|000013e0| 72 74 69 61 6c 2d 73 65 | 78 70 20 32 20 70 65 65 |rtial-se|xp 2 pee|
|000013f0| 6b 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5c 5c |k lookin|g-at "\\|
|00001400| 73 28 22 20 31 20 66 6f | 72 77 61 72 64 2d 73 65 |s(" 1 fo|rward-se|
|00001410| 78 70 20 62 61 63 6b 77 | 61 72 64 2d 70 72 65 66 |xp backw|ard-pref|
|00001420| 69 78 2d 63 68 61 72 73 | 20 33 20 22 20 09 22 20 |ix-chars| 3 " ." |
|00001430| 73 63 68 65 6d 65 2d 69 | 6e 64 65 6e 74 2d 6f 66 |scheme-i|ndent-of|
|00001440| 66 73 65 74 20 62 6f 75 | 6e 64 70 20 73 63 68 65 |fset bou|ndp sche|
|00001450| 6d 65 2d 69 6e 64 65 6e | 74 2d 66 75 6e 63 74 69 |me-inden|t-functi|
|00001460| 6f 6e 5d 20 39 20 28 23 | 24 20 2e 20 34 31 38 34 |on] 9 (#|$ . 4184|
|00001470| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |)]).(def|alias 's|
|00001480| 63 68 65 6d 65 2d 69 6e | 64 65 6e 74 2d 66 75 6e |cheme-in|dent-fun|
|00001490| 63 74 69 6f 6e 20 23 5b | 28 69 6e 64 65 6e 74 2d |ction #[|(indent-|
|000014a0| 70 6f 69 6e 74 20 73 74 | 61 74 65 29 20 22 69 18 |point st|ate) "i.|
|000014b0| 8a 09 41 40 54 62 88 c2 | c3 21 88 60 09 41 40 55 |..A@Tb..|.!.`.A@U|
|000014c0| 3f ad ca c4 75 88 60 c5 | c6 21 88 60 7b c7 1e 08 |?...u.`.|.!.`{...|
|000014d0| 89 1e 09 97 16 09 ca 0e | 09 21 cb 4e 89 16 08 a8 |........|.!.N....|
|000014e0| ab 89 cc 0e 08 09 0e 0d | 23 aa a1 0e 08 ab 88 0e |........|#.......|
|000014f0| 08 09 0e 0d 5c 22 aa 95 | 0e 09 47 ce 56 ad 8e 0e |....\"..|..G.V...|
|00001500| 09 cf ce 4f d0 98 ad 85 | d1 09 0e 0d 5c 22 2a 2a |...O....|....\"**|
|00001510| 87 22 20 5b 6e 6f 72 6d | 61 6c 2d 69 6e 64 65 6e |." [norm|al-inden|
|00001520| 74 20 73 74 61 74 65 20 | 72 65 2d 73 65 61 72 63 |t state |re-searc|
|00001530| 68 2d 66 6f 72 77 61 72 | 64 20 22 5c 5c 73 77 5c |h-forwar|d "\\sw\|
|00001540| 5c 7c 5c 5c 73 5f 22 20 | 2d 31 20 66 6f 72 77 61 |\|\\s_" |-1 forwa|
|00001550| 72 64 2d 73 65 78 70 20 | 31 20 6e 69 6c 20 6d 65 |rd-sexp |1 nil me|
|00001560| 74 68 6f 64 20 66 75 6e | 63 74 69 6f 6e 20 69 6e |thod fun|ction in|
|00001570| 74 65 72 6e 2d 73 6f 66 | 74 20 73 63 68 65 6d 65 |tern-sof|t scheme|
|00001580| 2d 69 6e 64 65 6e 74 2d | 66 75 6e 63 74 69 6f 6e |-indent-|function|
|00001590| 20 73 63 68 65 6d 65 2d | 69 6e 64 65 6e 74 2d 73 | scheme-|indent-s|
|000015a0| 70 65 63 66 6f 72 6d 20 | 69 6e 64 65 6e 74 2d 70 |pecform |indent-p|
|000015b0| 6f 69 6e 74 20 33 20 30 | 20 22 64 65 66 22 20 73 |oint 3 0| "def" s|
|000015c0| 63 68 65 6d 65 2d 69 6e | 64 65 6e 74 2d 64 65 66 |cheme-in|dent-def|
|000015d0| 66 6f 72 6d 5d 20 35 5d | 29 0a 23 40 32 20 1f 0a |form] 5]|).#@2 ..|
|000015e0| 28 64 65 66 76 61 72 20 | 73 63 68 65 6d 65 2d 62 |(defvar |scheme-b|
|000015f0| 6f 64 79 2d 69 6e 64 65 | 6e 74 20 32 20 28 23 24 |ody-inde|nt 2 (#$|
|00001600| 20 2e 20 35 35 39 38 29 | 29 0a 28 64 65 66 61 6c | . 5598)|).(defal|
|00001610| 69 61 73 20 27 73 63 68 | 65 6d 65 2d 69 6e 64 65 |ias 'sch|eme-inde|
|00001620| 6e 74 2d 73 70 65 63 66 | 6f 72 6d 20 23 5b 28 63 |nt-specf|orm #[(c|
|00001630| 6f 75 6e 74 20 73 74 61 | 74 65 20 69 6e 64 65 6e |ount sta|te inden|
|00001640| 74 2d 70 6f 69 6e 74 29 | 20 22 08 41 40 09 c2 89 |t-point)| ".A@...|
|00001650| 1b 1c 1d 89 1e 06 62 88 | 69 13 0e 07 0b 5c 5c 14 |......b.|i....\\.|
|00001660| c8 75 88 c9 c8 21 88 ca | 60 0e 0b c8 cc 24 88 60 |.u...!..|`....$.`|
|00001670| 0e 0b 57 ab 86 c2 cd ce | 8f ac 74 09 cf 56 ab 8b |..W.....|..t..V..|
|00001680| 0b 0e 07 89 5c 5c 5c 5c | 0e 06 44 aa 95 09 cf 55 |....\\\\|..D....U|
|00001690| ab 8e 0d cf 55 ac 86 0c | 0e 10 58 ab 83 0c aa 82 |....U...|..X.....|
|000016a0| 0e 10 2c 87 22 20 5b 73 | 74 61 74 65 20 63 6f 75 |..,." [s|tate cou|
|000016b0| 6e 74 20 6e 69 6c 20 63 | 6f 6e 74 61 69 6e 69 6e |nt nil c|ontainin|
|000016c0| 67 2d 66 6f 72 6d 2d 63 | 6f 6c 75 6d 6e 20 62 6f |g-form-c|olumn bo|
|000016d0| 64 79 2d 69 6e 64 65 6e | 74 20 69 20 63 6f 6e 74 |dy-inden|t i cont|
|000016e0| 61 69 6e 69 6e 67 2d 66 | 6f 72 6d 2d 73 74 61 72 |aining-f|orm-star|
|000016f0| 74 20 73 63 68 65 6d 65 | 2d 62 6f 64 79 2d 69 6e |t scheme|-body-in|
|00001700| 64 65 6e 74 20 31 20 66 | 6f 72 77 61 72 64 2d 73 |dent 1 f|orward-s|
|00001710| 65 78 70 20 70 61 72 73 | 65 2d 70 61 72 74 69 61 |exp pars|e-partia|
|00001720| 6c 2d 73 65 78 70 20 69 | 6e 64 65 6e 74 2d 70 6f |l-sexp i|ndent-po|
|00001730| 69 6e 74 20 74 20 28 62 | 79 74 65 2d 63 6f 64 65 |int t (b|yte-code|
|00001740| 20 22 08 53 10 c1 c2 21 | 88 c3 60 0c c2 c5 24 87 | ".S...!|..`...$.|
|00001750| 22 20 5b 63 6f 75 6e 74 | 20 66 6f 72 77 61 72 64 |" [count| forward|
|00001760| 2d 73 65 78 70 20 31 20 | 70 61 72 73 65 2d 70 61 |-sexp 1 |parse-pa|
|00001770| 72 74 69 61 6c 2d 73 65 | 78 70 20 69 6e 64 65 6e |rtial-se|xp inden|
|00001780| 74 2d 70 6f 69 6e 74 20 | 74 5d 20 35 29 20 28 28 |t-point |t] 5) ((|
|00001790| 65 72 72 6f 72 29 29 20 | 30 20 6e 6f 72 6d 61 6c |error)) |0 normal|
|000017a0| 2d 69 6e 64 65 6e 74 5d | 20 36 5d 29 0a 28 64 65 |-indent]| 6]).(de|
|000017b0| 66 61 6c 69 61 73 20 27 | 73 63 68 65 6d 65 2d 69 |falias '|scheme-i|
|000017c0| 6e 64 65 6e 74 2d 64 65 | 66 66 6f 72 6d 20 23 5b |ndent-de|fform #[|
|000017d0| 28 73 74 61 74 65 20 69 | 6e 64 65 6e 74 2d 70 6f |(state i|ndent-po|
|000017e0| 69 6e 74 29 20 22 08 41 | 40 62 88 c1 79 88 60 08 |int) ".A|@b..y.`.|
|000017f0| 41 41 40 56 ad 88 08 41 | 40 62 88 5c 6e 69 5c 5c |AA@V...A|@b.\ni\\|
|00001800| 87 22 20 5b 73 74 61 74 | 65 20 31 20 73 63 68 65 |." [stat|e 1 sche|
|00001810| 6d 65 2d 62 6f 64 79 2d | 69 6e 64 65 6e 74 5d 20 |me-body-|indent] |
|00001820| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |2]).(def|alias 'w|
|00001830| 6f 75 6c 64 2d 62 65 2d | 73 79 6d 62 6f 6c 20 23 |ould-be-|symbol #|
|00001840| 5b 28 73 74 72 69 6e 67 | 29 20 22 08 c1 c2 4f c3 |[(string|) "...O.|
|00001850| 98 3f 87 22 20 5b 73 74 | 72 69 6e 67 20 30 20 31 |.?." [st|ring 0 1|
|00001860| 20 22 28 22 5d 20 33 5d | 29 0a 28 64 65 66 61 6c | "("] 3]|).(defal|
|00001870| 69 61 73 20 27 6e 65 78 | 74 2d 73 65 78 70 2d 61 |ias 'nex|t-sexp-a|
|00001880| 73 2d 73 74 72 69 6e 67 | 20 23 5b 6e 69 6c 20 22 |s-string| #[nil "|
|00001890| c0 c1 21 88 60 1a c3 c1 | 21 88 60 5c 6e 7b 29 87 |..!.`...|!.`\n{).|
|000018a0| 22 20 5b 66 6f 72 77 61 | 72 64 2d 73 65 78 70 20 |" [forwa|rd-sexp |
|000018b0| 31 20 74 68 65 2d 65 6e | 64 20 62 61 63 6b 77 61 |1 the-en|d backwa|
|000018c0| 72 64 2d 73 65 78 70 5d | 20 32 5d 29 0a 28 64 65 |rd-sexp]| 2]).(de|
|000018d0| 66 61 6c 69 61 73 20 27 | 73 63 68 65 6d 65 2d 6c |falias '|scheme-l|
|000018e0| 65 74 2d 69 6e 64 65 6e | 74 20 23 5b 28 73 74 61 |et-inden|t #[(sta|
|000018f0| 74 65 20 69 6e 64 65 6e | 74 2d 70 6f 69 6e 74 29 |te inden|t-point)|
|00001900| 20 22 c0 c1 77 88 c2 c3 | 21 ab 88 c4 c5 0e 06 0e | "..w...|!.......|
|00001910| 07 23 87 c4 c8 0e 06 0e | 07 23 87 22 20 5b 22 20 |.#......|.#." [" |
|00001920| 09 22 20 6e 69 6c 20 6c | 6f 6f 6b 69 6e 67 2d 61 |." nil l|ooking-a|
|00001930| 74 20 22 5b 2d 61 2d 7a | 41 2d 5a 30 2d 39 2b 2a |t "[-a-z|A-Z0-9+*|
|00001940| 2f 3f 21 40 24 25 5e 26 | 5f 3a 7e 5d 22 20 73 63 |/?!@$%^&|_:~]" sc|
|00001950| 68 65 6d 65 2d 69 6e 64 | 65 6e 74 2d 73 70 65 63 |heme-ind|ent-spec|
|00001960| 66 6f 72 6d 20 32 20 73 | 74 61 74 65 20 69 6e 64 |form 2 s|tate ind|
|00001970| 65 6e 74 2d 70 6f 69 6e | 74 20 31 5d 20 34 5d 29 |ent-poin|t 1] 4])|
|00001980| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |.(byte-c|ode "...|
|00001990| c3 23 88 c0 c4 c2 c5 23 | 88 c0 c6 c2 c3 23 88 c0 |.#.....#|.....#..|
|000019a0| c7 c2 c8 23 88 c0 c9 c2 | c5 23 88 c0 ca c2 cb 23 |...#....|.#.....#|
|000019b0| 88 c0 cc c2 c5 23 88 c0 | cd c2 c5 23 88 c0 ce c2 |.....#..|...#....|
|000019c0| c3 23 88 c0 cf c2 c5 23 | 88 c0 d0 c2 c5 23 88 c0 |.#.....#|.....#..|
|000019d0| d1 c2 c5 23 88 c0 d2 c2 | c5 23 88 c0 d3 c2 c5 23 |...#....|.#.....#|
|000019e0| 88 c0 d4 c2 c5 23 88 0e | 15 83 37 01 c0 d6 c2 c5 |.....#..|..7.....|
|000019f0| 23 88 c0 d7 c2 c5 23 88 | c0 d8 c2 c5 23 88 c0 d9 |#.....#.|....#...|
|00001a00| c2 c5 23 88 c0 da c2 c5 | 23 88 c0 db c2 c3 23 88 |..#.....|#.....#.|
|00001a10| c0 dc c2 c5 23 88 c0 dd | c2 c5 23 88 c0 de c2 c5 |....#...|..#.....|
|00001a20| 23 88 c0 df c2 c3 23 88 | c0 e0 c2 c5 23 88 c0 e1 |#.....#.|....#...|
|00001a30| c2 c8 23 88 c0 e2 c2 c5 | 23 88 c0 e3 c2 c5 23 88 |..#.....|#.....#.|
|00001a40| c0 e4 c2 c5 23 88 c0 e5 | c2 c5 23 88 c0 e6 c2 c5 |....#...|..#.....|
|00001a50| 23 88 c0 e7 c2 c5 23 88 | c0 e8 c2 c5 23 88 c0 e9 |#.....#.|....#...|
|00001a60| c2 c5 23 88 c0 ea c2 c5 | 23 88 c0 eb c2 c5 23 88 |..#.....|#.....#.|
|00001a70| c0 ec c2 c5 23 88 c0 ed | c2 c5 23 88 c0 ee c2 c5 |....#...|..#.....|
|00001a80| 23 88 c0 ef c2 c5 23 88 | c0 f0 c2 c5 23 88 c0 f1 |#.....#.|....#...|
|00001a90| c2 c5 23 88 c0 f2 c2 c5 | 23 88 c0 f3 c2 c5 23 88 |..#.....|#.....#.|
|00001aa0| c0 f4 c2 c5 23 88 c0 f5 | c2 c5 23 88 c0 f6 c2 c5 |....#...|..#.....|
|00001ab0| 23 88 c0 f7 c2 c5 23 88 | c0 f8 c2 c5 23 88 c0 f9 |#.....#.|....#...|
|00001ac0| c2 c5 23 88 c0 87 22 20 | 5b 70 75 74 20 62 65 67 |..#..." |[put beg|
|00001ad0| 69 6e 20 73 63 68 65 6d | 65 2d 69 6e 64 65 6e 74 |in schem|e-indent|
|00001ae0| 2d 66 75 6e 63 74 69 6f | 6e 20 30 20 63 61 73 65 |-functio|n 0 case|
|00001af0| 20 31 20 64 65 6c 61 79 | 20 64 6f 20 32 20 6c 61 | 1 delay| do 2 la|
|00001b00| 6d 62 64 61 20 6c 65 74 | 20 73 63 68 65 6d 65 2d |mbda let| scheme-|
|00001b10| 6c 65 74 2d 69 6e 64 65 | 6e 74 20 6c 65 74 2a 20 |let-inde|nt let* |
|00001b20| 6c 65 74 72 65 63 20 73 | 65 71 75 65 6e 63 65 20 |letrec s|equence |
|00001b30| 63 61 6c 6c 2d 77 69 74 | 68 2d 69 6e 70 75 74 2d |call-wit|h-input-|
|00001b40| 66 69 6c 65 20 77 69 74 | 68 2d 69 6e 70 75 74 2d |file wit|h-input-|
|00001b50| 66 72 6f 6d 2d 66 69 6c | 65 20 77 69 74 68 2d 69 |from-fil|e with-i|
|00001b60| 6e 70 75 74 2d 66 72 6f | 6d 2d 70 6f 72 74 20 63 |nput-fro|m-port c|
|00001b70| 61 6c 6c 2d 77 69 74 68 | 2d 6f 75 74 70 75 74 2d |all-with|-output-|
|00001b80| 66 69 6c 65 20 77 69 74 | 68 2d 6f 75 74 70 75 74 |file wit|h-output|
|00001b90| 2d 74 6f 2d 66 69 6c 65 | 20 77 69 74 68 2d 6f 75 |-to-file| with-ou|
|00001ba0| 74 70 75 74 2d 74 6f 2d | 70 6f 72 74 20 73 63 68 |tput-to-|port sch|
|00001bb0| 65 6d 65 2d 6d 69 74 2d | 64 69 61 6c 65 63 74 20 |eme-mit-|dialect |
|00001bc0| 66 6c 75 69 64 2d 6c 65 | 74 20 69 6e 2d 70 61 63 |fluid-le|t in-pac|
|00001bd0| 6b 61 67 65 20 6c 65 74 | 2d 73 79 6e 74 61 78 20 |kage let|-syntax |
|00001be0| 6c 6f 63 61 6c 2d 64 65 | 63 6c 61 72 65 20 6d 61 |local-de|clare ma|
|00001bf0| 63 72 6f 20 6d 61 6b 65 | 2d 65 6e 76 69 72 6f 6e |cro make|-environ|
|00001c00| 6d 65 6e 74 20 6e 61 6d | 65 64 2d 6c 61 6d 62 64 |ment nam|ed-lambd|
|00001c10| 61 20 75 73 69 6e 67 2d | 73 79 6e 74 61 78 20 77 |a using-|syntax w|
|00001c20| 69 74 68 2d 69 6e 70 75 | 74 2d 66 72 6f 6d 2d 73 |ith-inpu|t-from-s|
|00001c30| 74 72 69 6e 67 20 77 69 | 74 68 2d 6f 75 74 70 75 |tring wi|th-outpu|
|00001c40| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 77 69 74 68 |t-to-str|ing with|
|00001c50| 2d 76 61 6c 75 65 73 20 | 73 79 6e 74 61 78 2d 74 |-values |syntax-t|
|00001c60| 61 62 6c 65 2d 64 65 66 | 69 6e 65 20 6c 69 73 74 |able-def|ine list|
|00001c70| 2d 74 72 61 6e 73 66 6f | 72 6d 2d 70 6f 73 69 74 |-transfo|rm-posit|
|00001c80| 69 76 65 20 6c 69 73 74 | 2d 74 72 61 6e 73 66 6f |ive list|-transfo|
|00001c90| 72 6d 2d 6e 65 67 61 74 | 69 76 65 20 6c 69 73 74 |rm-negat|ive list|
|00001ca0| 2d 73 65 61 72 63 68 2d | 70 6f 73 69 74 69 76 65 |-search-|positive|
|00001cb0| 20 6c 69 73 74 2d 73 65 | 61 72 63 68 2d 6e 65 67 | list-se|arch-neg|
|00001cc0| 61 74 69 76 65 20 61 63 | 63 65 73 73 2d 63 6f 6d |ative ac|cess-com|
|00001cd0| 70 6f 6e 65 6e 74 73 20 | 61 73 73 69 67 6e 6d 65 |ponents |assignme|
|00001ce0| 6e 74 2d 63 6f 6d 70 6f | 6e 65 6e 74 73 20 63 6f |nt-compo|nents co|
|00001cf0| 6d 62 69 6e 61 74 69 6f | 6e 2d 63 6f 6d 70 6f 6e |mbinatio|n-compon|
|00001d00| 65 6e 74 73 20 63 6f 6d | 6d 65 6e 74 2d 63 6f 6d |ents com|ment-com|
|00001d10| 70 6f 6e 65 6e 74 73 20 | 63 6f 6e 64 69 74 69 6f |ponents |conditio|
|00001d20| 6e 61 6c 2d 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 64 |nal-comp|onents d|
|00001d30| 69 73 6a 75 6e 63 74 69 | 6f 6e 2d 63 6f 6d 70 6f |isjuncti|on-compo|
|00001d40| 6e 65 6e 74 73 20 64 65 | 63 6c 61 72 61 74 69 6f |nents de|claratio|
|00001d50| 6e 2d 63 6f 6d 70 6f 6e | 65 6e 74 73 20 64 65 66 |n-compon|ents def|
|00001d60| 69 6e 69 74 69 6f 6e 2d | 63 6f 6d 70 6f 6e 65 6e |inition-|componen|
|00001d70| 74 73 20 64 65 6c 61 79 | 2d 63 6f 6d 70 6f 6e 65 |ts delay|-compone|
|00001d80| 6e 74 73 20 69 6e 2d 70 | 61 63 6b 61 67 65 2d 63 |nts in-p|ackage-c|
|00001d90| 6f 6d 70 6f 6e 65 6e 74 | 73 20 6c 61 6d 62 64 61 |omponent|s lambda|
|00001da0| 2d 63 6f 6d 70 6f 6e 65 | 6e 74 73 20 6c 61 6d 62 |-compone|nts lamb|
|00001db0| 64 61 2d 63 6f 6d 70 6f | 6e 65 6e 74 73 2a 20 6c |da-compo|nents* l|
|00001dc0| 61 6d 62 64 61 2d 63 6f | 6d 70 6f 6e 65 6e 74 73 |ambda-co|mponents|
|00001dd0| 2a 2a 20 6f 70 65 6e 2d | 62 6c 6f 63 6b 2d 63 6f |** open-|block-co|
|00001de0| 6d 70 6f 6e 65 6e 74 73 | 20 70 61 74 68 6e 61 6d |mponents| pathnam|
|00001df0| 65 2d 63 6f 6d 70 6f 6e | 65 6e 74 73 20 70 72 6f |e-compon|ents pro|
|00001e00| 63 65 64 75 72 65 2d 63 | 6f 6d 70 6f 6e 65 6e 74 |cedure-c|omponent|
|00001e10| 73 20 73 65 71 75 65 6e | 63 65 2d 63 6f 6d 70 6f |s sequen|ce-compo|
|00001e20| 6e 65 6e 74 73 20 75 6e | 61 73 73 69 67 6e 65 64 |nents un|assigned|
|00001e30| 5c 3f 2d 63 6f 6d 70 6f | 6e 65 6e 74 73 20 75 6e |\?-compo|nents un|
|00001e40| 62 6f 75 6e 64 5c 3f 2d | 63 6f 6d 70 6f 6e 65 6e |bound\?-|componen|
|00001e50| 74 73 20 76 61 72 69 61 | 62 6c 65 2d 63 6f 6d 70 |ts varia|ble-comp|
|00001e60| 6f 6e 65 6e 74 73 5d 20 | 34 29 0a 23 40 35 37 20 |onents] |4).#@57 |
|00001e70| 49 6e 64 65 6e 74 20 65 | 61 63 68 20 6c 69 6e 65 |Indent e|ach line|
|00001e80| 20 6f 66 20 74 68 65 20 | 6c 69 73 74 20 73 74 61 | of the |list sta|
|00001e90| 72 74 69 6e 67 20 6a 75 | 73 74 20 61 66 74 65 72 |rting ju|st after|
|00001ea0| 20 70 6f 69 6e 74 2e 1f | 0a 28 64 65 66 61 6c 69 | point..|.(defali|
|00001eb0| 61 73 20 27 73 63 68 65 | 6d 65 2d 69 6e 64 65 6e |as 'sche|me-inden|
|00001ec0| 74 2d 73 65 78 70 20 23 | 5b 6e 69 6c 20 22 c0 43 |t-sexp #|[nil ".C|
|00001ed0| c1 c0 89 89 89 89 1a 1b | 1c 1d 1e 06 1e 07 1e 08 |........|........|
|00001ee0| 8a c9 ca 21 88 29 8a c0 | 15 0d 3f 85 fe 00 0e 07 |...!.)..|..?.....|
|00001ef0| 16 0b c0 16 0c 0e 0c ac | bd 6d 89 15 ac b8 cd 60 |........|.m.....`|
|00001f00| c0 7f 88 60 c0 89 0b 25 | 89 13 40 16 07 ce 0b 9b |...`...%|..@.....|
|00001f10| 40 ab 8c cf 20 88 c0 7f | 88 ce 0b 9b c0 a0 88 d0 |@... ...|........|
|00001f20| 0b 9b 40 ab 8b ca 79 88 | d1 0b 9b c0 a0 88 aa 45 |..@...y.|.......E|
|00001f30| d2 89 16 0c ab 43 0e 07 | c1 58 89 15 ac 2b 0e 0b |.....C..|.X...+..|
|00001f40| 0e 07 56 ab 8d 0e 08 41 | 16 08 0e 0b 53 89 16 0b |..V....A|....S...|
|00001f50| aa 6e 0e 0b 0e 07 57 ab | 8e c0 0e 08 42 16 08 0e |.n....W.|....B...|
|00001f60| 0b 54 89 16 0b aa 6d ca | 79 88 60 16 06 d3 c0 77 |.T....m.|y.`....w|
|00001f70| 88 6d 84 1b 00 d4 d5 21 | 84 1b 00 0e 08 40 ab 8d |.m.....!|.....@..|
|00001f80| 0e 08 40 c1 59 ab 86 0e | 08 40 12 aa ae d6 0e 08 |..@.Y...|.@......|
|00001f90| 40 ad 84 0e 08 40 5b 21 | 89 1e 17 a8 ab 8a 0e 08 |@....@[!|........|
|00001fa0| 0e 17 89 12 a0 88 aa 92 | 0e 17 41 ab 89 0e 08 0e |........|..A.....|
|00001fb0| 17 41 40 5b a0 88 0e 17 | 40 12 29 69 5c 6e 55 84 |.A@[....|@.)i\nU.|
|00001fc0| 1b 00 0e 06 60 7c 88 5c | 6e 6a 88 82 1b 00 2e 08 |....`|.\|nj......|
|00001fd0| 87 22 20 5b 6e 69 6c 20 | 30 20 74 68 69 73 2d 69 |." [nil |0 this-i|
|00001fe0| 6e 64 65 6e 74 20 73 74 | 61 74 65 20 69 6e 6e 65 |ndent st|ate inne|
|00001ff0| 72 2d 6c 6f 6f 70 2d 64 | 6f 6e 65 20 6f 75 74 65 |r-loop-d|one oute|
|00002000| 72 2d 6c 6f 6f 70 2d 64 | 6f 6e 65 20 62 6f 6c 20 |r-loop-d|one bol |
|00002010| 6e 65 78 74 2d 64 65 70 | 74 68 20 69 6e 64 65 6e |next-dep|th inden|
|00002020| 74 2d 73 74 61 63 6b 20 | 66 6f 72 77 61 72 64 2d |t-stack |forward-|
|00002030| 73 65 78 70 20 31 20 6c | 61 73 74 2d 64 65 70 74 |sexp 1 l|ast-dept|
|00002040| 68 20 69 6e 6e 65 72 6c | 6f 6f 70 2d 64 6f 6e 65 |h innerl|oop-done|
|00002050| 20 70 61 72 73 65 2d 70 | 61 72 74 69 61 6c 2d 73 | parse-p|artial-s|
|00002060| 65 78 70 20 34 20 69 6e | 64 65 6e 74 2d 66 6f 72 |exp 4 in|dent-for|
|00002070| 2d 63 6f 6d 6d 65 6e 74 | 20 33 20 35 20 74 20 22 |-comment| 3 5 t "|
|00002080| 20 09 22 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 | ." look|ing-at "|
|00002090| 5b 3b 5c 6e 5d 22 20 63 | 61 6c 63 75 6c 61 74 65 |[;\n]" c|alculate|
|000020a0| 2d 73 63 68 65 6d 65 2d | 69 6e 64 65 6e 74 20 76 |-scheme-|indent v|
|000020b0| 61 6c 5d 20 38 20 28 23 | 24 20 2e 20 37 37 39 32 |al] 8 (#|$ . 7792|
|000020c0| 29 20 6e 69 6c 5d 29 0a | 28 70 72 6f 76 69 64 65 |) nil]).|(provide|
|000020d0| 20 27 73 63 68 65 6d 65 | 29 0a                   | 'scheme|).      |
+--------+-------------------------+-------------------------+--------+--------+