From 1feb32ab54b5955464db80919d24716a8ba477c1 Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Wed, 28 Feb 2018 13:24:08 +0100
Subject: heapq added

---
 modules/language/python/try.scm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'modules/language/python/try.scm')

diff --git a/modules/language/python/try.scm b/modules/language/python/try.scm
index a36263b..36d9b04 100644
--- a/modules/language/python/try.scm
+++ b/modules/language/python/try.scm
@@ -48,12 +48,19 @@
     ((_ E tag l)
      (check E tag l))))
 
+(define (m code)
+  (let ((c code))
+    (lambda (k . l)
+      (if (eq? k StopIteration)
+	  (apply c 'python k l)
+	  (apply c k l)))))
+
 (define-syntax handler
   (syntax-rules (=>)
-
     ((handler ecx)
-     (lambda (k tag . l)
-       (handler ecx tag l)))
+     (m 
+      (lambda (k tag . l)
+	(handler ecx tag l))))
     
     ((handler ((#:except E => lam) . ecx) tag l)
      (if (check-exception E tag l)
-- 
cgit v1.2.3