diff options
author | Leah Neukirchen <leah@vuxu.org> | 2022-11-22 18:36:58 +0100 |
---|---|---|
committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-22 18:36:58 +0100 |
commit | 116e3cab66eb8d9d09aca20310a01f544848b7fa (patch) | |
tree | 73607acdb6aeeb3ac712bbf8e391dc94e57dea32 /mew.scm | |
parent | aff9a08de8df4d050ff0bcb007c25dcb30997327 (diff) | |
download | mew-116e3cab66eb8d9d09aca20310a01f544848b7fa.tar.gz mew-116e3cab66eb8d9d09aca20310a01f544848b7fa.tar.xz mew-116e3cab66eb8d9d09aca20310a01f544848b7fa.zip |
add =>*
Diffstat (limited to 'mew.scm')
-rw-r--r-- | mew.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 97ff476..bc03f6d 100644 --- a/mew.scm +++ b/mew.scm @@ -26,7 +26,7 @@ -> fun-> fun->> set-> =? <>? ~? - => and=> set=> + => =>* and=> set=> generic-make-accumulator) @@ -850,6 +850,12 @@ (define => act) + (define-syntax =>* + (syntax-rules () + ((_ expr . fs) + (receive args expr + (apply (per . fs) args))))) + (define-syntax set=> (syntax-rules () ((_ location . fs) |