diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-08-02 18:12:37 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-08-02 18:12:37 -0400 |
| commit | a8ae5c1814db75525bf0ab199b0e5bd08c2c558a (patch) | |
| tree | 212d4eb5fff81460457ee63a17c13dc26b79091b /src/monoize.sml | |
| parent | fdc6c1310be60fbeb597400618473861f78676de (diff) | |
New NameJs phase, still needing some debugging
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 371e1d43..1b9c97ed 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3478,9 +3478,9 @@ fun monoExp (env, st, fm) (all as (e, loc)) = val t = (L'.TFfi ("Basis", "string"), loc) val setClass = (L'.ECase (class, - [((L'.PNone t, loc), + [((L'.PPrim (Prim.String ""), loc), str ""), - ((L'.PSome (t, (L'.PVar ("x", t), loc)), loc), + ((L'.PVar ("x", t), loc), (L'.EStrcat ((L'.EPrim (Prim.String "d.className=\""), loc), (L'.EStrcat ((L'.ERel 0, loc), (L'.EPrim (Prim.String "\";"), loc)), loc)), |