* Made recordize recognize lambda again (lost in crash).

src/ikarus.compiler.ss

@@ -229,6 +229,8 @@
                              body)))))
                    (cdr x))])
             (make-clambda (gensym) cls* #f ctxt))]
+         [(lambda) 
+          (E `(case-lambda ,(cdr x)) ctxt)]
          [(foreign-call)
           (let ([name (quoted-string (cadr x))] [arg* (cddr x)])
             (make-forcall name (map (lambda (x) (E x #f)) arg*)))]

src/makefile.ss

@@ -3,7 +3,7 @@
 
 (import (except (ikarus) assembler-output)
         (ikarus compiler)
-        (except (ikarus system $bootstrap)
+        (except (psyntax system $bootstrap)
                 eval-core
                 current-primitive-locations
                 compile-core-expr-to-port))
@@ -187,7 +187,7 @@
     [$stack      (ikarus system $stack)                #f     #t]
     [$interrupts (ikarus system $interrupts)           #f     #t]
     [$all        (psyntax system $all)                 #f     #t]
-    [$boot       (ikarus system $bootstrap)            #f     #t]
+    [$boot       (psyntax system $bootstrap)           #f     #t]
     ))
 
 (define identifier->library-map

src/tests/hashtables.ss

@@ -11,5 +11,12 @@
        (hashtable-set! h 'foo 12)
        (hashtable-set! h 'bar 13)
        (or (equal? (hashtable-keys h) '#(foo bar))
-           (equal? (hashtable-keys h) '#(bar foo))))]))
+           (equal? (hashtable-keys h) '#(bar foo))))]
+    [values
+     (let ([h (make-eq-hashtable)])
+       (hashtable-set! h 'foo 12)
+       (hashtable-set! h 'bar 13)
+       (hashtable-clear! h)
+       (equal? (hashtable-keys h) '#()))]
+    ))