diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-10-31 16:50:07 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-10-31 16:50:07 +0100 |
| commit | e5be968055269e40f91950d4aa07b8d014820ec4 (patch) | |
| tree | e0474b2e325399889c6329ce710f6abe98ffd2f0 /mew.scm | |
| parent | bcdaea94467d7394365e1ec0ed931413287ea03e (diff) | |
| download | mew-e5be968055269e40f91950d4aa07b8d014820ec4.tar.gz mew-e5be968055269e40f91950d4aa07b8d014820ec4.tar.xz mew-e5be968055269e40f91950d4aa07b8d014820ec4.zip | |
add fun*
Diffstat (limited to 'mew.scm')
| -rw-r--r-- | mew.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 3c0d08d..e90ea98 100644 --- a/mew.scm +++ b/mew.scm @@ -4,7 +4,7 @@ comp dec def div empty? eof esc - fin final for + fin final for fun* gen generic-for-each genumerate get gfix giterate given gmatch group-by-accumulator gslice-when gsplit gwindow inc into keys @@ -159,6 +159,11 @@ ((_ (x y . brest) . rest) (match-let ((x y)) (loc brest . rest))))) + (define-syntax fun* + (syntax-rules () + ((_ args body rest ...) + (match-lambda* (args body rest ...))))) + (define-syntax op (er-macro-transformer (lambda (expr rename compare) |