diff options
Diffstat (limited to 'mew.scm')
-rw-r--r-- | mew.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 261c389..7250d1e 100644 --- a/mew.scm +++ b/mew.scm @@ -8,7 +8,7 @@ fail fin final for fun* gconcatenate gen generic-for-each genumerate get gfix giterate gmatch gpick group-by-accumulator gslice-when gsplit gwindow - inc inject into + imp inc inject into juxt keys len loc @@ -840,6 +840,13 @@ (list knil) lists)) + (define-syntax imp + (syntax-rules () + ((_ a b) + (or (not a) b)) + ((_ a b c ...) + (or (not a) (imp b c ...))))) + (let ((old-repl-prompt (repl-prompt))) (repl-prompt (lambda () |