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 986be3a6dfe4f771f493605e4af8791468a90451..66c60d7df7fcc4487971abdbb4aa259f5e765985 100644 (file)
--- 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 8a7eaca16b987636130555a6febe0b0ea67544b4..9769c63596b3274e97de37160ac03fdafeba10b7 100644 (file)
--- 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