Mercurial > urweb

comparison src/jscomp.sml @ 895:ae9e22822ec5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Key events get key code input
author Adam Chlipala <adamc@hcoop.net>
date Sat, 18 Jul 2009 12:53:26 -0400
parents 1c2f335297b7
children 7a4b026e45dd
comparison
equal deleted inserted replaced
894:a3f58978ff32 895:ae9e22822ec5
766 "ERROR") 766 "ERROR")
767 | SOME s => s 767 | SOME s => s
768 in 768 in
769 (str name, st) 769 (str name, st)
770 end 770 end
771 | EFfiApp ("Basis", "kc", []) => (str "kc(event)", st)
771 | EFfiApp (m, x, args) => 772 | EFfiApp (m, x, args) =>
772 let 773 let
773 val name = case Settings.jsFunc (m, x) of 774 val name = case Settings.jsFunc (m, x) of
774 NONE => (EM.errorAt loc ("Unsupported FFI function " 775 NONE => (EM.errorAt loc ("Unsupported FFI function "
775 ^ x ^ " in JavaScript"); 776 ^ x ^ " in JavaScript");