Added stub

test.scm

@@ -24,6 +24,7 @@
 ;(eval '(begin (define (a z) z) (a 1) (a 1)))
 
 (Cyc-add-exception-handler (lambda (err) (write 'new-ex-handler)))
+(Cyc-remove-exception-handler)
 (define test '(a b))
 (set-car! test '(1 2 3))
 (write test)

trans.scm

@@ -69,6 +69,8 @@
     (foldr (lambda (x y) (cons (func x) y)) '() lst))
   (define (not x) (if x #f #t))
   (define (reverse lst)   (foldl cons '() lst))
+;  (define (with-exception-handler handler thunk)
+;    
 ))
 
 ;; Built-in macros