diff options
| -rw-r--r-- | mew.scm | 5 | ||||
| -rw-r--r-- | mew.svnwiki | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 1615d7b..1af0701 100644 --- a/mew.scm +++ b/mew.scm @@ -1,6 +1,6 @@ (module mew (export - accumulate at + act accumulate at comp dec def div empty? eof esc @@ -654,4 +654,7 @@ (define (juxt . fs) (lambda args (unlist (map (lambda (f) (apply f args)) fs)))) + + (define (act x . fs) + ((apply per fs) x)) ) diff --git a/mew.svnwiki b/mew.svnwiki index a1c96fc..a838550 100644 --- a/mew.svnwiki +++ b/mew.svnwiki @@ -142,6 +142,10 @@ Alias for {{compose}}. Reverse function composition. +<procedure>(act <obj> <fun>...)</procedure> + +Reverse function compose all {{<fun>}}, then apply to {{<obj>}}. + <procedure>(juxt <fun>...)</procedure> Returns a function that applies each {{<fun>}} to its arguments and |