Make symbol? an integrable operator.

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