Diff for /gforth/locals-test.fs between versions 1.6 and 1.12

version 1.6, 1995/01/25 18:53:50 version 1.12, 2003/03/09 15:16:50
Line 1 Line 1
 include glocals.fs  \ test gforth locals
 include debugging.fs  
   \ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.
   
   \ This file is part of Gforth.
   
   \ Gforth is free software; you can redistribute it and/or
   \ modify it under the terms of the GNU General Public License
   \ as published by the Free Software Foundation; either version 2
   \ of the License, or (at your option) any later version.
   
   \ This program is distributed in the hope that it will be useful,
   \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   \ GNU General Public License for more details.
   
   \ 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., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
   
   
   require glocals.fs
   require debugs.fs
   
 : localsinfo \ !! only debugging  : localsinfo \ !! only debugging
  ." stack: " .s ." locals-size: " locals-size ? ." locals-list"   ." stack: " .s ." locals-size: " locals-size ? ." locals-list"
Line 302  cr Line 323  cr
   
 : test  : test
     1 { a }  ." after }" cr      1 { a }  ." after }" cr
     2 { b -- } ." after --" cr      2 { b -- }  ." after --" cr
 ;  ;
   test
 .s cr  .s cr
   
 bye  bye

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


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