From 36ca9f1442bf6afaa09d09a23fe1b1758232e75c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 16 Apr 2016 11:30:44 -0700 Subject: [PATCH] notes --- beautiful-racket/br/basic/expander.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/beautiful-racket/br/basic/expander.rkt b/beautiful-racket/br/basic/expander.rkt index d3b2cb8..78d6b0b 100644 --- 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)]