Integrate string.scm operations in symbol.scm.

Integrating, e.g., cp1-ref makes a huge difference.

diff --git a/src/runtime/symbol.scm b/src/runtime/symbol.scm
index 68edf4ba4f50ffec3b2ec421a7b095cabf859400..c5dac7dc76a23f453624ed7f40f4347ac6f74c6f 100644 (file)
--- a/src/runtime/symbol.scm
+++ b/src/runtime/symbol.scm
@@ -28,6 +28,7 @@ USA.
 ;;; package: (runtime symbol)
 
 (declare (usual-integrations))
+(declare (integrate-external "string"))
 \f
 (declare (integrate-operator symbol?))
 (define (symbol? object)