Mercurial > urweb

comparison src/jscomp.sml @ 950:5be3d19b59f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Don't try to compile sigString() calls to JavaScript
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Sep 2009 13:44:08 -0400
parents e2194a6793ae
children 6f34950825b6
comparison
equal deleted inserted replaced
949:6646b95f1860 950:5be3d19b59f3
798 "ERROR") 798 "ERROR")
799 | SOME s => s 799 | SOME s => s
800 in 800 in
801 (str name, st) 801 (str name, st)
802 end 802 end
803 | EFfiApp ("Basis", "sigString", [_]) => (strcat [str "\"",
804 e,
805 str "\""], st)
803 | EFfiApp ("Basis", "kc", []) => (str "kc(event)", st) 806 | EFfiApp ("Basis", "kc", []) => (str "kc(event)", st)
804 | EFfiApp (m, x, args) => 807 | EFfiApp (m, x, args) =>
805 let 808 let
806 val name = case Settings.jsFunc (m, x) of 809 val name = case Settings.jsFunc (m, x) of
807 NONE => (EM.errorAt loc ("Unsupported FFI function " 810 NONE => (EM.errorAt loc ("Unsupported FFI function "