changeset 52 | e8c6861a3e40 |
parent 41 | 9727ea545c27 |
--- a/r3/parsetng.scm Sat Apr 15 09:57:12 2006 +1200 +++ b/r3/parsetng.scm Fri May 05 04:05:38 2006 +1200 @@ -139,7 +139,7 @@ ((white '#f) (make-node 'quote (make-node 'atom 'quit)))) (datum ((s <- tuple0) s)) (tuple0 ((s <- tuple1) s) - (() (make-node 'tuple))) + (() (make-node 'unit))) (tuple1 ((s <- tuple1*) (if (= (length s) 2) (cadr s) s))) (tuple1* ((d <- fun white '#\, s <- tuple1*) (node-push s d)) ((d <- fun) (make-node 'tuple d)))