Initial release
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Fri, 28 Feb 1992 20:23:57 +0000 (20:23 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Fri, 28 Feb 1992 20:23:57 +0000 (20:23 +0000)
27 files changed:
v7/src/compiler/machines/i386/assmd.scm
v7/src/compiler/machines/i386/coerce.scm
v7/src/compiler/machines/i386/compiler.cbf
v7/src/compiler/machines/i386/compiler.pkg
v7/src/compiler/machines/i386/compiler.sf
v7/src/compiler/machines/i386/dassm1.scm
v7/src/compiler/machines/i386/dassm2.scm
v7/src/compiler/machines/i386/dassm3.scm
v7/src/compiler/machines/i386/decls.scm
v7/src/compiler/machines/i386/inerly.scm
v7/src/compiler/machines/i386/insmac.scm
v7/src/compiler/machines/i386/instr1.scm
v7/src/compiler/machines/i386/instr2.scm
v7/src/compiler/machines/i386/instrf.scm
v7/src/compiler/machines/i386/insutl.scm
v7/src/compiler/machines/i386/lapgen.scm
v7/src/compiler/machines/i386/lapopt.scm
v7/src/compiler/machines/i386/machin.scm
v7/src/compiler/machines/i386/make.scm
v7/src/compiler/machines/i386/rgspcm.scm
v7/src/compiler/machines/i386/rules1.scm
v7/src/compiler/machines/i386/rules2.scm
v7/src/compiler/machines/i386/rules3.scm
v7/src/compiler/machines/i386/rules4.scm
v7/src/compiler/machines/i386/rulfix.scm
v7/src/compiler/machines/i386/rulflo.scm
v7/src/compiler/machines/i386/rulrew.scm

index 5a43221f0eae3edc1178232c6cc8c811ac3d8d6c..8751f1ce04f0fc0bdf656a615db9887a69617375 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/assmd.scm,v 1.1 1992/02/08 02:28:48 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/assmd.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: assmd.scm,v 1.36 89/08/28 18:33:33 GMT cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 93f1cdceb3de0a4c6367d147e795630aa863b68a..98303c455fbe77c0c7695b472eb4b72a535ddae5 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/coerce.scm,v 1.1 1992/02/13 03:13:38 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/coerce.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: coerce.scm,v 1.10 88/08/31 05:56:37 GMT cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index ecd1f2dec44fed3d4ea5512098ff4f5cabd75148..ab857fc072f615e9f2918953e92fc36cd10ab356 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.cbf,v 1.1 1992/02/13 03:44:01 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.cbf,v 1.2 1992/02/28 20:23:57 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index 059586e92df596951aecf979ee8ecda72b0bc8aa..08b1fe2c76b2eff57df145dbb805c04c133cc171 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.pkg,v 1.5 1992/02/17 22:35:20 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.pkg,v 1.6 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/comp.pkg,v 1.32 1991/05/06 23:09:24 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index d11c77be523d9ade1c9092a7c35123639eebfe8c..3f91c3c35d14c90fd1f5321d4b92960675e95023 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.sf,v 1.2 1992/02/13 03:49:32 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/compiler.sf,v 1.3 1992/02/28 20:23:57 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index 909506b5e252f2abd5f14acb3b87e264406befd6..ec6475800b816307e15faf1cbd2c3c371a5d17cf 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm1.scm,v 1.3 1992/02/13 03:35:38 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm1.scm,v 1.4 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: dassm1.scm,v 4.15 90/07/12 16:42:39 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index dbbbee10a5251d816d60118efb489e699879b92e..2daafdab14ca8a04f4b3e2b82016a684e8b88988 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm2.scm,v 1.2 1992/02/13 05:28:18 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm2.scm,v 1.3 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/dassm2.scm,v 4.18 1991/05/07 13:46:04 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 2892c94a881b5c9d75cd6664036a05b598b658e5..0034adf50f7872f4d5253c70b23c7ab171763292 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm3.scm,v 1.1 1992/02/13 03:38:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/dassm3.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index b6d6dd28f74f8c0e6b98d96b63e34fdb28b6652b..6922799b3511eb556a6e092886d71a337e096dbf 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/decls.scm,v 1.1.1.1 1992/02/19 22:02:51 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/decls.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: decls.scm,v 4.27 90/05/03 15:17:08 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -53,7 +53,7 @@ MIT in each case. |#
 
 (define (setup-source-nodes!)
   (let ((filenames
-        (mapcan
+        (append-map!
          (lambda (subdirectory)
            (map (lambda (pathname)
                   (string-append subdirectory
@@ -100,7 +100,7 @@ MIT in each case. |#
                   (conc-name source-node/)
                   (constructor make/source-node (filename)))
   (filename false read-only true)
-  (pathname (string->pathname filename) read-only true)
+  (pathname (->pathname filename) read-only true)
   (forward-links '())
   (backward-links '())
   (forward-closure '())
@@ -283,14 +283,14 @@ MIT in each case. |#
   (if (file-exists? pathname)
       (begin
        (write-string "\nTouch file: ")
-       (write (pathname->string pathname))
+       (write (enough-namestring pathname))
        (file-touch pathname))))
 
 (define (pathname-delete! pathname)
   (if (file-exists? pathname)
       (begin
        (write-string "\nDelete file: ")
-       (write (pathname->string pathname))
+       (write (enough-namestring pathname))
        (delete-file pathname))))
 
 (define (sc filename)
@@ -578,7 +578,10 @@ MIT in each case. |#
                  (make-pathname
                   false
                   false
-                  (make-list (length (pathname-directory pathname)) 'UP)
+                  (cons 'RELATIVE
+                        (make-list
+                         (length (cdr (pathname-directory pathname)))
+                         'UP))
                   false
                   false
                   false)))
index 6e5a32c34f27daf7c1a007bc89e34b3b55575f41..8e9e393f49a5b477ea781d957eb9e2e9c53d88f6 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/inerly.scm,v 1.1 1992/02/13 02:57:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/inerly.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: inerly.scm,v 1.6 88/08/31 06:00:59 GMT cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index cca5bfda6e8d52f3e11c317da90334386f039d28..bd9b9d54da9a8f49acb37b6c7a893fc307856ead 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.9 1992/02/13 19:55:02 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insmac.scm,v 1.10 1992/02/28 20:22:42 jinx Exp $
 $Vax-Header: insmac.scm,v 1.12 89/05/17 20:29:15 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 1e920bd7a8d2bdcbc7a7e35cb0f56b0aa5c23c9d..94d7366e5ecd2ebff5c230a138000eb1e286f73a 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instr1.scm,v 1.9 1992/02/18 04:35:22 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instr1.scm,v 1.10 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index d412e9eccdc36dfa488f75ad540fa875d9cd0eaa..8655f3b9c282c5fd9504e9e2063908aa95e28c6a 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instr2.scm,v 1.2 1992/02/18 01:52:23 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instr2.scm,v 1.3 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index 65c0c55f7ae5faa6eac893d3e2e0e42cdb532921..02a4d10089630d8845f4dd49a527b8cd3b618f16 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.9 1992/02/19 05:38:05 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/instrf.scm,v 1.10 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index 0396051ff898323005ec5d5d185e2fa51e0d3763..5077bb62b7c623e98f6a27105b1a84aeb896be4f 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insutl.scm,v 1.9 1992/02/16 02:04:31 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/insutl.scm,v 1.10 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index 9e4296366ea835b46213c44705a2f8fed4ea025e..8a8c69eb17889a0fa6ac6d492c3d6379785aec1b 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.18 1992/02/25 16:42:55 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.19 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.42 1991/05/28 19:14:26 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 32001cdd3695fd167926f5e67b4a695cf8b22dab..bf21f9ac69a1df6ce922214e63720f48f4a35483 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapopt.scm,v 1.1 1992/02/13 03:05:14 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapopt.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
index 31e6b8258ad356a38ea4fd94acaef7a512365af1..d5bcfe154106e963455ada84cfa2496b09318d9d 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.11 1992/02/19 04:17:17 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/machin.scm,v 1.12 1992/02/28 20:22:42 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/machin.scm,v 4.26 1991/10/25 06:49:34 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 9690a31d6cc93cc41ff1462c3288ed90390abd52..596818cdedf84a3dea062637fd878bb4945c0013 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/make.scm,v 1.1.1.2 1992/02/20 21:22:57 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/make.scm,v 1.2 1992/02/28 20:22:42 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -36,9 +36,4 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-(package/system-loader "comp" '() 'QUERY)
-(for-each (lambda (name)
-           ((package/reference (find-package name) 'INITIALIZE-PACKAGE!)))
-         '((COMPILER MACROS)
-           (COMPILER DECLARATIONS)))
-(add-system! (make-system "Liar (Intel i386)" 4 87 '()))
\ No newline at end of file
+((load "base/make") "Intel i386")
\ No newline at end of file
index 630dd20410d99abb1fa84d362173c49a9498a475..f5daffefaf889c304e8e4ff03c98397b612a1c62 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rgspcm.scm,v 1.2 1992/02/13 03:01:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rgspcm.scm,v 1.3 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/rgspcm.scm,v 4.2 1991/05/06 23:17:03 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 706d6d8a98142d3bda2ea3c6e5280a8f0d736259..e2f0efb41c122f06bca31a7fa66b14151cc9c311 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules1.scm,v 1.14 1992/02/18 01:53:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules1.scm,v 1.15 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index d3ca5c3ad90f07fbf063d516451d9df43ab012de..686393be83866ca794a4ebffada8d5b1841f8a10 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules2.scm,v 1.4 1992/02/13 19:04:05 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules2.scm,v 1.5 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: rules2.scm,v 4.12 90/01/18 22:44:04 GMT cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 01423da3caf251d32361ee2c1dd91e3fc9d6864b..0556cbb03ce65c39f8c607f710070860d880b15c 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules3.scm,v 1.21 1992/02/25 16:42:38 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules3.scm,v 1.22 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/compiler/bobcat/RCS/rules3.scm,v 4.31 1991/05/28 19:14:55 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index b20f439cc4ba5a6df5424c1fb81836d16365e993..6c05810cfeac82fd819256588cf4e5c97c83a678 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules4.scm,v 1.5 1992/02/25 16:43:10 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rules4.scm,v 1.6 1992/02/28 20:23:57 jinx Exp $
 $mc68020-Header: rules4.scm,v 4.12 90/05/03 15:17:38 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index bb9cd17cd912e19039eaf9c64ef9d7777678bedf..ea86b60583f11e38566d0bdf3f0e515533748857 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulfix.scm,v 1.21 1992/02/18 21:56:48 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulfix.scm,v 1.22 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index 178fa9928d549ea4f085c836f3ea97d0ec00261d..1f45f791090be9c16dbb5299b330c8c68dafe544 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulflo.scm,v 1.16 1992/02/19 06:18:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulflo.scm,v 1.17 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rules1.scm,v 4.36 1991/10/25 06:49:58 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
index e0ebdd3f2b40b23d3b013b1b0396f4f9b0166da1..1ff87e2255a4033cb38c683311471830de3d4313 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulrew.scm,v 1.9 1992/02/18 22:57:48 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/rulrew.scm,v 1.10 1992/02/28 20:23:57 jinx Exp $
 $MC68020-Header: /scheme/src/compiler/machines/bobcat/RCS/rulrew.scm,v 1.4 1991/10/25 06:50:06 cph Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology