From 1e97b8f799628e837ff4be703e24d58cb158ac8c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 7 Oct 2006 05:48:58 +0000 Subject: [PATCH] Fix typo. --- v7/src/compiler/machines/C/cout.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm index b5e920484..c143ae011 100644 --- a/v7/src/compiler/machines/C/cout.scm +++ b/v7/src/compiler/machines/C/cout.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: cout.scm,v 1.28 2006/10/06 04:53:35 cph Exp $ +$Id: cout.scm,v 1.29 2006/10/07 05:48:58 cph Exp $ Copyright 1993,1998,2006 Massachusetts Institute of Technology @@ -703,7 +703,7 @@ USA. (let ((entry (car table))) (iter (+ offset 1) (cdr table) - (cons (c:aref 'current-block (entry-label entry)) names) + (cons (c:cref (entry-label entry)) names) (cons (c:define (entry-label entry) offset) defines) (cons (entry-value entry) objects))) (receive (prefix suffix) -- 2.25.1