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

compiler.tests.alien: fix typo

release
Slava Pestov 2010-04-10 00:41:20 -07:00
parent 46a1fb2646
commit 0aab7aa872
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/tests/alien.factor
View File

@ -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 ;