diff --git a/beautiful-racket-demo/taco-compiler-demo/main.rkt b/beautiful-racket-demo/taco-compiler-demo/main.rkt index 3cf8504..f1879b3 100644 --- a/beautiful-racket-demo/taco-compiler-demo/main.rkt +++ b/beautiful-racket-demo/taco-compiler-demo/main.rkt @@ -5,15 +5,15 @@ (define (tokenize ip) (for/list ([tok (in-port read-char ip)]) - tok)) + tok)) (define (parse toks) (for/list ([tok (in-list toks)]) - (define int (modulo (char->integer tok) 128)) - (for/list ([bit (in-range 7)]) - (if (bitwise-bit-set? int bit) - 'taco - null)))) + (define int (modulo (char->integer tok) 128)) + (for/list ([bit (in-range 7)]) + (if (bitwise-bit-set? int bit) + 'taco + null)))) (define (read-syntax src ip) (define toks (tokenize ip))