--- gforth/glocals.fs 1999/05/03 09:46:20 1.41 +++ gforth/glocals.fs 2000/09/23 15:46:56 1.46 @@ -1,6 +1,6 @@ \ A powerful locals implementation -\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -16,7 +16,7 @@ \ You should have received a copy of the GNU General Public License \ along with this program; if not, write to the Free Software -\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. \ More documentation can be found in the manual and in @@ -292,18 +292,20 @@ locals-types definitions postpone laddr# @ lp-offset, ; \ you may want to make comments in a locals definitions group: -' \ alias \ ( -- ) \ core-ext,block-ext backslash -\G Line comment: if @code{BLK} contains 0, parse and discard the remainder -\G of the parse area. Otherwise, parse and discard all subsequent characters in the -\G parse area corresponding to the current line. -immediate +' \ alias \ ( compilation 'ccc' -- ; run-time -- ) \ core-ext,block-ext backslash +\G Comment till the end of the line if @code{BLK} contains 0 (i.e., +\G while not loading a block), parse and discard the remainder of the +\G parse area. Otherwise, parse and discard all subsequent characters +\G in the parse area corresponding to the current line. +immediate ' ( alias ( ( compilation 'ccc' -- ; run-time -- ) \ core,file paren -\G Comment: parse and discard all subsequent characters in the parse -\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 end-of-file is encountered whilst parsing for the ")" delimiter, Gforth -\G will generate a warning. +\G Comment, usually till the next @code{)}: parse and discard all +\G subsequent characters in the parse area until ")" is +\G encountered. During interactive input, an end-of-line also acts as +\G a comment terminator. For file input, it does not; if the +\G end-of-file is encountered whilst parsing for the ")" delimiter, +\G Gforth will generate a warning. immediate forth definitions @@ -322,7 +324,7 @@ also locals-types \ the returned nfa denotes a word that produces what W: produces \ !! do the whole thing without nextname drop nextname - ['] W: >name ; + ['] W: >head-noprim ; previous