Move SCHINT to QUUX like RABBIT expects.

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 scheme gsb ejs
+      tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs
 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/scheme.tcl

@@ -9,6 +9,19 @@ respond "*" {(load "scheme; nschsy fasl")}
 respond "\n" "(schemedump)"
 respond "==>" "(quit)"
 
+# New Scheme interpreter
+respond "*" "complr\013"
+respond "_" "quux;_schint lsp\r"
+respond "_" "quux;_schmac lsp\r"
+respond "_" "quux;_schuuo lsp\r"
+respond "_" "\032"
+type ":kill\r"
+
+respond "*" ":link quux;scheme interp, schint fasl\r"
+respond "*" ":link quux;scheme macros, schmac fasl\r"
+respond "*" ":link quux;scheme uuohan, schuuo fasl\r"
+respond "*" ":lisp scheme (dump)\r"
+
 # Rabbit Scheme compiler
 respond "*" ":scheme;scheme\r"
 respond "==>" {(schload "scheme; rabbit")}
@@ -24,12 +37,3 @@ respond "==>" {(schload "scheme; rabbit fasl")}
 respond "==>" "(dumpit)"
 respond "Dump anyway" " "
 respond "TS RABBIT" "\r"
-
-# New Scheme interpreter
-respond "*" "complr\013"
-respond "_" "nschem;scheme interp_schint lsp\r"
-respond "_" "nschem;scheme macros_schmac lsp\r"
-respond "_" "nschem;scheme uuohan_schuuo lsp\r"
-respond "_" "\032"
-type ":kill\r"
-respond "*" ":lisp scheme (dump)\r"

src/quux/scheme.(dump)

@@ -1,9 +1,9 @@
 (comment)
 (progn
   (close (prog1 infile (inpush -1)))
-  (load "nschem; scheme interp")
-  (load "nschem; scheme macros")
-  (load "nschem; scheme uuohan")
+  (load "quux; scheme interp")
+  (load "quux; scheme macros")
+  (load "quux; scheme uuohan")
   (sstatus toplevel '(toplevel))
   (sstatus feature noldmsg)
   (gctwa)

src/quux/scheme.(init)

@@ -1,12 +1,13 @@
 ;; This was quux;scheme (init)
 ;; I moved it to nschem;   -maeda 5/26/89
+;; I moved it back to quux;   -Lars Brinkhoff 2018-04-13
 
 (comment list 60000. symbols 4000.)
 
 (progn (setq pure 1)
-       (fasload scheme interp dsk nschem)
-	(fasload scheme macros dsk nschem)
-	(fasload scheme uuohan dsk nschem)
+       (fasload scheme interp dsk quux)
+	(fasload scheme macros dsk quux)
+	(fasload scheme uuohan dsk quux)
        (setq alarmclock nil)
        (setq *displace-save-sw* nil)