Diff for /gforth/glocals.fs between versions 1.40 and 1.41

version 1.40, 1999/03/23 20:24:18 version 1.41, 1999/05/03 09:46:20
Line 300  immediate Line 300  immediate
   
 ' ( alias ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file     paren  ' ( alias ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file     paren
 \G Comment: parse and discard all subsequent characters in the parse  \G Comment: parse and discard all subsequent characters in the parse
 \G area until "@code{)}" is encountered. During interactive input, an end-of-line  \G area until ")" is encountered. During interactive input, an end-of-line
 \G also acts as a comment terminator. For file input, it does not; if the  \G also acts as a comment terminator. For file input, it does not; if the
 \G end-of-file is encountered whilst parsing for the "@code{)}" delimiter, Gforth  \G end-of-file is encountered whilst parsing for the ")" delimiter, Gforth
 \G will generate a warning.  \G will generate a warning.
 immediate  immediate
   
Line 335  create new-locals-map ( -- wordlist-map Line 335  create new-locals-map ( -- wordlist-map
 ' drop A, \ rehash method  ' drop A, \ rehash method
 ' drop A,  ' drop A,
   
 slowvoc @  new-locals-map mappedwordlist Constant new-locals-wl
 slowvoc on  
 vocabulary new-locals  \ slowvoc @
 slowvoc !  \ slowvoc on
 new-locals-map ' new-locals >body wordlist-map A! \ !! use special access words  \ vocabulary new-locals
   \ slowvoc !
   \ new-locals-map ' new-locals >body wordlist-map A! \ !! use special access words
   
 variable old-dpp  variable old-dpp
   
Line 348  variable old-dpp Line 350  variable old-dpp
     dp old-dpp !      dp old-dpp !
     locals-dp dpp !      locals-dp dpp !
     lastxt get-current      lastxt get-current
     also new-locals      get-order new-locals-wl swap 1+ set-order
     also locals definitions locals-types      also locals definitions locals-types
     0 TO locals-wordlist      0 TO locals-wordlist
     0 postpone [ ; immediate      0 postpone [ ; immediate

Removed from v.1.40  
changed lines
  Added in v.1.41


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