Diff for /gforth/glocals.fs between versions 1.4 and 1.6

version 1.4, 1994/07/08 15:00:43 version 1.6, 1994/08/31 19:42:47
Line 87  include search-order.fs Line 87  include search-order.fs
 \ lp must have the strictest alignment (usually float) across calls;  \ lp must have the strictest alignment (usually float) across calls;
 \ for simplicity we align it strictly for every group.  \ for simplicity we align it strictly for every group.
   
   slowvoc @
   slowvoc on \ we want a linked list for the vocabulary locals
 vocabulary locals \ this contains the local variables  vocabulary locals \ this contains the local variables
 ' locals >body ' locals-list >body !  ' locals >body ' locals-list >body !
   slowvoc !
   
 create locals-buffer 1000 allot \ !! limited and unsafe  create locals-buffer 1000 allot \ !! limited and unsafe
     \ here the names of the local variables are stored      \ here the names of the local variables are stored
Line 505  forth definitions Line 508  forth definitions
    endif     endif
  endif ; immediate   endif ; immediate
   
 \ : locals|  : locals|
 \ !! should lie around somewhere    BEGIN  sname 2dup s" |" compare 0=  WHILE
            (local)  REPEAT  drop 0 (local) ;  immediate restrict

Removed from v.1.4  
changed lines
  Added in v.1.6


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