Add back library code

srfi/69.sld

@@ -6,44 +6,43 @@
 ;;;;
 ;;;; This is based on the implementation from SRFI 69.
 ;;;;
-;(define-library (srfi 69)
-;  (export 
-;    ;;Type constructors and predicate
-;    make-hash-table
-;    hash-table?
-;    alist->hash-table
-;    ;;Reflective queries
-;    hash-table-equivalence-function
-;    hash-table-hash-function
-;    ;;Dealing with single elements
-;    hash-table-ref
-;    hash-table-ref/default
-;    hash-table-set!
-;    hash-table-delete!
-;    hash-table-exists?
-;    hash-table-update!
-;    hash-table-update!/default
-;    ;;Dealing with the whole contents
-;    hash-table-size
-;    hash-table-keys
-;    hash-table-values
-;    hash-table-walk
-;    hash-table-fold
-;    hash-table->alist
-;    hash-table-copy
-;    hash-table-merge!
-;    ;;Hashing
-;    hash
-;    string-hash
-;    string-ci-hash
-;    hash-by-identity
-;  )
+(define-library (srfi 69)
+  (export 
+    ;;Type constructors and predicate
+    make-hash-table
+    hash-table?
+    alist->hash-table
+    ;;Reflective queries
+    hash-table-equivalence-function
+    hash-table-hash-function
+    ;;Dealing with single elements
+    hash-table-ref
+    hash-table-ref/default
+    hash-table-set!
+    hash-table-delete!
+    hash-table-exists?
+    hash-table-update!
+    hash-table-update!/default
+    ;;Dealing with the whole contents
+    hash-table-size
+    hash-table-keys
+    hash-table-values
+    hash-table-walk
+    hash-table-fold
+    hash-table->alist
+    hash-table-copy
+    hash-table-merge!
+    ;;Hashing
+    hash
+    string-hash
+    string-ci-hash
+    hash-by-identity
+  )
   (import (scheme base)
           (scheme char)
-          (scheme complex)
           ;(scheme cyclone util)
   )
-;  (begin
+  (begin
 (define *default-bound* (- (expt 2 29) 3))
 
 (define (%string-hash s ch-conv bound)
@@ -298,4 +297,4 @@
 (define (hash-table-values hash-table)
   (hash-table-fold hash-table (lambda (key val acc) (cons val acc)) '()))
 
-;))
+))