src/debug.4th

   1 : CFA>
   2         LATEST @
   3         BEGIN
   4                 ?DUP
   5         WHILE
   6                 2DUP SWAP
   7                 < IF
   8                         NIP
   9                         EXIT
  10                 THEN
  11                 @
  12         REPEAT
  13         DROP
  14         0
  15 ;
  16
  17 : DECIMAL  10 BASE ! ;
  18 : HEX  16 BASE ! ;
  19
  20 : ID.
  21         1+
  22         DUP @
  23         F_LENMASK AND
  24
  25         BEGIN
  26                 DUP 0>
  27         WHILE
  28                 SWAP 1+
  29                 DUP @ EMIT
  30                 SWAP 1-
  31         REPEAT
  32         2DROP
  33 ;
  34
  35 : name cfa> id. ;
  36
  37 : [trace] immediate
  38     trace ;
  39
  40 \ : test 20 0 [trace] do 42 emit [trace] loop ;
  41