[gforth] / gforth / locals-test.fs  

gforth: gforth/locals-test.fs

Diff for /gforth/locals-test.fs between version 1.4 and 1.5

version 1.4, Wed Jul 27 13:37:03 1994 UTC version 1.5, Mon Oct 24 19:16:01 1994 UTC
Line 94 
Line 94 
   
 : xxx5  : xxx5
 { a }  { a }
   a drop
 ahead  ahead
   assume-live
 begin  begin
 [ ." after begin" localsinfo ]  [ ." after begin" localsinfo ]
   a drop
 [ 1 cs-roll ]  [ 1 cs-roll ]
 then  then
 [ ." after then" localsinfo ]  [ ." after then" localsinfo ]
Line 278 
Line 281 
 ;  ;
 teststrcmp1  teststrcmp1
   
   ." testing the abominable locals-ext wordset" cr
   : puke locals| this read you can |
       you read this can ;
   
   1 2 3 4 puke . . . . cr
   
 bye  bye

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help