From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Thu, 10 Sep 2009 14:48:22 +0000 (-0700)
Subject: Make symbol? an integrable operator.
X-Git-Tag: 20100708-Gtk~330^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0170a10903c6f732c0d12b03f229f5255146aa48;p=mit-scheme.git

Make symbol? an integrable operator.
---

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 822513ffe..9f113b125 100644
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -28,6 +28,7 @@ USA.
 
 (declare (usual-integrations))
 
+(declare (integrate-operator symbol?))
 (define (symbol? object)
   (or (interned-symbol? object)
       (uninterned-symbol? object)))