[gforth] / gforth / kernel / toolsext.fs  

gforth: gforth/kernel/toolsext.fs

Diff for /gforth/kernel/toolsext.fs between version 1.18 and 1.19

version 1.18, Sun Mar 9 15:17:07 2003 UTC version 1.19, Tue Jun 28 15:22:45 2005 UTC
Line 135 
Line 135 
                                                       immediate                                                        immediate
   
 : [+LOOP] ( n -- ) \ gforth bracket-question-plus-loop  : [+LOOP] ( n -- ) \ gforth bracket-question-plus-loop
   rdrop rdrop ;                                       immediate    rdrop ;                                             immediate
   
 : [LOOP] ( -- ) \ gforth bracket-loop  : [LOOP] ( -- ) \ gforth bracket-loop
   1 rdrop rdrop ;                                     immediate    1 rdrop ;                                           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 rdrop ;                                    immediate    -1 rdrop ;                                          immediate
   
 :noname (i) @ ;  :noname (i) @ ;
 :noname (i) @ postpone Literal ;  :noname (i) @ postpone Literal ;
Line 157 
Line 157 
                                                       immediate                                                        immediate
   
 : [REPEAT]  ( -- ) \ gforth bracket-repeat  : [REPEAT]  ( -- ) \ gforth bracket-repeat
   false rdrop rdrop ;                                 immediate    false rdrop ;                                       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 rdrop 1 countif +!  THEN ;    0= IF   postpone [ELSE] true rdrop 1 countif +!  THEN ;
                                                       immediate                                                        immediate
   
 Warnings on  Warnings on

Generate output suitable for use with a patch program
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help