 ! otherwise return the opposite of our endianness
 : endian-slot ( endian c-type pair -- endian-slot )
     [ native-endianness get = ] 2dip rot [ drop ] [ nip pair>c-type ] if ;
-    
+
 ERROR: unsupported-endian-type endian slot ;
 
 : slot>endian-slot ( endian slot -- endian-slot )

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

        {
            { [ dup char = ] [ 2drop char ] }
            { [ dup uchar = ] [ 2drop uchar ] }
            { [ dup c:short = ] [ { le16 be16 } endian-slot ] }
            { [ dup ushort = ] [ { ule16 ube16 } endian-slot ] }
            { [ dup int = ] [ { le32 be32 } endian-slot ] }
            { [ dup uint = ] [ { ule32 ube32 } endian-slot ] }
