notes

9 years ago · 36ca9f1442
parent 158fd4a561
commit 36ca9f1442
1 changed files with 4 additions and 0 deletions
--- a/beautiful-racket/br/basic/expander.rkt
+++ b/beautiful-racket/br/basic/expander.rkt
@ -26,6 +26,10 @@
                   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
  [#'(line 'end) #'(list #f #f #f)]
  [#'(_ NUMBER (statement ARG ...) 'end) #'(list NUMBER (statement ARG ...) #f)]