Mercurial > urweb

comparison src/jscomp.sml @ 1433:66092ce45a76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Ignore JavaScript events in Effectize; allow extra spaces for 'jsFunc'; eat carriage returns at line ends in .urp files
author Adam Chlipala <adam@chlipala.net>
date Thu, 10 Mar 2011 20:22:03 -0500
parents 07ef5771568d
children 6e6f1643c4e9
comparison
equal deleted inserted replaced
1432:7d024767b024 1433:66092ce45a76
644 str "\"}"], st) 644 str "\"}"], st)
645 | EFfiApp (m, x, args) => 645 | EFfiApp (m, x, args) =>
646 let 646 let
647 val name = case Settings.jsFunc (m, x) of 647 val name = case Settings.jsFunc (m, x) of
648 NONE => (EM.errorAt loc ("Unsupported FFI function " 648 NONE => (EM.errorAt loc ("Unsupported FFI function "
649 ^ x ^ " in JavaScript"); 649 ^ m ^ "." ^ x ^ " in JavaScript");
650 app (fn ((m', x'), _) => print (m' ^ "." ^ x' ^ "\n")) (Settings.allJsFuncs ());
650 "ERROR") 651 "ERROR")
651 | SOME s => s 652 | SOME s => s
652 653
653 val (e, st) = foldr (fn (e, (acc, st)) => 654 val (e, st) = foldr (fn (e, (acc, st)) =>
654 let 655 let