Parent Directory | Revision Log | Patch
revision 1.1.1.1 by wfs, Mon Dec 6 22:43:56 1999 UTC | revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC | |
---|---|---|
# | Line 41 | Line 41 |
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 "T" (car ,label) ":;"))) | `(when (cdr ,label) (wt-nl1 "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) ";"))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |