diff options
author | Leah Neukirchen <leah@vuxu.org> | 2022-11-17 23:37:25 +0100 |
---|---|---|
committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-17 23:37:25 +0100 |
commit | beb92ad9009f6b6a338430ba137e33201cca2230 (patch) | |
tree | f1ec893dff80a389cb6594f0cec2b35d8930a41b /mew.scm | |
parent | 78ebb6e306d843bb45c0baad563be37828d32fae (diff) | |
download | mew-beb92ad9009f6b6a338430ba137e33201cca2230.tar.gz mew-beb92ad9009f6b6a338430ba137e33201cca2230.tar.xz mew-beb92ad9009f6b6a338430ba137e33201cca2230.zip |
add imp
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 () |