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

notes

Browse Source
This commit is contained in:
Matthew Butterick 2016-04-16 11:30:44 -07:00
parent 158fd4a561
commit 36ca9f1442
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
beautiful-racket/br/basic/expander.rkt
View File

@ -26,6 +26,10 @@
idx) idx)
(add1 line-idx)))) (add1 line-idx))))
;; model each line as (list line-number line-thunk jump)
;; if jump is #f, that means go to the next line
;; a `GOTO` would not have a line-thunk, just a jump
;; what about `GOSUB`? A jump with a return jump ...
(define-cases #'line (define-cases #'line
[#'(line 'end) #'(list #f #f #f)] [#'(line 'end) #'(list #f #f #f)]
[#'(_ NUMBER (statement ARG ...) 'end) #'(list NUMBER (statement ARG ...) #f)] [#'(_ NUMBER (statement ARG ...) 'end) #'(list NUMBER (statement ARG ...) #f)]