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

version 1.40, 1999/03/23 20:24:18 version 1.42, 1999/05/15 20:00:20
Line 293  locals-types definitions Line 293  locals-types definitions
   
 \ you may want to make comments in a locals definitions group:  \ you may want to make comments in a locals definitions group:
 ' \ alias \ ( -- ) \ core-ext,block-ext backslash  ' \ alias \ ( -- ) \ core-ext,block-ext backslash
 \G Line comment: if @code{BLK} contains 0, parse and discard the remainder  \G Comment till the end of the line if @code{BLK} contains 0 (i.e.,
 \G of the parse area. Otherwise, parse and discard all subsequent characters in the  \G while not loading a block), parse and discard the remainder of the
 \G parse area corresponding to the current line.  \G parse area. Otherwise, parse and discard all subsequent characters
 immediate   \G in the parse area corresponding to the current line.
   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, usually till the next @code{)}: parse and discard all
 \G area until "@code{)}" is encountered. During interactive input, an end-of-line  \G subsequent characters in the parse area until ")" is
 \G also acts as a comment terminator. For file input, it does not; if the  \G encountered. During interactive input, an end-of-line also acts as
 \G end-of-file is encountered whilst parsing for the "@code{)}" delimiter, Gforth  \G a comment terminator. For file input, it does not; if the
 \G will generate a warning.  \G end-of-file is encountered whilst parsing for the ")" delimiter,
   \G Gforth will generate a warning.
 immediate  immediate
   
 forth definitions  forth definitions
Line 335  create new-locals-map ( -- wordlist-map Line 337  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 352  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.42


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