From 1073e2af3c5a1c47142c24205c3dd64429f7d845 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 2 Jan 1988 16:45:01 +0000 Subject: [PATCH] Fix bug in codewalk -- was not looking at `procedure-values'. --- v7/src/compiler/fgopt/offset.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/fgopt/offset.scm b/v7/src/compiler/fgopt/offset.scm index 104a4fcd0..40b23bcec 100644 --- a/v7/src/compiler/fgopt/offset.scm +++ b/v7/src/compiler/fgopt/offset.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/offset.scm,v 4.1 1987/12/30 06:47:51 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fgopt/offset.scm,v 4.2 1988/01/02 16:45:01 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -53,7 +53,9 @@ MIT in each case. |# continuation-type/push) (1+ (continuation/offset procedure)) (continuation/offset procedure))) - (walk-node (procedure-entry-node procedure) 0)))))) + (begin + (for-each walk-rvalue (procedure-values procedure)) + (walk-node (procedure-entry-node procedure) 0))))))) (define (walk-node node offset) (let ((offset* (node/offset node))) -- 2.25.1