From de2ab68dc60de5a105892239903aef9d0b77b929 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 2 Feb 1994 04:05:29 +0000
Subject: [PATCH] Fixed #F/() confusion.

---
 v7/src/compiler/back/bitutl.scm | 4 ++--
 v7/src/compiler/back/syerly.scm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

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))
-- 
2.25.1