From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 29 Jan 1994 21:23:20 +0000 (+0000)
Subject: Fixed  null? -> false?
X-Git-Tag: 20090517-FFI~7316
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1343a4f656c7c2fbfd4191cf788607d3c5dcb771;p=mit-scheme.git

Fixed  null? -> false?
---

diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index 36395956a..943538cd6 100644
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unsyn.scm,v 14.13 1992/11/03 22:41:50 jinx Exp $
+$Id: unsyn.scm,v 14.14 1994/01/29 21:23:20 adams Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -378,7 +378,7 @@ MIT in each case. |#
 		(lambda-components** operator
 		  (lambda (name required optional rest body)
 		    (if (and (null? optional)
-			     (null? rest))
+			     (false? rest))
 			(cond ((or (eq? name lambda-tag:unnamed)
 				   (eq? name lambda-tag:let))
 			       `(LET ,(unsyntax-let-bindings required operands)