2004-10-01 22:02:54 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: compiler
|
|
|
|
|
USE: test
|
|
|
|
|
USE: math
|
|
|
|
|
USE: kernel
|
|
|
|
|
USE: words
|
|
|
|
|
|
2004-10-01 22:46:12 -04:00
|
|
|
: generic-test
|
2004-10-01 22:02:54 -04:00
|
|
|
{
|
2004-12-12 23:49:44 -05:00
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
2004-10-01 22:02:54 -04:00
|
|
|
} generic ; compiled
|
|
|
|
|
|
|
|
|
|
[ 2 3 ] [ 2 3 t generic-test ] unit-test
|
|
|
|
|
[ 2 3 ] [ 2 3 4 generic-test ] unit-test
|
|
|
|
|
[ 2 f ] [ 2 3 f generic-test ] unit-test
|
|
|
|
|
|
2004-10-01 22:46:12 -04:00
|
|
|
: generic-literal-test
|
|
|
|
|
4 {
|
2004-12-12 23:49:44 -05:00
|
|
|
[ drop ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ nip ]
|
2004-10-01 22:46:12 -04:00
|
|
|
} generic ; compiled
|
|
|
|
|
|
|
|
|
|
[ ] [ generic-literal-test ] unit-test
|
|
|
|
|
|
|
|
|
|
: generic-test-alt
|
2004-10-01 22:02:54 -04:00
|
|
|
{
|
2004-12-12 23:49:44 -05:00
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ nip ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
|
|
|
|
[ drop ]
|
2004-12-10 02:41:52 -05:00
|
|
|
} generic + ; compiled
|
2004-10-01 22:02:54 -04:00
|
|
|
|
|
|
|
|
[ 5 ] [ 2 3 4 generic-test-alt ] unit-test
|
2004-12-10 02:41:52 -05:00
|
|
|
[ 7/2 ] [ 2 3 3/2 generic-test-alt ] unit-test
|
2004-10-01 22:02:54 -04:00
|
|
|
|
|
|
|
|
DEFER: generic-test-2
|
|
|
|
|
|
|
|
|
|
: generic-test-4
|
|
|
|
|
not generic-test-2 ;
|
|
|
|
|
|
|
|
|
|
: generic-test-3
|
|
|
|
|
drop 3 ;
|
|
|
|
|
|
|
|
|
|
: generic-test-2
|
|
|
|
|
{
|
2004-12-12 23:49:44 -05:00
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-4 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
|
|
|
|
[ generic-test-3 ]
|
2004-10-01 22:02:54 -04:00
|
|
|
} generic ;
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ t generic-test-2 ] unit-test
|
|
|
|
|
[ 3 ] [ 3 generic-test-2 ] unit-test
|
|
|
|
|
[ 3 ] [ f generic-test-2 ] unit-test
|
