diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-31 12:41:34 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-31 12:41:34 -0400 |
| commit | a6424094365f7d63b6c9dade8f8f72ef26e92b45 (patch) | |
| tree | 4eac927486b596ee7118f84c2dc468489840e98d /src/settings.sml | |
| parent | bd0d3db78996b00e153252f03b02551ac3fde4cf (diff) | |
strcspn and friends
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index 75302cb9..a71ab872 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -156,7 +156,8 @@ val jsFuncsBase = basisM [("alert", "alert"), ("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) |