Fixed #F/() confusion.

diff --git a/v7/src/compiler/back/bitutl.scm b/v7/src/compiler/back/bitutl.scm
index 218f7a47078afcdaee73d18ad0bd5cbd9722028c..d7c9fe73913395b56f05ef4758f794226169a33f 100644 (file)
--- a/v7/src/compiler/back/bitutl.scm
+++ b/v7/src/compiler/back/bitutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bitutl.scm,v 1.8 1993/12/23 11:14:25 cph Exp $
+$Id: bitutl.scm,v 1.9 1994/02/02 04:03:50 adams Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -124,7 +124,7 @@ MIT in each case. |#
 
 (define (find-operator keyword)
   (let ((place (assq keyword operators)))
-    (if (null? place)
+    (if (not place)
        (error "evaluate: unknown operator:" keyword))
     ((cdr place))))
 

diff --git a/v7/src/compiler/back/syerly.scm b/v7/src/compiler/back/syerly.scm
index 9fbc2a652e000c2bfc0cab042f1b9fc687c71f0b..91028788b995a798e09e70104e6d828ebdcc77f4 100644 (file)
--- a/v7/src/compiler/back/syerly.scm
+++ b/v7/src/compiler/back/syerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syerly.scm,v 1.9 1993/12/08 17:44:21 gjr Exp $
+$Id: syerly.scm,v 1.10 1994/02/02 04:05:29 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -61,7 +61,7 @@ MIT in each case. |#
                  operands)))
               (else
                (let ((place (assq (car instruction) early-instructions)))
-                 (if (null? place)
+                 (if (not place)
                      (ierror "unknown opcode"))
                  (let ((opcode (car instruction))
                        (body (cdr instruction))