changeset 182 | 0e5271257b84 |
parent 181 | f82ec080be39 |
child 183 | d6199b03d787 |
--- a/etng-r2/main.scm Mon Jun 23 10:26:56 2008 +1200 +++ b/etng-r2/main.scm Tue Jun 24 04:48:04 2008 +1200 @@ -60,7 +60,6 @@ (define (special-segment-head? token) (or (equal? token QUOTE-QNAME) (equal? token UNQUOTE-QNAME) - (equal? token NAMESPACE-QNAME) (memq token '(namespace do let)))) (define read-etng* (load-ometa "etng-reader.g"))