From 0ee7bc2859f77d610ef4a8edd2acce8e5e0fe58c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 30 May 2009 09:59:10 -0400
Subject: String.length

---
 src/settings.sml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/settings.sml')

diff --git a/src/settings.sml b/src/settings.sml
index 4b2092d2..fa162660 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -152,7 +152,8 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("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)
-- 
cgit v1.2.3