X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Falien%2Fparser%2Fparser.factor;fp=basis%2Falien%2Fparser%2Fparser.factor;h=8d850c47eea8500b6542452ae16fb063c0770cb4;hp=8385bfb97f61b51d9b807f379d77dbe96a981745;hb=833372cd0802184757240b3948e816de45241e8e;hpb=23a1f0ed8c11f8e7ddc0d4a71ca76c30744c1c10

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 8385bfb97f..8d850c47ee 100644
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -91,14 +91,14 @@ IN: alien.parser
     '[ [ _ _ _ ] dip alien-callback ] ;
 
 :: make-callback-type ( lib return type-name parameters -- word quot effect )
-    return type-name normalize-c-arg :> ( return type-name )
+    return type-name normalize-c-arg :> ( return-c-type type-name )
     type-name current-vocab create :> type-word 
     type-word [ reset-generic ] [ reset-c-type ] bi
     void* type-word typedef
     parameters return parse-arglist :> ( types callback-effect )
     type-word callback-effect "callback-effect" set-word-prop
     type-word lib "callback-library" set-word-prop
-    type-word return types lib library-abi callback-quot (( quot -- alien )) ;
+    type-word return-c-type types lib library-abi callback-quot (( quot -- alien )) ;
 
 : (CALLBACK:) ( -- word quot effect )
     "c-library" get