From 0aab7aa87273a2e4be559e9755f5c1345a94dfca Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 10 Apr 2010 00:41:20 -0700
Subject: [PATCH] compiler.tests.alien: fix typo

---
 basis/compiler/tests/alien.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 5793482a27..a3df053ca2 100755
--- 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 ;