2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-08-04 03:12:55 -04:00
|
|
|
USE: lists
|
|
|
|
|
USE: namespaces
|
|
|
|
|
USE: test
|
2005-07-17 00:21:10 -04:00
|
|
|
USE: sequences
|
2004-08-04 03:12:55 -04:00
|
|
|
|
2005-04-16 00:23:27 -04:00
|
|
|
: cons@ [ cons ] change ;
|
|
|
|
|
|
2005-01-28 23:55:22 -05:00
|
|
|
[ [ 1 ] ] [ 1 f "x" set "x" cons@ "x" get ] unit-test
|
|
|
|
|
[ [[ 1 2 ]] ] [ 1 2 "x" set "x" cons@ "x" get ] unit-test
|
|
|
|
|
[ [ 1 2 ] ] [ 1 [ 2 ] "x" set "x" cons@ "x" get ] unit-test
|
2004-09-28 00:24:36 -04:00
|
|
|
|
2004-10-03 16:39:32 -04:00
|
|
|
[ [ 5 4 3 1 ] ] [
|
|
|
|
|
[ 5 4 3 2 1 ] "x" set
|
2004-12-10 21:39:27 -05:00
|
|
|
2 "x" [ remove ] change
|
2004-10-03 16:39:32 -04:00
|
|
|
"x" get
|
|
|
|
|
] unit-test
|
