From f5833ad272c9782c9935eb9930bc30cb593d1c38 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 9 Feb 2004 08:15:48 +0000
Subject: [PATCH] Use FORCE-NODE instead of FORCE in case a previous optmizer
 already forced the nodes.

---
 scheme/opt/flatten.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/opt/flatten.scm b/scheme/opt/flatten.scm
index 40a8717..3196a6b 100644
--- a/scheme/opt/flatten.scm
+++ b/scheme/opt/flatten.scm
@@ -9,7 +9,7 @@
 (set-optimizer! 'flat-environments
   (lambda (forms package)
     (map (lambda (form)
-	   (flatten-form (force form)))
+	   (flatten-form (force-node form)))
 	 forms)))
 
 (define (flatten-form node)