From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 31 Jul 1997 18:33:07 +0000 (+0000)
Subject: Fix bug in last change - apply STRING->SYMBOL to the string, not the
X-Git-Tag: 20090517-FFI~5030
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=12fc25f3610fc10cff187403a3db518b78ffe7d1;p=mit-scheme.git

Fix bug in last change - apply STRING->SYMBOL to the string, not the
`constant' expression containing the string.
---

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