22 lines
407 B
Scheme
22 lines
407 B
Scheme
|
(import (scheme base)
|
||
|
|
(scheme write)
|
||
|
|
(scheme file)
|
||
|
|
(scheme process-context)
|
||
|
|
(lexer))
|
||
|
|
|
||
|
|
(define usage
|
||
|
|
(lambda ()
|
||
|
|
(display "usage: fudge.scm <filename>")
|
||
|
|
(newline)))
|
||
|
|
|
||
|
|
(unless (= (length (command-line)) 2)
|
||
|
|
(usage)
|
||
|
|
(exit))
|
||
|
|
|
||
|
|
(define input-string
|
||
|
|
(read-string
|
||
|
|
100000000000000
|
||
|
|
(open-input-file (car (cdr (command-line))))))
|
||
|
|
|
||
|
|
(display (tokenize input-string))
|