cref: Replace hash-tables with alists.

A strong-eq-hash-table seems like overkill now.

diff --git a/src/cref/object.scm b/src/cref/object.scm
index 1d10d60906193f285e586fda88707ecaea60061f..5b95f4ac560f34e0c1b0729e0d2dc17dcf6c754b 100644 (file)
--- a/src/cref/object.scm
+++ b/src/cref/object.scm
@@ -59,8 +59,8 @@ USA.
   (files '())
   parent
   (children '())
-  (%bindings (make-strong-eq-hash-table) read-only #t)
-  (%references (make-strong-eq-hash-table) read-only #t)
+  (%bindings '())
+  (%references '())
   (links '()))
 
 (define-integrable (package/n-files package)
@@ -70,22 +70,26 @@ USA.
   (null? (package/name package)))
 
 (define-integrable (package/find-reference package name)
-  (hash-table/get (package/%references package) name #f))
+  (let ((entry (assq name (package/%references package))))
+    (and entry (cdr entry))))
 
 (define-integrable (package/put-reference! package name reference)
-  (hash-table/put! (package/%references package) name reference))
+  (set-package/%references! package (cons (cons name reference)
+                                         (package/%references package))))
 
 (define-integrable (package/find-binding package name)
-  (hash-table/get (package/%bindings package) name #f))
+  (let ((entry (assq name (package/%bindings package))))
+    (and entry (cdr entry))))
 
 (define-integrable (package/put-binding! package name binding)
-  (hash-table/put! (package/%bindings package) name binding))
+  (set-package/%bindings! package (cons (cons name binding)
+                                       (package/%bindings package))))
 
 (define-integrable (package/bindings package)
-  (hash-table/datum-list (package/%bindings package)))
+  (map cdr (package/%bindings package)))
 
 (define-integrable (package/references package)
-  (hash-table/datum-list (package/%references package)))
+  (map cdr (package/%references package)))
 
 (define-integrable (file-case/type file-case)
   (car file-case))