[BACK]Return to stuff.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/stuff.fs between versions 1.69 and 1.73

version 1.69, 2011/10/07 21:46:57 version 1.73, 2012/12/31 15:25:18
Line 1 Line 1
 \ miscelleneous words  \ miscelleneous words
   
 \ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010 Free Software Foundation, Inc.  \ Copyright (C) 1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 17 Line 17
 \ You should have received a copy of the GNU General Public License  \ You should have received a copy of the GNU General Public License
 \ along with this program. If not, see http://www.gnu.org/licenses/.  \ along with this program. If not, see http://www.gnu.org/licenses/.
   
 require glocals.fs  : save-mem-dict ( addr1 u -- addr2 u )
       here swap dup allot ( addr1 addr2 u )
       2dup 2>r move 2r> ;
   
   ' usable-dictionary-end @ dodefer: = [if]
       require glocals.fs
   [else]
       require glocals-1.60.fs
   [then]
   
   
 ' require alias needs ( ... "name" -- ... ) \ gforth  ' require alias needs ( ... "name" -- ... ) \ gforth
 \G An alias for @code{require}; exists on other systems (e.g., Win32Forth).  \G An alias for @code{require}; exists on other systems (e.g., Win32Forth).
Line 463  previous Line 472  previous
     \G the counted string. OBSOLESCENT: the counted string has a      \G the counted string. OBSOLESCENT: the counted string has a
     \G trailing space that is not included in its length.      \G trailing space that is not included in its length.
     sword here place  bl here count + c!  here ;      sword here place  bl here count + c!  here ;
   
   \ quotations
   
   :noname  false :noname ;
   :noname  locals-wordlist last @ lastcfa @
       postpone AHEAD
       locals-list @ locals-list off
       postpone SCOPE
       true  :noname  ;
   interpret/compile: [: ( compile-time: -- quotation-sys ) \ gforth bracket-colon
   \G Starts a quotation
   
   : ;] ( compile-time: quotation-sys -- ; run-time: -- xt ) \ gforth semi-bracket
       \g ends a quotation
       POSTPONE ; >r IF
           ]  postpone ENDSCOPE
           locals-list !
           postpone THEN
           lastcfa ! last ! to locals-wordlist
           r> postpone ALiteral
       ELSE  r>  THEN ( xt ) ; immediate
Removed from v.1.69  
changed lines
  Added in v.1.73

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