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

            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 ]
            } cleave
        ]
        [| src rep |
            src src rep ^^merge-vector-head :> head
            src src rep ^^merge-vector-tail :> tail
            head tail rep ^^add-vector :> src'
