X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fcompiler%2Ftests%2Falien.factor;h=e3c5dee91746a6d2e3802d68f93d52a556173a25;hp=91215baf19dc401c35328ee9da5a1c0d7e9c110a;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor index 91215baf19..e3c5dee917 100755 --- a/basis/compiler/tests/alien.factor +++ b/basis/compiler/tests/alien.factor @@ -395,7 +395,7 @@ FUNCTION: ulonglong ffi_test_38 ( ulonglong x, ulonglong y ) ; : callback-9 ( -- callback ) "int" { "int" "int" "int" } "cdecl" [ - + + 1+ + + + 1 + ] alien-callback ; FUNCTION: void ffi_test_36_point_5 ( ) ; @@ -599,4 +599,4 @@ FUNCTION: short ffi_test_48 ( bool-field-test x ) ; [ 123 ] [ "bool-field-test" 123 over set-bool-field-test-parents ffi_test_48 -] unit-test \ No newline at end of file +] unit-test