stack-checker.alien: get a bit more inlining going with callbacks, to expose another bug

basis/compiler/tree/cleanup/cleanup-tests.factor

@@ -541,3 +541,8 @@ USING: alien alien.c-types ;
     [ char { char char } cdecl [ + ] alien-callback ]
     \ fixnum+fast inlined?
 ] unit-test
+
+[ t ] [
+    [ void { } cdecl [ ] alien-callback void { } cdecl alien-indirect ]
+    \ >c-ptr inlined?
+] unit-test

basis/stack-checker/alien/alien.factor

@@ -109,7 +109,7 @@ TUPLE: alien-callback-params < alien-node-params xt ;
 
 : callback-bottom ( params -- )
     "( callback )" <uninterned-word> >>xt
-    xt>> '[ _ callback-xt ] infer-quot-here ;
+    xt>> '[ _ callback-xt { alien } declare ] infer-quot-here ;
 
 : callback-return-quot ( ctype -- quot )
     return>> [ [ ] ] [ c-type c-type-unboxer-quot ] if-void ;