41 |
(defmacro next-label* () `(cons (incf *last-label*) t)) |
(defmacro next-label* () `(cons (incf *last-label*) t)) |
42 |
|
|
43 |
(defmacro wt-label (label) |
(defmacro wt-label (label) |
44 |
`(when (cdr ,label) (wt-nl1 "goto T" (car ,label) ";")(wt-nl1 "T" (car ,label) ":;"))) |
`(when (cdr ,label) (wt-nl "goto T" (car ,label) ";")(wt-nl1 "T" (car ,label) ":;"))) |
45 |
|
|
46 |
(defmacro wt-go (label) |
(defmacro wt-go (label) |
47 |
`(progn (rplacd ,label t) (wt "goto T" (car ,label) ";"))) |
`(progn (rplacd ,label t) (wt "goto T" (car ,label) ";"))) |