Fix compile error

2008-12-05 23:51:34 -06:00 · 2008-12-05 23:51:34 -06:00 · f48653c47a
parent 6860285b07
commit f48653c47a
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/codegen/codegen.factor
+++ b/basis/compiler/codegen/codegen.factor
@ -451,7 +451,7 @@ M: ##alien-indirect generate-insn

 TUPLE: callback-context ;

-: current-callback 2 getenv ;
+: current-callback ( -- id ) 2 getenv ;

 : wait-to-return ( token -- )
    dup current-callback eq? [