diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-10 15:46:07 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-10 15:46:07 -0500 |
| commit | 4a2970f1c3686cdef13f07b93f87adecb3721617 (patch) | |
| tree | d477da76701c5aa53d786e821158dbc673245964 /src/monoize.sml | |
| parent | 031cd0d24354a5840f29c8c6cce0ae09571e891e (diff) | |
Bug fixes in redirect-related stuff
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 2d1a1f33..0a1990c7 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -395,8 +395,6 @@ fun capitalize s = else str (Char.toUpper (String.sub (s, 0))) ^ String.extract (s, 1, NONE) -val inTag = ref false - fun fooifyExp fk env = let fun fooify fm (e, tAll as (t, loc)) = @@ -2480,9 +2478,6 @@ fun monoExp (env, st, fm) (all as (e, loc)) = tag), _), xml) => let - val inT = !inTag - val () = inTag := true - fun getTag' (e, _) = case e of L.EFfi ("Basis", tag) => (tag, []) @@ -2918,7 +2913,6 @@ fun monoExp (env, st, fm) (all as (e, loc)) = | "tabl" => normal ("table", NONE, NONE) | _ => normal (tag, NONE, NONE)) - before inTag := inT end | L.EApp ((L.ECApp ( @@ -3144,6 +3138,13 @@ fun monoExp (env, st, fm) (all as (e, loc)) = fm) end + | L.EFfiApp ("Basis", "url", [e]) => + let + val (e, fm) = monoExp (env, st, fm) e + in + urlifyExp env fm (e, dummyTyp) + end + | L.EApp (e1, e2) => let val (e1, fm) = monoExp (env, st, fm) e1 @@ -3223,10 +3224,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = fm es val e = (L'.EClosure (n, es), loc) in - if !inTag then - (e, fm) - else - urlifyExp env fm (e, dummyTyp) + (e, fm) end | L.ELet (x, t, e1, e2) => |