steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix alien hashcode for expired aliens

db4
Slava Pestov 2009-04-04 20:21:41 -05:00
parent 0affe96d95
commit 1040426565
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/alien/alien-tests.factor
View File

@ -1,6 +1,6 @@
USING: accessors alien alien.accessors alien.syntax byte-arrays arrays USING: accessors alien alien.accessors alien.syntax byte-arrays arrays
kernel kernel.private namespaces tools.test sequences libc math kernel kernel.private namespaces tools.test sequences libc math
system prettyprint layouts alien.libraries ; system prettyprint layouts alien.libraries sets ;
IN: alien.tests IN: alien.tests
[ t ] [ -1 <alien> alien-address 0 > ] unit-test [ t ] [ -1 <alien> alien-address 0 > ] unit-test
@ -86,3 +86,5 @@ f initialize-test set-global
[ ] [ initialize-test get BAD-ALIEN >>alien drop ] unit-test [ ] [ initialize-test get BAD-ALIEN >>alien drop ] unit-test
[ 7575 ] [ initialize-test [ 7575 ] initialize-alien ] unit-test [ 7575 ] [ initialize-test [ 7575 ] initialize-alien ] unit-test
[ { BAD-ALIEN } ] [ { BAD-ALIEN BAD-ALIEN BAD-ALIEN } prune ] unit-test

2
core/alien/alien.factor
View File

@ -49,7 +49,7 @@ M: alien equal?
2drop f 2drop f
] if ; ] if ;
M: simple-alien hashcode* nip alien-address ; M: simple-alien hashcode* nip dup expired>> [ drop 1234 ] [ alien-address ] if ;
ERROR: alien-callback-error ; ERROR: alien-callback-error ;