diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-13 20:24:05 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-13 20:24:05 -0400 |
| commit | cf6caf0383daf8cb576edf5c1f0f736d2f4c85bd (patch) | |
| tree | 5ddacbdd84964c107c03a631bf221d4fb9072691 /src/monoize.sml | |
| parent | 811a3831805bf7a87ed3a64156f4ac6f6246edb9 (diff) | |
Multiple arguments to web functions
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index b5d9099f..b314d1d6 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -98,9 +98,10 @@ fun fooifyExp name env = case (args, ft) of ([], _) => e | (arg :: args, (L'.TFun (t, ft), _)) => - (L'.EStrcat (e, - (L'.EStrcat ((L'.EPrim (Prim.String "/"), loc), - fooify (arg, t)), loc)), loc) + attrify (args, ft, + (L'.EStrcat (e, + (L'.EStrcat ((L'.EPrim (Prim.String "/"), loc), + fooify (arg, t)), loc)), loc)) | _ => (E.errorAt loc "Type mismatch encoding attribute"; e) in |