diff --git a/test.scm b/test.scm index a0cf52a8..a634507f 100644 --- a/test.scm +++ b/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) diff --git a/trans.scm b/trans.scm index 2d9dad64..9b3f3a42 100644 --- a/trans.scm +++ b/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