[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.31 and 1.32

version 1.31, Thu May 6 21:33:36 1999 UTC version 1.32, Sun May 9 21:21:56 1999 UTC
Line 423 
Line 423 
 \ ticks  \ ticks
   
 : (') ( "name" -- nt ) \ gforth  : (') ( "name" -- nt ) \ gforth
     name dup 0= -&16 and throw \ test for length 0      name name-too-short?
     find-name dup 0=      find-name dup 0=
     IF      IF
         drop -&13 bounce          drop -&13 bounce

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help