From 0ebb4209edbc4321fadc34d6004a233005e1c4f5 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 26 Aug 1991 15:07:35 +0000 Subject: [PATCH] Introduced variables have better names. --- v7/src/compiler/fggen/fggen.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/fggen/fggen.scm b/v7/src/compiler/fggen/fggen.scm index 04747be6d..663555623 100644 --- a/v7/src/compiler/fggen/fggen.scm +++ b/v7/src/compiler/fggen/fggen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.28 1991/06/14 21:19:42 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/fggen/fggen.scm,v 4.29 1991/08/26 15:07:35 jinx Exp $ Copyright (c) 1988-1991 Massachusetts Institute of Technology @@ -689,8 +689,8 @@ MIT in each case. |# expression name value) (generate/combination block continuation context - (let ((old-value (generate-uninterned-symbol)) - (new-value (generate-uninterned-symbol))) + (let ((old-value (generate-uninterned-symbol "set-old-")) + (new-value (generate-uninterned-symbol "set-new-"))) (scode/make-let (list new-value) (list value) (scode/make-let (list old-value) @@ -753,7 +753,7 @@ MIT in each case. |# (scode/make-conditional predicate true alternative)) (generate/combination block continuation context - (let ((temp (generate-uninterned-symbol))) + (let ((temp (generate-uninterned-symbol "or-predicate-"))) (scode/make-let (list temp) (list predicate) (let ((predicate (scode/make-variable temp))) -- 2.25.1