changeset 836:4083d0dff94c

Fix relative precedence of ; and case-stuff
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Jun 2009 13:55:10 -0400
parents b0a85cbefed2
children ccf22c2c77b2
files src/elisp/urweb-move.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)