From e39d8124cd8932395efead786e0fe5f51507e923 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Tue, 26 May 1992 20:32:35 +0000 Subject: [PATCH] Fix typo. --- v7/src/runtime/infutl.scm | 4 ++-- v8/src/runtime/infutl.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index 596ac8387..0961bcd8e 100644 --- a/v7/src/runtime/infutl.scm +++ b/v7/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.30 1992/05/26 20:06:18 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.31 1992/05/26 20:32:35 mhwu Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -424,7 +424,7 @@ MIT in each case. |# (vector-set! bsm pos labels) (set-dbg-info/labels/desc! dbg-info - (and bsmnname (cons bsmname pos))) + (and bsmname (cons bsmname pos))) (loop (fix:1+ pos)))))))) (else (error "Unknown inf file format" infpath))))) diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm index 8187effa8..eb0cc54a0 100644 --- a/v8/src/runtime/infutl.scm +++ b/v8/src/runtime/infutl.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.30 1992/05/26 20:06:18 mhwu Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.31 1992/05/26 20:32:35 mhwu Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -424,7 +424,7 @@ MIT in each case. |# (vector-set! bsm pos labels) (set-dbg-info/labels/desc! dbg-info - (and bsmnname (cons bsmname pos))) + (and bsmname (cons bsmname pos))) (loop (fix:1+ pos)))))))) (else (error "Unknown inf file format" infpath))))) -- 2.25.1