diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-01 16:38:40 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-01 16:38:40 +0200 |
| commit | bd77106e353a6c6c910b6f58b04ad95a98bd50d3 (patch) | |
| tree | 661205bf5f2c4f0512186d62aa0ed081b62e6022 /modules/language/python/def.scm | |
| parent | f428d49e6430a73d96fbcd55961977e420ae8dc7 (diff) | |
os debugged
Diffstat (limited to 'modules/language/python/def.scm')
| -rw-r--r-- | modules/language/python/def.scm | 7 |
1 files changed, 4 insertions, 3 deletions
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) |