[BACK]Return to toolsext.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/toolsext.fs between versions 1.28 and 1.29

version 1.28, 2010/12/31 18:09:02 version 1.29, 2012/07/20 19:34:27
Line 134  User (i) Line 134  User (i)
                                                       immediate                                                        immediate
   
 : [+LOOP] ( n -- ) \ gforth bracket-question-plus-loop  : [+LOOP] ( n -- ) \ gforth bracket-question-plus-loop
   rdrop ;                                             immediate    rdrop lp+ ;                                         immediate
   
 : [LOOP] ( -- ) \ gforth bracket-loop  : [LOOP] ( -- ) \ gforth bracket-loop
   1 rdrop ;                                           immediate    1 rdrop lp+ ;                                       immediate
   
 : [FOR] ( n -- ) \ gforth bracket-for  : [FOR] ( n -- ) \ gforth bracket-for
   0 swap postpone [DO] ;                              immediate    0 swap postpone [DO] ;                              immediate
   
 : [NEXT] ( n -- ) \ gforth bracket-next  : [NEXT] ( n -- ) \ gforth bracket-next
   -1 rdrop ;                                          immediate    -1 rdrop lp+ ;                                      immediate
   
 :noname (i) @ ;  :noname (i) @ ;
 :noname (i) @ postpone Literal ;  :noname (i) @ postpone Literal ;
 interpret/compile: [I] ( -- n ) \ gforth bracket-i  interpret/compile: [I] ( -- n ) \ gforth bracket-i
   
 : [BEGIN] ( -- ) \ gforth bracket-begin  : [BEGIN] ( -- ) \ gforth bracket-begin
   >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop ;     immediate    >in @ >r BEGIN r@ >in ! interpret UNTIL rdrop lp+ ; immediate
   
 ' [+LOOP]  Alias [UNTIL] ( flag -- ) \ gforth bracket-until  ' [+LOOP]  Alias [UNTIL] ( flag -- ) \ gforth bracket-until
                                                       immediate                                                        immediate
   
 : [REPEAT]  ( -- ) \ gforth bracket-repeat  : [REPEAT]  ( -- ) \ gforth bracket-repeat
   false rdrop ;                                       immediate    false rdrop lp+ ;                                   immediate
   
 ' [REPEAT] Alias [AGAIN] ( -- ) \ gforth bracket-again  ' [REPEAT] Alias [AGAIN] ( -- ) \ gforth bracket-again
                                                       immediate                                                        immediate
   
 : [WHILE]   ( flag -- ) \ gforth bracket-while  : [WHILE]   ( flag -- ) \ gforth bracket-while
   0= IF   postpone [ELSE] true rdrop 1 countif +!  THEN ;    0= IF   postpone [ELSE] true rdrop lp+ 1 countif +!  THEN ;
                                                       immediate                                                        immediate
   
 \ Warnings on  \ Warnings on
Removed from v.1.28  
changed lines
  Added in v.1.29

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>