Update RABBIT, and compile it with itself.

RABBIT 570 has a (DECLARE (NEWIO T)) form which doesn't go over well
with the latest Maclisp compiler.  The fix is to just delete the
declaration.

build/build.tcl

@@ -2033,6 +2033,24 @@ respond "*" {(load "scheme; nschsy fasl")}
 respond "\n" "(schemedump)"
 respond "==>" "(quit)"
 
+if 0 { # Takes too much time 
+# Rabbit Scheme compiler
+respond "*" ":scheme;scheme\r"
+respond "==>" {(schload "scheme; rabbit")}
+respond "==>" {(comfile "scheme; rabbit")}
+expect -timeout 1000 "COMPILE TIME:"
+respond "==>" "(quit)"
+respond "*" ":complr\r"
+respond "_" "scheme;_rabbit lisp\r"
+respond "_" "\032"
+type ":kill\r"
+respond "*" ":scheme;scheme\r"
+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"

doc/programs.md

@@ -151,6 +151,7 @@
 - SYSCHK, check up on system job.
 - SYSLOD, system load histogram.
 - SYSMSG, displays system messages.
+- RABBIT, Scheme compiler.
 - TAGS, generate tags table for sources.
 - TALK/WHO/WHOJ/WHOM/USERS, list users.
 - TCTYP and CRTSTY, terminal handling.

doc/scheme/rabbit.info

@@ -0,0 +1,11 @@
+DSK:SCHEME;TS RABBIT is DSK:SCHEME;RABBIT CXFASL from MC:QUUX;RABBIT CXFASL
+as below loaded into an NSCHSY 77 SCHEME.  RABBIT CXFASL was generated from
+RABBIT 547.  PROMPT has been set.
+
+MC   QUUX  
+FREE BLOCKS #0=338 #1=395 #13=314 
+  1   RABBIT 547     24 +727    3/02/78 00:51:34  (3/02/78)
+  1   RABBIT CXFASL  65 +131    3/02/78 23:02:32  (3/03/78)
+  13  RABBIT CXLISP 142 +888    3/02/78 22:32:15  (3/03/78)
+  1   RABBIT CXUNFA   0  +53    3/02/78 23:02:32  (3/02/78)
+

src/quux/schmac.fasl

@@ -0,0 +1 @@
+nschem/schmac.fasl

src/scheme/rabbit.571

@@ -1,7 +1,7 @@
 ;;; RABBIT COMPILER   -*-LISP-*-
 
 (DECLARE (FASLOAD (QUUX) SCHMAC))
-(DECLARE (MACROS T) (NEWIO T))
+(DECLARE (MACROS T))
 (DECLARE (ALLOC '(LIST (300000 450000 .2) FIXNUM 50000 SYMBOL 24000)))
 (DECLARE (DEFUN DISPLACE (X Y) Y))