have TYPEDEF:, STRUCT: etc. throw an error if you try to define a c type name ending...

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 14078f3137a2755e47194143a7e9e66980af0476..f5fdced048c43e1cd9c257bcc72ab273037bdf1f 100644 (file)
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -46,8 +46,14 @@ IN: alien.parser
         "callback-library"
     } reset-props ;
 
+ERROR: *-in-c-type-name name ;
+
+: validate-c-type-name ( name -- name )
+    dup "*" tail?
+    [ *-in-c-type-name ] when ;
+
 : CREATE-C-TYPE ( -- word )
-    scan current-vocab create {
+    scan validate-c-type-name current-vocab create {
         [ fake-definition ]
         [ set-word ]
         [ reset-c-type ]