Mercurial > urweb

diff 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
line wrap: on
line diff
--- a/src/jscomp.sml	Sat Jul 18 12:37:19 2009 -0400
+++ b/src/jscomp.sml	Sat Jul 18 12:53:26 2009 -0400
@@ -768,6 +768,7 @@
                             in
                                 (str name, st)
                             end
+                          | EFfiApp ("Basis", "kc", []) => (str "kc(event)", st)
                           | EFfiApp (m, x, args) =>
                             let
                                 val name = case Settings.jsFunc (m, x) of