From 7aaa4cd3df5484a33e373d8c43d76d11060101d2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 9 Apr 2016 14:55:09 -0700 Subject: [PATCH] improve --- br-bf/main.rkt | 2 +- br-bf/tokenizer.rkt | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) 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))