From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 29 Apr 1995 13:18:05 +0000 (+0000)
Subject: Added expansion for SYMBOL?
X-Git-Tag: 20090517-FFI~6373
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=81f44b92959cea306499a8b0d725d6c4e8af339b;p=mit-scheme.git

Added expansion for SYMBOL?
---

diff --git a/v8/src/sf/usiexp.scm b/v8/src/sf/usiexp.scm
index 9eb03882c..7ec9e327a 100644
--- a/v8/src/sf/usiexp.scm
+++ b/v8/src/sf/usiexp.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: usiexp.scm,v 1.1 1995/03/07 22:19:00 adams Exp $
+$Id: usiexp.scm,v 1.2 1995/04/29 13:18:05 adams Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -524,14 +524,19 @@ MIT in each case. |#
     (disjunction-type-test-expansion
      (append fixnum-ucode-types (list (cross-sf/ucode-type 'big-fixnum)
 				      (cross-sf/ucode-type 'ratnum)))))
-
+
   (define complex?-expansion
     (disjunction-type-test-expansion 
      (append fixnum-ucode-types (list (cross-sf/ucode-type 'big-fixnum) 
 				      (cross-sf/ucode-type 'ratnum)
 				      (cross-sf/ucode-type 'big-flonum)
 				      (cross-sf/ucode-type 'recnum)))))
-
+
+  (define symbol?-expansion
+    (disjunction-type-test-expansion
+     (list (cross-sf/ucode-type 'interned-symbol)
+	   (cross-sf/ucode-type 'uninterned-symbol))))
+
   (define (make-disjunction expr  clauses)
     (let loop ((clauses clauses))
       (if (null? (cdr clauses))
@@ -641,6 +646,7 @@ MIT in each case. |#
       (seventh            . ,seventh-expansion)
       (sixth              . ,sixth-expansion)
       (string->symbol     . ,string->symbol-expansion)
+      (symbol?            . ,symbol?-expansion)
       (third              . ,third-expansion)
       (values             . ,values-expansion)
       (vector?            . ,vector?-expansion)