1 files changed, 6 insertions, 2 deletions
diff --git a/mew.scm b/mew.scm
index 5828f36..17c23d2 100644
--- a/mew.scm
+++ b/mew.scm
@@ -1,6 +1,6 @@
 (module mew
   (export
-     act accumulate andloc at
+     act accumulate andloc app at
      boolean
      comp cross-product
      dec def del-at div
@@ -97,7 +97,6 @@
                assoc
                member)
       (lambda fun)
-      (apply app)
       (ceiling ceil)
       (truncate trunc)
       ))
@@ -179,6 +178,11 @@
             (display " "))
           (loop (cdr args) (car args))))))
 
+  (define (app f . args)
+    (if (null? args)
+      (f)
+      (apply apply f args)))
+
   (define-syntax seq
     (syntax-rules ()
       ((_)