diff --git a/br-bf/main.rkt b/br-bf/main.rkt index 74efbbd..10e6a7a 100644 --- a/br-bf/main.rkt +++ b/br-bf/main.rkt @@ -45,7 +45,7 @@ ;; bf implementation ;; state: one vector, one pointer -(define bf-vector (make-vector 1000 0)) +(define bf-vector (make-vector 30000 0)) (define bf-pointer 0) ;; gets and sets diff --git a/br-bf/tokenizer.rkt b/br-bf/tokenizer.rkt index a3602b7..f9f4de8 100644 --- a/br-bf/tokenizer.rkt +++ b/br-bf/tokenizer.rkt @@ -14,6 +14,8 @@ ;; todo: try adding support for line comments #;[(:: "#" (:* (complement "\n")) "\n") (token 'comment #:skip? #t)] [whitespace (token 'white #:skip? #t)] + ;; treat other characters as comments + [(char-range #\nul #\~) (token 'ascii #:skip? #t)] [(eof) eof])) (define (next-token) (get-token ip))