Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (18 sloc) 431 Bytes
;parser functions (define token-buffer '()) (define save-token (lambda (token) (set! token-buffer token))) (define get-next-token (lambda () (cond [(null? token-buffer) (next-token)] [else (let ((token token-buffer)) (begin (set! token-buffer '()) token))]))) (define init-parser (lambda () (begin (set! token-buffer '()) (init-scanner))))