Use symbol-hashtables

spago.yaml

@@ -28,4 +28,5 @@ workspace:
     args:
       - build
   package_set:
-    url: https://raw.githubusercontent.com/purescm/purescm/d004ff2a076d370e613d6601d5e0a342c895fe56/package-sets/1.0.0.json
+    url: https://raw.githubusercontent.com/purescm/purescm/b274cdff179c8b666e7ba991e3c818eaa4e3551a/package-sets/1.0.0.json
+    hash: sha256-W6+GRQDfEIGumQjZqLc/vr692dlqiz4oQHIHGjzCBOU=

src/Data/Array.ss

@@ -24,11 +24,8 @@
           allImpl
           unsafeIndexImpl
           )
-  (import (only (rnrs base) define lambda begin quote cons
-                            let let* let-values cond if not and or
-                            * + - = < > >= <= boolean?)
+  (import (except (chezscheme) length reverse)
           (only (rnrs sorting) vector-sort!)
-          (only (chezscheme) fx/)
           (prefix (purs runtime) rt:)
           (prefix (purs runtime srfi :214) srfi:214:))
 
@@ -142,7 +139,7 @@
   (define partitionImpl
     (lambda (f xs)
       (let-values ([(yes no) (srfi:214:flexvector-partition f xs)])
-        (rt:make-object (cons "yes" yes) (cons "no" no)))))
+        (rt:make-object (cons 'yes yes) (cons 'no no)))))
 
   (define scanlImpl
     (lambda (f b xs)

src/Data/Array/ST.ss

@@ -15,9 +15,8 @@
           sortByImpl
           thawImpl
           freezeImpl)
-  (import (only (rnrs base) define lambda cond let let* begin cons if and < > >= <= + -)
+  (import (chezscheme)
           (only (rnrs sorting) vector-sort!)
-          (only (chezscheme) fx/)
           (prefix (purs runtime) rt:)
           (prefix (purs runtime srfi :214) srfi:214:))
 
@@ -98,7 +97,7 @@
     (lambda (xs)
       (srfi:214:flexvector-map/index
         (lambda (i x)
-          (rt:make-object (cons "index" i) (cons "value" x)))
+          (rt:make-object (cons 'index i) (cons 'value x)))
         xs)))
 
   (define copyImpl