From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 7 Sep 1995 20:53:56 +0000 (+0000)
Subject: Added more global expansions.
X-Git-Tag: 20090517-FFI~5974
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3896535f76e023501601347ae0b24b885d891587;p=mit-scheme.git

Added more global expansions.
---

diff --git a/v8/src/sf/usiexp.scm b/v8/src/sf/usiexp.scm
index 38c2ef778..595740220 100644
--- a/v8/src/sf/usiexp.scm
+++ b/v8/src/sf/usiexp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usiexp.scm,v 1.6 1995/08/29 14:56:39 adams Exp $
+$Id: usiexp.scm,v 1.7 1995/09/07 20:53:56 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -681,7 +681,7 @@ MIT in each case. |#
       (second             . ,second-expansion)
       (seventh            . ,seventh-expansion)
       (sixth              . ,sixth-expansion)
-      (string->symbol     . ,string->symbol-expansion)
+      ;;(string->symbol     . ,string->symbol-expansion)
       (symbol?            . ,symbol?-expansion)
       (third              . ,third-expansion)
       (values             . ,values-expansion)
@@ -709,6 +709,11 @@ MIT in each case. |#
     ASIN
     ATAN
     COS
+    EQV?
+    ERROR
+    ERROR:BAD-RANGE-ARGUMENT
+    ERROR:WRONG-TYPE-ARGUMENT
+    ERROR:WRONG-TYPE-DATUM
     EXP
     EXPT
     FOR-EACH
@@ -716,6 +721,7 @@ MIT in each case. |#
     MEMQ
     SIN
     SQRT
+    STRING->SYMBOL
     TAN
     ))