Fixed #F/() confusion.

diff --git a/v7/src/runtime/lambdx.scm b/v7/src/runtime/lambdx.scm
index 24eeffa8abb6de0982087f1ceda00213dcdc0aca..195d5012f70bd671314562e2e7c461bc2a851c03 100644 (file)
--- a/v7/src/runtime/lambdx.scm
+++ b/v7/src/runtime/lambdx.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/lambdx.scm,v 14.3 1990/09/11 22:57:36 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/lambdx.scm,v 14.4 1994/01/29 21:53:03 adams Exp $
 
 Copyright (c) 1988, 1990 Massachusetts Institute of Technology
 
@@ -52,7 +52,7 @@ MIT in each case. |#
   (lambda-components* *lambda
     (lambda (name required optional rest body)
       (receiver (make-lambda-pattern name required optional rest)
-               (append required optional (if (null? rest) '() (list rest)))
+               (append required optional (if (false? rest) '() (list rest)))
                body))))
 
 (define-structure (lambda-pattern (conc-name lambda-pattern/))

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index cc4749dd50194a35ff39a550d7b47182b7c51d1b..e9168bae753ee4ffb2745f268a8f5d1e85c59219 100644 (file)
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.20 1993/03/07 20:56:21 cph Exp $
+$Id: record.scm,v 1.21 1994/01/29 21:54:17 adams Exp $
 
 Copyright (c) 1989-93 Massachusetts Institute of Technology
 
@@ -121,7 +121,7 @@ MIT in each case. |#
                  false
                  (->string type-name)
                  (list-copy field-names)
-                 false
+                 '()
                  false)))
     (%record-type-has-application-method! record-type)
     (add-to-population! record-type-population record-type)