From d058f33933695c6feac5fe2224977a8e70ca3d4b Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 18 Mar 2015 23:03:30 -0400
Subject: [PATCH] Added stub

---
 test.scm  | 1 +
 trans.scm | 2 ++
 2 files changed, 3 insertions(+)

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