From: Chris Hanson Date: Fri, 14 Apr 1995 08:34:25 +0000 (+0000) Subject: Code that walked LAMBDA body was being too strict -- body should allow X-Git-Tag: 20090517-FFI~6455 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5b0da1fb195a0fcd756843292d3bdc5b681e8b9b;p=mit-scheme.git Code that walked LAMBDA body was being too strict -- body should allow definitions and expressions to be interspersed. --- diff --git a/v7/src/runtime/illdef.scm b/v7/src/runtime/illdef.scm index 661308ddf..46a45b549 100644 --- a/v7/src/runtime/illdef.scm +++ b/v7/src/runtime/illdef.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: illdef.scm,v 1.2 1995/04/14 08:21:32 cph Exp $ +$Id: illdef.scm,v 1.3 1995/04/14 08:34:25 cph Exp $ Copyright (c) 1991-95 Massachusetts Institute of Technology @@ -68,6 +68,7 @@ MIT in each case. |# (walk/expression expression 'ILLEGAL)) (define (walk/lambda expression context) + context (let loop ((expressions (sequence-actions