# HG changeset patch
# User Adam Chlipala <adamc@hcoop.net>
# Date 1243965310 14400
# Node ID 4083d0dff94c8e922be0dd7957c46075373e457b
# Parent  b0a85cbefed21a0a93190bc9582d7a1a39f32d31
Fix relative precedence of ; and case-stuff

diff -r b0a85cbefed2 -r 4083d0dff94c src/elisp/urweb-move.el
--- a/src/elisp/urweb-move.el	Tue Jun 02 12:40:09 2009 -0400
+++ b/src/elisp/urweb-move.el	Tue Jun 02 13:55:10 2009 -0400
@@ -81,11 +81,12 @@
 
 (defconst urweb-syntax-prec
   (urweb-preproc-alist
-   `(((";" ",") . 20)
+   `(("," . 20)
      (("=>" "d=" "=of") . (65 . 40))
      ("|" . (47 . 30))
      (("case" "of" "fn") . 45)
      (("if" "then" "else" ) . 50)
+     (";" . 53)
      (("<-") . 55)
      ("||" . 70)
      ("&&" . 80)