From 12fc25f3610fc10cff187403a3db518b78ffe7d1 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 31 Jul 1997 18:33:07 +0000 Subject: [PATCH] Fix bug in last change - apply STRING->SYMBOL to the string, not the `constant' expression containing the string. --- v7/src/sf/usiexp.scm | 6 +++--- v8/src/sf/usiexp.scm | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/v7/src/sf/usiexp.scm b/v7/src/sf/usiexp.scm index 986be3a6d..66c60d7df 100644 --- a/v7/src/sf/usiexp.scm +++ b/v7/src/sf/usiexp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: usiexp.scm,v 4.36 1997/07/31 10:40:38 adams Exp $ +$Id: usiexp.scm,v 4.37 1997/07/31 18:33:07 adams Exp $ Copyright (c) 1988-95 Massachusetts Institute of Technology @@ -555,7 +555,7 @@ MIT in each case. |# (null? (cdr operands))) (if-expanded (constant/make (and expr (object/scode expr)) - (string->symbol (car operands)))) + (string->symbol (constant/value (car operands))))) (if-not-expanded))) (define (intern-expansion expr operands if-expanded if-not-expanded block) @@ -566,7 +566,7 @@ MIT in each case. |# (null? (cdr operands))) (if-expanded (constant/make (and expr (object/scode expr)) - (intern (car operands)))) + (intern (constant/value (car operands))))) (if-not-expanded))) (define (int:->flonum-expansion expr operands if-expanded if-not-expanded diff --git a/v8/src/sf/usiexp.scm b/v8/src/sf/usiexp.scm index 8a7eaca16..9769c6359 100644 --- a/v8/src/sf/usiexp.scm +++ b/v8/src/sf/usiexp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: usiexp.scm,v 1.14 1997/07/31 10:39:37 adams Exp $ +$Id: usiexp.scm,v 1.15 1997/07/31 18:32:58 adams Exp $ Copyright (c) 1988-1995 Massachusetts Institute of Technology @@ -494,7 +494,7 @@ MIT in each case. |# (null? (cdr operands))) (if-expanded (constant/make (and expr (object/scode expr)) - (string->symbol (car operands)))) + (string->symbol (constant/value (car operands))))) (if-not-expanded))) (define (int:->flonum-expansion expr operands if-expanded if-not-expanded -- 2.25.1