* Fixed a bug in #{gensym} read syntax.

scheme/ikarus.conditions.ss

@@ -375,5 +375,11 @@
              (print-condition x port)
              (error 'print-condition "not an output port" port))])))
 
+  ;(let ([p 
+  ;       (lambda (x p) 
+  ;         (display "#<condition>" p))])
+  ;  (set-rtd-printer! (record-type-descriptor compound-condition) p))
+
+
   )
 

scheme/ikarus.reader.ss

@@ -373,7 +373,9 @@
                 [c (skip-whitespace p "gensym")])
            (cond
              [($char= #\} c)
-              (cons 'datum (gensym id0))]
+              ;(cons 'datum (gensym id0))]
+              (cons 'datum 
+                (foreign-call "ikrt_strings_to_gensym" #f id0))]
              [else
               (let ([id1
                      (cond

scheme/makefile.ss

@@ -633,7 +633,7 @@
     [char>=?                                     i r ba se]
     [char>?                                      i r ba se]
     [char?                                       i r ba se]
-    [complex?                                    r ba se]
+    [complex?                                    i r ba se]
     [cons                                        i r ba se]
     [cos                                         i r ba se]
     [denominator                                 i r ba se]