Add stack effect

2008-10-12 18:40:57 -05:00 · 2008-10-12 18:40:57 -05:00 · 40c1529ce8
parent ed27d83921
commit 40c1529ce8
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@ -173,7 +173,7 @@ C-STRUCT: rect
    { "float" "h" }
 ;

-: <rect>
+: <rect> ( x y w h -- rect )
    "rect" <c-object>
    [ set-rect-h ] keep
    [ set-rect-w ] keep