From 8036c5378af4ee4e1391a0dfe6e1f774ea4a78d3 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 9 Mar 1996 15:39:42 +0000
Subject: [PATCH] Fixed bug whereby ((lambda (x) x) 1 (f)) is unsyntaxed as
 (let ((x 1)) x).

---
 v7/src/runtime/unsyn.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index 08bd60fce..4251fb716 100644
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unsyn.scm,v 14.18 1995/08/29 14:06:45 adams Exp $
+$Id: unsyn.scm,v 14.19 1996/03/09 15:39:42 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -418,7 +418,8 @@ MIT in each case. |#
 		(lambda-components** operator
 		  (lambda (name required optional rest body)
 		    (if (and (null? optional)
-			     (false? rest))
+			     (false? rest)
+			     (= (length required) (length operands)))
 			(cond ((or (eq? name lambda-tag:unnamed)
 				   (eq? name lambda-tag:let))
 			       `(LET ,(unsyntax-let-bindings required operands)
-- 
2.25.1