Update unit test for word removal

db4
Slava Pestov 2008-04-03 00:22:10 -05:00
parent 93d9722a6b
commit cfe1c5d39e
1 changed files with 2 additions and 2 deletions

View File

@ -172,14 +172,14 @@ TUPLE: my-tuple ;
[ 1 t ] [
B{ 1 2 3 4 } [
{ c-ptr } declare
[ 0 alien-unsigned-1 ] keep type
[ 0 alien-unsigned-1 ] keep hi-tag
] compile-call byte-array type-number =
] unit-test
[ t ] [
B{ 1 2 3 4 } [
{ c-ptr } declare
0 alien-cell type
0 alien-cell hi-tag
] compile-call alien type-number =
] unit-test