From 56b24a72dd9f1ddfe247629e91a2b5b7f1baf42c Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 11 Feb 1995 01:56:55 +0000
Subject: [PATCH] Changed pseudo-letify to LET-bind pseudo-simple expressions
 (e.g. %+) instead of merely simple expression because early-rewriting can
 produce these.

---
 v8/src/compiler/midend/utils.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 4996b1cd4..5121d0e16 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.10 1995/01/25 20:20:56 adams Exp $
+$Id: utils.scm,v 1.11 1995/02/11 01:56:55 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -228,7 +228,7 @@ MIT in each case. |#
   ;; non-continuation bindings.
   (if (and (for-all? bindings
 	     (lambda (binding)
-	       (and (form/simple? (cadr binding))
+	       (and (form/pseudo-simple? (cadr binding))
 		    (not (continuation-variable? (car binding))))))
 	   *after-cps-conversion?*)
       `(LET ,bindings
-- 
2.25.1