From 0170a10903c6f732c0d12b03f229f5255146aa48 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Thu, 10 Sep 2009 07:48:22 -0700
Subject: [PATCH] Make symbol? an integrable operator.

---
 src/runtime/symbol.scm | 1 +
 1 file changed, 1 insertion(+)

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)))
-- 
2.25.1