suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

resume in bf functions

Browse Source
This commit is contained in:
Matthew Butterick 2016-08-29 11:51:47 -07:00
parent b4a47b754f
commit 5ba6234a08
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
beautiful-racket/br/demo/bf/bf-expander-imperative.rkt
View File

@ -9,6 +9,11 @@
#'(void OP-OR-LOOP-ARG ...)) #'(void OP-OR-LOOP-ARG ...))
(provide bf-program) (provide bf-program)
(define-macro (loop "[" OP-OR-LOOP-ARG ... "]")
#'(until (zero? (current-byte))
OP-OR-LOOP-ARG ...))
(provide loop)
(define-macro-cases op (define-macro-cases op
[(op ">") #'(gt)] [(op ">") #'(gt)]
[(op "<") #'(lt)] [(op "<") #'(lt)]
@ -18,11 +23,6 @@
[(op ",") #'(comma)]) [(op ",") #'(comma)])
(provide op) (provide op)
(define-macro (loop LOOP-ARG ...)
#'(until (zero? (current-byte))
LOOP-ARG ...))
(provide loop)
(define arr (make-vector 30000 0)) (define arr (make-vector 30000 0))
(define ptr 0) (define ptr 0)