From d703cbc23df4513750575667fbcbcc3c56121877 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Jul 1989 20:22:38 +0000 Subject: [PATCH] Bug: `walk/node' was being called with an incorrect number of arguments. --- v7/src/compiler/fgopt/simple.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1