compiler.tests.alien: fix typo

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 5793482a273dbc73227624770482c4831085d679..a3df053ca203baf3eeda3635bcbe55d852e81874 100755 (executable)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -444,9 +444,8 @@ STRUCT: double-rect
     void { void* void* double-rect } cdecl
     [ "example" set-global 2drop ] alien-callback ;
 
-: double-rect-test ( arg -- arg' )
+: double-rect-test ( arg callback -- arg' )
     [ f f ] 2dip
-    double-rect-callback
     void { void* void* double-rect } cdecl alien-indirect
     "example" get-global ;