2005-03-28 23:45:13 -05:00
|
|
|
IN: temporary
|
2004-12-23 01:14:07 -05:00
|
|
|
USE: alien
|
|
|
|
|
USE: kernel
|
|
|
|
|
USE: test
|
2004-12-25 15:52:08 -05:00
|
|
|
USE: inference
|
2004-12-23 01:14:07 -05:00
|
|
|
|
|
|
|
|
[ t ] [ 0 <alien> 0 <alien> = ] unit-test
|
2004-12-23 02:14:40 -05:00
|
|
|
[ f ] [ 0 <alien> 1024 <alien> = ] unit-test
|
|
|
|
|
[ f ] [ "hello" 1024 <alien> = ] unit-test
|
2004-12-25 15:52:08 -05:00
|
|
|
|
2005-03-21 20:53:26 -05:00
|
|
|
! : alien-inference-1
|
|
|
|
|
! "void" "foobar" "boo" [ "short" "short" ] alien-invoke ;
|
|
|
|
|
!
|
|
|
|
|
! [ [[ 2 0 ]] ] [ [ alien-inference-1 ] infer old-effect ] unit-test
|
|
|
|
|
!
|
|
|
|
|
! : alien-inference-2
|
|
|
|
|
! "int" "foobar" "boo" [ "short" "short" ] alien-invoke ;
|
|
|
|
|
!
|
|
|
|
|
! [ [[ 2 1 ]] ] [ [ alien-inference-2 ] infer old-effect ] unit-test
|
