From 0b8a11c6a0af3f661e672f15bd9a2530e8f8dd2b Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 29 Jan 1994 21:54:17 +0000
Subject: [PATCH] Fixed #F/() confusion.

---
 v7/src/runtime/lambdx.scm | 4 ++--
 v7/src/runtime/record.scm | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/runtime/lambdx.scm b/v7/src/runtime/lambdx.scm
index 24eeffa8a..195d5012f 100644
--- 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 cc4749dd5..e9168bae7 100644
--- 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)
-- 
2.25.1