scm: Add with-throw-handler hack.

* module/mes/catch.mes (with-throw-handler): Add hack for Nyacc 0.75
2017-03-26 23:09:11 +02:00 · 2017-03-26 23:09:11 +02:00 · 6b3328c71c
parent 3cbadcda86
commit 6b3328c71c
1 changed files with 2 additions and 0 deletions
--- 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