/[gcl]/gcl/cmpnew/cmplabel.lsp
ViewVC logotype

Diff of /gcl/cmpnew/cmplabel.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.4 by camm, Wed Feb 26 22:21:35 2003 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 "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) ";")))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26