From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Jul 1989 20:22:38 +0000 (+0000)
Subject: Bug: `walk/node' was being called with an incorrect number of
X-Git-Tag: 20090517-FFI~11951
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d703cbc23df4513750575667fbcbcc3c56121877;p=mit-scheme.git

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 7d88a0022..cb8de89b2 100644
--- 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)
 
 (define (walk/node node continuation)