             0x8000,0000 0x8000,0000
             0x8000,0000 0x8000,0000
         } underlying>> ] }
-        { longlong-2-rep [ ulonglong-array{
-            0x8000,0000,0000,0000
-            0x8000,0000,0000,0000
-        } underlying>> ] }
     } case ;
 
 : ^load-neg-zero-vector ( rep -- dst )

            [ dupd ^^horizontal-add-vector ]
            [ dupd ^^horizontal-add-vector ] bi
        ]
        [| src rep | 
            src src rep ^^merge-vector-head :> head
            src src rep ^^merge-vector-tail :> tail
            head tail rep ^^add-vector :> src'

            [ dupd ^^horizontal-add-vector ]
            [ dupd ^^horizontal-add-vector ] tri
        ]
        [| src rep |
            src src rep ^^merge-vector-head :> head
            src src rep ^^merge-vector-tail :> tail
            head tail rep ^^add-vector :> src'
