Cleanup

TODO

@@ -1,7 +1,5 @@
 Working TODO list:
 
- - need to cleanup ex handler output in icyc.scm
-
  - Fixup Cyc_sum to use varargs and call (error) if anything bad happens. then generalize to - * /
  - need an error() function that will call (error) from the C runtime
    useful for, EG, type checking

icyc.scm

@@ -15,13 +15,15 @@
       (with-exception-handler
         (lambda (obj)
           (display "Error: ")
-          (display obj)
-          ; TODO: if list, do this instead:
-          ;(for-each
-          ;  (lambda (o)
-          ;    (display o)
-          ;    (display " "))
-          ;  obj)
+          (cond
+            ((pair? obj)
+             (for-each
+               (lambda (o)
+                 (display o)
+                 (display " "))
+               obj))
+            (else
+              (display obj)))
           (display "\n")
           (k #t))
         (lambda ()