Use FORCE-NODE instead of FORCE in case a previous optmizer already

forced the nodes.
2004-02-09 08:15:48 +00:00 · 2004-02-09 08:15:48 +00:00 · f5833ad272
parent bdf5f8e09f
commit f5833ad272
1 changed files with 1 additions and 1 deletions
--- 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)