--- gforth/locals-test.fs 1995/01/25 18:53:50 1.6 +++ gforth/locals-test.fs 1998/12/08 22:02:46 1.10 @@ -1,5 +1,26 @@ -include glocals.fs -include debugging.fs +\ test gforth locals + +\ Copyright (C) 1995,1996,1997 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., 675 Mass Ave, Cambridge, MA 02139, USA. + + +require glocals.fs +require debugs.fs : localsinfo \ !! only debugging ." stack: " .s ." locals-size: " locals-size ? ." locals-list" @@ -302,8 +323,9 @@ cr : test 1 { a } ." after }" cr - 2 { b -- } ." after --" cr + 2 { b -- } ." after --" cr ; +test .s cr bye