Diff for /gforth/glocals.fs between versions 1.64 and 1.65

version 1.64, 2012/01/16 22:17:32 version 1.65, 2012/02/07 16:48:55
Line 88  require search.fs Line 88  require search.fs
 require float.fs  require float.fs
 require extend.fs \ for case  require extend.fs \ for case
   
 : save-mem-dict ( addr1 u -- addr2 u )  
     here swap dup allot ( addr1 addr2 u )  
     2dup 2>r move 2r> ;  
   
 : compile-@local ( n -- ) \ gforth compile-fetch-local  : compile-@local ( n -- ) \ gforth compile-fetch-local
  case   case
     0       of postpone @local0 endof      0       of postpone @local0 endof

Removed from v.1.64  
changed lines
  Added in v.1.65


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