--- a/r2/parsetng.scm Mon Oct 17 06:52:28 2005 +1300
+++ b/r2/parsetng.scm Mon Oct 17 07:12:44 2005 +1300
@@ -163,10 +163,10 @@
((a <- adj o <- infixop b <- adj) (list #t a o b)))
(infixop ((white r <- infixop-raw) `(var ,(string->symbol r))))
(adj ((v <- simple white vs <- adj2) `(adj ,v ,vs))
- ((v <- simple semi vs <- simple) `(adj ,v ,vs))
+ ((v <- simple semi vs <- adj) `(adj ,v ,vs))
((v <- simple (! colon)) v))
(adj2 ((v <- simple white vs <- adj2) `(adj ,v ,vs))
- ((v <- simple semi vs <- simple) `(adj ,v ,vs))
+ ((v <- simple semi vs <- adj) `(adj ,v ,vs))
((v <- simple (! colon)) `(adj ,v (tuple))))
(simple ((white d1 <- simple1) d1))
(simple1 (('#\( o <- infixop white '#\)) o)