*** empty log message ***

original commit: 9da660e6edac2291830ce79132b1598ca1d39311
tokens
Scott Owens 20 years ago
parent 92a2693f23
commit 4866d90396

@ -302,6 +302,8 @@
(define (do-match ip first-pos action value) (define (do-match ip first-pos action value)
#;(printf "(action ~a ~a ~a ~a)~n"
(position-offset first-pos) (position-offset (get-position ip)) value ip)
(action first-pos (get-position ip) value ip)) (action first-pos (get-position ip) value ip))
(define (get-position ip) (define (get-position ip)

Loading…
Cancel
Save