Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!mips!spool.mu.edu!snorkelwacker.mit.edu!ai-lab!zurich.ai.mit.edu!jaffer
From: jaffer@zurich.ai.mit.edu (Aubrey Jaffer)
Newsgroups: comp.lang.scheme
Subject: patches for scm2b
Message-ID: <JAFFER.91Apr26115721@kleph.ai.mit.edu>
Date: 26 Apr 91 15:57:21 GMT
Sender: news@ai.mit.edu
Distribution: comp.lang.scheme,comp.archives
Organization: M.I.T. Artificial Intelligence Lab.
Lines: 12

In line 635 of eval.c change:
		args = EXTEND_ENV(CAR(CODE(proc)),cons(arg1,args),ENV(proc));
to:
		args = EXTEND_ENV(CAR(CODE(proc)),
				  (UNBNDP(arg1) ? EOL : cons(arg1,args)),
				   ENV(proc));
This fixes (apply list '())

In sys.c remove line 968:
	ASSERT(ilength(code)>1,code,ARG1,ISYMCHARS(I_LAMBDA));

This fixes (define (foo) ((lambda () bar)))