BIND

[hcoop/domtool2.git] / src / ast.sml

diff --git a/src/ast.sml b/src/ast.sml
index 29d7cb2..667a26c 100644 (file)
--- 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
 
 
 type file = string option * decl list * exp option
 

+fun multiApp (f, loc, args) =
+    foldl (fn (arg, e) => (EApp (e, arg), loc)) f args
+

 end
 end