Build the NSCHSY interpreter.

Makefile

@@ -9,7 +9,7 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       inquir acount gz sys decsys ecc alan sail kcc kcc_sy c games archy dcp \
       spcwar rwg libmax rat z emaxim rz maxtul aljabr cffk das ell ellen \
       jim jm jpg macrak maxdoc maxsrc mrg munfas paulw reh rlb rlb% share \
-      tensor transl wgd zz graphs lmlib pratt nschem
+      tensor transl wgd zz graphs lmlib pratt nschem scheme
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc chprog
 BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon graphs
 

build/build.tcl

@@ -2022,6 +2022,17 @@ respond "*" ":link lisp;defns mid,l;defns >\r"
 respond "*" ":midas liblsp;_libdoc;fft\r"
 respond "*" ":midas liblsp;_libdoc;phase\r"
 
+# Old? Scheme interpreter
+respond "*" "complr\013"
+respond "_" "scheme;_nschsy\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":lisp\r"
+respond "Alloc?" "n"
+respond "*" {(load "scheme; nschsy fasl")}
+respond "\n" "(schemedump)"
+respond "==>" "(quit)"
+
 # New Scheme interpreter
 respond "*" "complr\013"
 respond "_" "nschem;scheme interp_schint lsp\r"

src/scheme/nschsy.(init)

@@ -0,0 +1,13 @@
+;;; -*-LISP-*-
+
+(comment list 40000. symbols 4000.)
+
+(progn (setq pure 1)
+       (fasload (ai scheme) nschsy fasl)
+       (setq **swapping** nil) ;Default is not to time-share.
+       (setq *displace-save-sw* nil)
+       ((lambda (fn) (and (probef fn) (apply 'uread fn)))
+	(list (list 'dsk (status homedir)) (status userid) 'scheme))
+       (defaultf (list (list 'dsk (status udir))
+		       'foo '>))
+       (scheme t '|SCHEME: Top Level|))