From bd77106e353a6c6c910b6f58b04ad95a98bd50d3 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Sun, 1 Apr 2018 16:38:40 +0200 Subject: os debugged --- modules/language/python/def.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'modules/language/python/def.scm') diff --git a/modules/language/python/def.scm b/modules/language/python/def.scm index 7045cec..bd2139e 100644 --- a/modules/language/python/def.scm +++ b/modules/language/python/def.scm @@ -5,7 +5,8 @@ #:use-module (srfi srfi-11) #:export (def lam py-apply)) -(define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) +(define e (list 'error)) +(define-syntax-rule (aif it p x y) (let ((it p)) (if (not (eq? it e)) x y))) (define (fold lam s l) (if (pair? l) (lam (car l) (fold lam s (cdr l))) @@ -14,7 +15,7 @@ (define-syntax-rule (take-1 pww ww* kw s v) (if (not pww) (values ww* - (aif it (hash-ref kw s #f) + (aif it (hash-ref kw s e) (begin (hash-remove! kw s) it) @@ -24,7 +25,7 @@ (hash-remove! kw s) (values (cdr ww*) (car ww*))) (values ww* - (aif it (hash-ref kw s #f) + (aif it (hash-ref kw s e) (begin (hash-remove! kw s) it) -- cgit v1.2.3