From eb6023a829828a9010d9a91daf581da750be07bd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 24 Jul 1989 17:46:33 +0000 Subject: [PATCH] Don't use `intern' for constant labels. --- v7/src/compiler/back/lapgn3.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/back/lapgn3.scm b/v7/src/compiler/back/lapgn3.scm index deb7fbd70..f84b84980 100644 --- a/v7/src/compiler/back/lapgn3.scm +++ b/v7/src/compiler/back/lapgn3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.3 1989/04/15 18:04:19 cph Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn3.scm,v 4.4 1989/07/24 17:46:33 cph Rel $ Copyright (c) 1987, 1989 Massachusetts Institute of Technology @@ -46,7 +46,8 @@ MIT in each case. |# (define (allocate-constant-label) (let ((label - (intern (string-append "constant-" (number->string *next-constant*))))) + (string->uninterned-symbol + (string-append "constant-" (number->string *next-constant*))))) (set! *next-constant* (1+ *next-constant*)) label)) -- 2.25.1