scm: Add with-throw-handler hack.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 26 Mar 2017 21:09:11 +0000 (23:09 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 26 Mar 2017 21:09:11 +0000 (23:09 +0200)
* module/mes/catch.mes (with-throw-handler): Add hack for Nyacc 0.75

module/mes/catch.mes

index 18300040f29fceb61534c065c24c043298d214fc..baf174a1245bea45f958a33073f815b1384237ba 100644 (file)
@@ -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