Diff for /gforth/Attic/kernal.fs between versions 1.29 and 1.30

version 1.29, 1995/02/09 17:49:57 version 1.30, 1995/02/15 14:50:07
Line 1470  Defer 'cold ' noop IS 'cold Line 1470  Defer 'cold ' noop IS 'cold
   
 : cold ( -- )  : cold ( -- )
     pathstring 2@ process-path pathdirs 2!      pathstring 2@ process-path pathdirs 2!
       0 0 included-files 2!
     'cold      'cold
     argc @ 1 >      argc @ 1 >
     IF      IF

Removed from v.1.29  
changed lines
  Added in v.1.30


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