Factored STRING-COLLECTORS out of SCSH-LEVEL-0.

scsh/scsh-interfaces.scm

@@ -592,6 +592,11 @@
 	  make-string-output-port
 	  string-output-port-output))
 
+(define-interface string-collectors-interface
+  (export make-string-collector
+	  collect-string!
+	  clear-string-collector!
+	  string-collector->string))
 
 (define-interface scsh-utilities-interface
   (export mapv mapv! vector-every? copy-vector initialize-vector vector-append

scsh/scsh-package.scm

@@ -46,6 +46,11 @@
 	tables)
   (files weaktables))
 
+(define-structure string-collectors string-collectors-interface
+  (open scheme
+	defrec-package)
+  (files stringcoll))
+
 (define list-lib srfi-1)
 (define string-lib srfi-13)
 (define char-set-lib srfi-14)
@@ -161,6 +166,7 @@
 	defrec-package
 	define-record-types
 	formats
+	string-collectors
 	os-dependent		; OS dependent stuff
 	buffered-io-flags	; stdio dependent
 	ascii
@@ -232,7 +238,6 @@
 	 syscalls
 ;	 select
 	 fname
-	 stringcoll
 	 rw
 	 newports
 	 fdports