scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

forced the nodes.
This commit is contained in:
mainzelm 2004-02-09 08:15:48 +00:00
parent bdf5f8e09f
commit f5833ad272
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/opt/flatten.scm
View File

@ -9,7 +9,7 @@
(set-optimizer! 'flat-environments (set-optimizer! 'flat-environments
(lambda (forms package) (lambda (forms package)
(map (lambda (form) (map (lambda (form)
(flatten-form (force form))) (flatten-form (force-node form)))
forms))) forms)))
(define (flatten-form node) (define (flatten-form node)