|
|
|
@ -24,7 +24,7 @@
|
|
|
|
(digit (- "0" "9"))
|
|
|
|
(digit (- "0" "9"))
|
|
|
|
(initial (: (letter) ! $ % & * / < = > ? ^ _ ~ @))
|
|
|
|
(initial (: (letter) ! $ % & * / < = > ? ^ _ ~ @))
|
|
|
|
(subsequent (: (initial) (digit) + - #\. @))
|
|
|
|
(subsequent (: (initial) (digit) + - #\. @))
|
|
|
|
(comment (@ /* (* (@ (* (^ *)) (+ *) (^ / *))) */)))
|
|
|
|
(comment (@ /* (* (: (^ *) (@ * (^ /)))) */)))
|
|
|
|
|
|
|
|
|
|
|
|
(define-empty-tokens x
|
|
|
|
(define-empty-tokens x
|
|
|
|
(EOF PIPE |:| SEMI |%%| %prec))
|
|
|
|
(EOF PIPE |:| SEMI |%%| %prec))
|
|
|
|
@ -113,6 +113,7 @@
|
|
|
|
(hash-table-remove! terms s)
|
|
|
|
(hash-table-remove! terms s)
|
|
|
|
(hash-table-remove! eterms s)
|
|
|
|
(hash-table-remove! eterms s)
|
|
|
|
(hash-table-put! nterms s #t))))
|
|
|
|
(hash-table-put! nterms s #t))))
|
|
|
|
|
|
|
|
(port-count-lines! i)
|
|
|
|
(file-path filename)
|
|
|
|
(file-path filename)
|
|
|
|
(regexp-match "%%" i)
|
|
|
|
(regexp-match "%%" i)
|
|
|
|
(begin0
|
|
|
|
(begin0
|
|
|
|
|
Scott Owens
23 years ago