From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 May 1987 13:31:58 +0000 (+0000)
Subject: In `unsyntax-shallow-FLUID-LET', turn lambda body into list of actions
X-Git-Tag: 20090517-FFI~13464
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c329e9f1f998649dcfb830894ca92d16a3380a84;p=mit-scheme.git

In `unsyntax-shallow-FLUID-LET', turn lambda body into list of actions
before mapping over it.
---

diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index 4c4e0494b..4bbd10e60 100644
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unsyn.scm,v 13.44 1987/05/21 16:41:30 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unsyn.scm,v 13.45 1987/05/29 13:31:58 cph Exp $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -331,7 +331,8 @@
   (combination-components body
     (lambda (operator operands)
       `(FLUID-LET ,(unsyntax-let-bindings
-		    (map extract-transfer-var (lambda-body (car operands)))
+		    (map extract-transfer-var
+			 (sequence-actions (lambda-body (car operands))))
 		    (let every-other ((values values))
 		      (if (null? values)
 			  '()