[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.8 and 1.9

version 1.8, Mon Sep 12 19:00:36 1994 UTC version 1.9, Wed Sep 28 17:02:50 1994 UTC
Line 404 
Line 404 
      execute nip       execute nip
      UNLOOP EXIT       UNLOOP EXIT
    endif     endif
  -1 +loop   -1 s+loop
  \ we did not find a type, abort   \ we did not find a type, abort
  true abort" unknown type prefix" ;   true abort" unknown type prefix" ;
   
Line 528 
Line 528 
  ." NEXT_P1;" cr   ." NEXT_P1;" cr
  stores   stores
  fill-tos   fill-tos
  ." NEXT1_P2;" cr   ." NEXT_P2;" cr
  ." }" cr   ." }" cr
  cr   cr
 ;  ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help