;;; Global vars used in the parser
 
 (define *current-line* '())  ;  current line the scanner is on
 (define *current-col* '())   ;  current col; valid at start of line &
                              ;  after where,let,of
 
 ;;; Lexer
 
 (define *lex-literate?* '#f)
 (define *start-line* 0)
 (define *start-col* 0)
 (define *on-new-line?* '#t)
 (define *save-col?* '#f)
 (define *port* '())
 (define *tokens* '())
 (define *char* 0)
 (define *peek-char* 0)
 (define *at-eof/p?* 0)
 (define *at-eof?* 0)
 (define *on-new-line? '#f)
 
 ;;; Parser
 
 (define *token-stream* '())  ;  remaining tokens to be parsed
 (define *token* '())         ;  current token type
 (define *token-args* '())    ;  current token arguments
 (define *layout-stack* '())  ;  columns at which layout is being done