X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/ed9fda3a0e2edcf4ed546e0eb9ac128865538276..6ae327f88a6be8efd02cfe4b713444f9f3ac2672:/src/ast.sml?ds=sidebyside

diff --git a/src/ast.sml b/src/ast.sml
index 29d7cb2..667a26c 100644
--- a/src/ast.sml
+++ b/src/ast.sml
@@ -100,4 +100,7 @@ type decl = decl' * string option * position
 
 type file = string option * decl list * exp option
 
+fun multiApp (f, loc, args) =
+    foldl (fn (arg, e) => (EApp (e, arg), loc)) f args
+
 end