Fixed #F/() confusion.

diff --git a/v7/src/compiler/base/pmerly.scm b/v7/src/compiler/base/pmerly.scm
index 3870b04dc6c0de078beebb1f0c0a6fe002efb4cc..dca66c164a6894cfc87ea64a490a6d1c12dc4e08 100644 (file)
--- a/v7/src/compiler/base/pmerly.scm
+++ b/v7/src/compiler/base/pmerly.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/pmerly.scm,v 1.7 1988/06/14 08:32:44 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/pmerly.scm,v 1.8 1994/02/02 03:35:09 adams Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -251,7 +251,7 @@ MIT in each case. |#
   (let ((name (car var+pattern))
        (expression (cdr var+pattern)))
     (let ((var (assq name variables)))
-      (cond ((null? var)
+      (cond ((not var)
             (error "match-bind: nonexistent variable"
                    name variables))
            ((null? (cdr var))
@@ -445,7 +445,7 @@ MIT in each case. |#
 
 (define (path-step step path expression receiver)
   (let ((info (assq path path-compressions)))
-    (cond ((null? info)
+    (cond ((not info)
           (receiver step expression))
          ((null? (cadr info))
           (receiver step
@@ -480,7 +480,7 @@ MIT in each case. |#
 (define (find-transformer expression)
   (and (symbol? expression)
        (let ((place (assq expression *transformers*)))
-        (and (not (null? place))
+        (and place
              (cdr place)))))
 \f
 ;;;; Database transformers
@@ -558,7 +558,7 @@ MIT in each case. |#
           (receiver false false))
          ((symbol? exp)
           (let ((pair (assq exp alist)))
-            (if (null? pair)
+            (if (not pair)
                 (transformer-fail receiver)
                 (transformer-result receiver name rename (cdr pair) exp))))
          ((evaluation? exp)
@@ -610,7 +610,7 @@ MIT in each case. |#
                      (apply-transformer texp name rename exp receiver))
                     (else
                      (let ((place (assq (car symbols) alist)))
-                       (if (null? place)
+                       (if (not place)
                            (transformer-fail receiver)
                            (begin (bit-string-set! mask (cdr place))
                                   (loop (cdr symbols))))))))

diff --git a/v7/src/compiler/base/proced.scm b/v7/src/compiler/base/proced.scm
index 16613e97ce7a1bdeef728d203f6e6ab954f2e4a3..4fb76a06d4df9a6a9e6d1398eae5d742fc1a7f0a 100644 (file)
--- a/v7/src/compiler/base/proced.scm
+++ b/v7/src/compiler/base/proced.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: proced.scm,v 4.18 1994/02/02 01:48:25 gjr Exp $
+$Id: proced.scm,v 4.19 1994/02/02 03:32:52 adams Exp $
 
-Copyright (c) 1988-1994 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -88,24 +88,24 @@ MIT in each case. |#
                      (list-copy optional)
                      (if (eq? type continuation-type/procedure)
                          rest
-                         '())
-                     (generate-label name)     ; label
-                     false                     ; applications
-                     false                     ; always-known-operator?
-                     false                     ; closure-cons
-                     false                     ; closure-context
-                     false                     ; closure-offset
-                     false                     ; register
-                     false                     ; closure-size
-                     false                     ; target-block
-                     false                     ; initial-callees
-                     false                     ; free-callees/callees
-                     false                     ; free-callers/callers
-                     false                     ; virtual-closure?
-                     '()                       ; closure-reasons
-                     '()                       ; variables/side-effects
-                     '()                       ; alist
-                     false                     ; debugging-info
+                         '())          ;initial continuation/combinations
+                     (generate-label name)
+                     '()               ;applications
+                     false             ;always-known-operator?
+                     false             ;closure-cons
+                     false             ;closure-context
+                     false             ;closure-offset
+                     false             ;register
+                     false             ;closure-size
+                     false             ;target-block
+                     '()               ;initial-callees
+                     '()               ;[free-]callees
+                     '()               ;[free-]callers
+                     false             ;virtual-closure?
+                     '()               ;closure-reasons
+                     '()               ;variables or side-effects
+                     '()               ;alist
+                     false             ;debugging-info
                      )))
     (set! *procedures* (cons procedure *procedures*))
     (set-block-procedure! block procedure)
@@ -303,7 +303,7 @@ MIT in each case. |#
 (define (add-closure-reason! procedure reason1 reason2)
   (let ((reasons (procedure-closure-reasons procedure)))
     (let ((slot (assq reason1 reasons)))
-      (cond ((null? slot)
+      (cond ((false? slot)
             (set-procedure-closure-reasons!
              procedure
              (cons (cons reason1