version 1.1, 2007/10/22 20:11:43
|
version 1.3, 2010/09/01 16:52:12
|
Line 6
|
Line 6
|
|
|
\ Gforth is free software; you can redistribute it and/or |
\ Gforth is free software; you can redistribute it and/or |
\ modify it under the terms of the GNU General Public License |
\ modify it under the terms of the GNU General Public License |
\ as published by the Free Software Foundation; either version 2 |
\ as published by the Free Software Foundation, either version 3 |
\ of the License, or (at your option) any later version. |
\ of the License, or (at your option) any later version. |
|
|
\ This program is distributed in the hope that it will be useful, |
\ This program is distributed in the hope that it will be useful, |
Line 15
|
Line 15
|
\ GNU General Public License for more details. |
\ GNU General Public License for more details. |
|
|
\ 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, write to the Free Software |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
require ./tester.fs |
require ./tester.fs |
|
|
|
testing search order wordset |
decimal |
decimal |
|
|
: test-set-order0 ( c-addr u -- n ) |
: test-set-order0 ( c-addr u -- n ) |
Line 32 decimal
|
Line 32 decimal
|
nip nip then |
nip nip then |
>r set-order r> ; |
>r set-order r> ; |
|
|
|
|
{ s" order" test-set-order0 -> -13 } |
{ s" order" test-set-order0 -> -13 } |
{ s" 5e" test-set-order0 -> 0 5e } |
{ s" 5e" test-set-order0 -> 0 5e } |
{ s" root +" test-set-order1 -> -13 } |
{ s" root +" test-set-order1 -> -13 } |