 : endian-c-type>c-type-symbol ( symbol -- symbol' )
     {
         { [ dup { ule16 ube16 } member? ] [ drop ushort ] }
-        { [ dup { le16 be16 } member? ] [ drop ac:short ] }
+        { [ dup { le16 be16 } member? ] [ drop c:short ] }
         { [ dup { ule32 ube32 } member? ] [ drop uint ] }
         { [ dup { le32 be32 } member? ] [ drop int ] }
         { [ dup { ule64 ube64 } member? ] [ drop ulonglong ] }

classes.struct.private combinators compiler.units endian fry
generalizations kernel macros math namespaces sequences words
arrays slots math.bitwise ;
QUALIFIED-WITH: alien.c-types ac
IN: alien.endian

ERROR: invalid-signed-conversion n ;

: convert-signed-quot ( n -- quot )
    {
        { 1 [ [ char <ref> char deref ] ] }
        { 2 [ [ c:short <ref> c:short deref ] ] }
        { 4 [ [ int <ref> int deref ] ] }
        { 8 [ [ longlong <ref> longlong deref ] ] }
        [ invalid-signed-conversion ]
