From 6b3328c71c8250f5f0af86c44747a2dfe1876918 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 26 Mar 2017 23:09:11 +0200
Subject: [PATCH] scm: Add with-throw-handler hack.

* module/mes/catch.mes (with-throw-handler): Add hack for Nyacc 0.75
---
 module/mes/catch.mes | 2 ++
 1 file changed, 2 insertions(+)

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