diff src/scriptcheck.sml @ 668:b0c1a46b1f15

First message send delivered, but not interpreted
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Mar 2009 15:05:07 -0400
parents 1b571a05874c
children f73913d97a40
line wrap: on
line diff
--- a/src/scriptcheck.sml	Thu Mar 19 16:34:13 2009 -0400
+++ b/src/scriptcheck.sml	Sun Mar 22 15:05:07 2009 -0400
@@ -38,7 +38,10 @@
 val csBasis = SS.addList (SS.empty,
                           ["new_client_source",
                            "get_client_source",
-                           "set_client_source"])
+                           "set_client_source",
+                           "new_channel",
+                           "subscribe",
+                           "recv"])
 
 val scriptWords = ["<script",
                    " onclick="]