From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 2 Feb 1994 04:05:29 +0000 (+0000)
Subject: Fixed #F/() confusion.
X-Git-Tag: 20090517-FFI~7293
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=de2ab68dc60de5a105892239903aef9d0b77b929;p=mit-scheme.git

Fixed #F/() confusion.
---

diff --git a/v7/src/compiler/back/bitutl.scm b/v7/src/compiler/back/bitutl.scm
index 218f7a470..d7c9fe739 100644
--- 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 9fbc2a652..91028788b 100644
--- 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))