2004-08-10 00:58:52 -04:00
|
|
|
IN: scratchpad
|
2004-08-16 23:52:52 -04:00
|
|
|
USE: errors
|
2004-08-10 00:58:52 -04:00
|
|
|
USE: kernel
|
2004-08-27 02:09:24 -04:00
|
|
|
USE: math
|
2004-08-10 00:58:52 -04:00
|
|
|
USE: namespaces
|
|
|
|
|
USE: parser
|
2004-08-16 23:52:52 -04:00
|
|
|
USE: stack
|
2004-08-10 00:58:52 -04:00
|
|
|
USE: strings
|
|
|
|
|
USE: test
|
2004-08-27 02:09:24 -04:00
|
|
|
USE: vectors
|
2004-08-10 00:58:52 -04:00
|
|
|
|
2004-08-16 23:52:52 -04:00
|
|
|
! Various things that broke CFactor at various times.
|
2004-08-10 00:58:52 -04:00
|
|
|
! This should run without issue (and tests nothing useful)
|
|
|
|
|
! in Java Factor
|
|
|
|
|
|
|
|
|
|
"20 <sbuf> \"foo\" set" eval
|
|
|
|
|
"garbage-collection" eval
|
2004-08-16 23:52:52 -04:00
|
|
|
|
2004-08-20 21:16:47 -04:00
|
|
|
[
|
|
|
|
|
[ drop ] [ drop ] catch
|
|
|
|
|
[ drop ] [ drop ] catch
|
|
|
|
|
] keep-datastack
|
2004-08-27 02:09:24 -04:00
|
|
|
|
|
|
|
|
"hello" str>sbuf "x" set
|
|
|
|
|
[ -5 "x" get set-sbuf-length ] [ drop ] catch
|
2004-08-27 23:20:10 -04:00
|
|
|
[ "x" get sbuf>str drop ] [ drop ] catch
|
2004-08-27 02:09:24 -04:00
|
|
|
|
|
|
|
|
10 <vector> "x" set
|
|
|
|
|
[ -2 "x" get set-vector-length ] [ drop ] catch
|
2004-08-27 23:20:10 -04:00
|
|
|
[ "x" get clone drop ] [ drop ] catch
|
2004-08-27 02:09:24 -04:00
|
|
|
|
|
|
|
|
10 [ [ -1000000 <vector> ] [ drop ] catch ] times
|
|
|
|
|
|
|
|
|
|
10 [ [ -1000000 <sbuf> ] [ drop ] catch ] times
|
