Mercurial > urweb

diff src/settings.sml @ 831:5e1a4b12c83a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strcspn and friends
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 May 2009 12:41:34 -0400
parents 20fe00fd81da
children 5154a047c6bc
line wrap: on
line diff
--- a/src/settings.sml	Sat May 30 14:44:29 2009 -0400
+++ b/src/settings.sml	Sun May 31 12:41:34 2009 -0400
@@ -156,7 +156,8 @@
                           ("strlen", "slen"),
                           ("strindex", "sidx"),
                           ("strchr", "schr"),
-                          ("substring", "ssub")]
+                          ("substring", "ssub"),
+                          ("strcspn", "sspn")]
 val jsFuncs = ref jsFuncsBase
 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
 fun jsFunc x = M.find (!jsFuncs, x)