From d8883241e14d9ebaa9084986249c1ac0c7957dc3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 10 Jan 1990 14:19:20 +0000 Subject: [PATCH] Fix typo from last edit. --- v7/src/runtime/scode.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/scode.scm b/v7/src/runtime/scode.scm index 65d51a930..611939f71 100644 --- a/v7/src/runtime/scode.scm +++ b/v7/src/runtime/scode.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 14.7 1990/01/04 06:43:35 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 14.8 1990/01/10 14:19:20 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -118,7 +118,7 @@ MIT in each case. |# (define (symbol-name symbol) (if (not (symbol? symbol)) (error error-type:wrong-type-argument symbol)) - (symbol-name symbol)) + (system-pair-car symbol)) (define-integrable (symbol->string symbol) (string-copy (symbol-name symbol))) -- 2.25.1