From c329e9f1f998649dcfb830894ca92d16a3380a84 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 May 1987 13:31:58 +0000
Subject: [PATCH] In `unsyntax-shallow-FLUID-LET', turn lambda body into list
 of actions before mapping over it.

---
 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 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)
 			  '()
-- 
2.25.1