Mercurial > urweb

diff src/settings.sml @ 828:14a6c0971d89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
String.length
author Adam Chlipala <adamc@hcoop.net>
date Sat, 30 May 2009 09:59:10 -0400
parents 395a5d450cc0
children 20fe00fd81da
line wrap: on
line diff
--- a/src/settings.sml	Thu May 28 13:47:05 2009 -0400
+++ b/src/settings.sml	Sat May 30 09:59:10 2009 -0400
@@ -152,7 +152,8 @@
                           ("attrifyBool", "bs"),
                           ("boolToString", "ts"),
                           ("strsub", "sub"),
-                          ("strsuffix", "suf")]
+                          ("strsuffix", "suf"),
+                          ("strlen", "slen")]
 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)