From 6b9b07746ffdd3e3cec6e81287f1334038a41092 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 5 Dec 2009 14:01:34 -0500
Subject: Represent FFI function names as strings, to deal with cross-file
 recursion

---
 src/settings.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/settings.sml')

diff --git a/src/settings.sml b/src/settings.sml
index 009e2b0a..4b226a7b 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -160,6 +160,7 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("attrifyFloat", "ts"),
                           ("attrifyBool", "bs"),
                           ("boolToString", "ts"),
+                          ("str1", "id"),
                           ("strsub", "sub"),
                           ("strsuffix", "suf"),
                           ("strlen", "slen"),
-- 
cgit v1.2.3