add scheme apply, rename apply-> apply_env.

[mes.git] / scm.mes

diff --git a/scm.mes b/scm.mes
index c8768ecd317b2666bde7f4b50752c872927983f4..1dea3eba46692285d32dec644a264a043fd3235b 100755 (executable)
--- a/scm.mes
+++ b/scm.mes
@@ -108,3 +108,6 @@
 
 (define (begin . rest)
   (let () rest))
+
+(define (apply f args)
+  (c:eval (cons f args) (current-module)))