Bug: `walk/node' was being called with an incorrect number of

arguments.

diff --git a/v7/src/compiler/fgopt/simple.scm b/v7/src/compiler/fgopt/simple.scm
index 7d88a0022558bb75b31ebae39f0572a665c7c806..cb8de89b2a69205c29e38d74c69cae927efb80a4 100644 (file)
--- a/v7/src/compiler/fgopt/simple.scm
+++ b/v7/src/compiler/fgopt/simple.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/simple.scm,v 4.4 1989/01/21 09:09:28 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/simple.scm,v 4.5 1989/07/18 20:22:38 cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -68,7 +68,7 @@ MIT in each case. |#
            (let ((prefix (subproblem-prefix subproblem)))
              (if (cfg-null? prefix)
                  true
-                 (walk/node (cfg-entry-node prefix)))))))
+                 (walk/node (cfg-entry-node prefix) false))))))
   unspecific)
 \f
 (define (walk/node node continuation)