Mercurial > urweb

comparison src/elisp/urweb-move.el @ 836:4083d0dff94c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix relative precedence of ; and case-stuff
author Adam Chlipala <adamc@hcoop.net>
date Tue, 02 Jun 2009 13:55:10 -0400
parents 040edfade639
children
comparison
equal deleted inserted replaced
835:b0a85cbefed2 836:4083d0dff94c
79 (("NOT") 9))) 79 (("NOT") 9)))
80 "Alist of Ur/Web infix operators and their precedence.") 80 "Alist of Ur/Web infix operators and their precedence.")
81 81
82 (defconst urweb-syntax-prec 82 (defconst urweb-syntax-prec
83 (urweb-preproc-alist 83 (urweb-preproc-alist
84 `(((";" ",") . 20) 84 `(("," . 20)
85 (("=>" "d=" "=of") . (65 . 40)) 85 (("=>" "d=" "=of") . (65 . 40))
86 ("|" . (47 . 30)) 86 ("|" . (47 . 30))
87 (("case" "of" "fn") . 45) 87 (("case" "of" "fn") . 45)
88 (("if" "then" "else" ) . 50) 88 (("if" "then" "else" ) . 50)
89 (";" . 53)
89 (("<-") . 55) 90 (("<-") . 55)
90 ("||" . 70) 91 ("||" . 70)
91 ("&&" . 80) 92 ("&&" . 80)
92 ((":" ":>") . 90) 93 ((":" ":>") . 90)
93 ("->" . 95) 94 ("->" . 95)