diff --git a/module/mes/catch.mes b/module/mes/catch.mes index 18300040..baf174a1 100644 --- a/module/mes/catch.mes +++ b/module/mes/catch.mes @@ -45,3 +45,5 @@ (define (throw key . args) (let ((handler (fluid-ref %eh))) (apply handler (cons key args)))) + +(define with-throw-handler catch) ; FIXME: hack for Nyacc 0.75