--- gforth/wordsets.fs 1995/01/19 17:48:13 1.2 +++ gforth/wordsets.fs 2007/12/31 19:02:24 1.7 @@ -1,5 +1,22 @@ \ WORDSETS.STR All the words of the Wordsets 03may93jaw +\ Copyright (C) 1995,2003,2007 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 3 +\ 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, see http://www.gnu.org/licenses/. + WS CORE ^ ! ^ # ^ #> ^ #S ^ ' ^ ( ^ * ^ */ ^ */MOD ^ + ^ +! ^ +LOOP @@ -40,7 +57,11 @@ WS DOUBLE ^ 2CONSTANT ^ 2LITERAL ^ 2VARIABLE ^ D+ ^ D- ^ D. ^ D.R ^ D0< ^ D0= ^ D2* ^ D2/ ^ D< ^ D= ^ D>S ^ DABS ^ DMAX ^ DMIN ^ DNEGATE -^ M*/ ^ M+ ^ 2ROT ^ DU< +^ M*/ ^ M+ + +WS DOUBLE-EXT + +^ 2ROT ^ DU< WS EXEPTION