 ] each
 
 : define-float-jump ( word op -- )
-    [ "x" operand 0 "y" operand FCMPU ] swap add
+    [ "x" operand 0 "y" operand FCMPU ] swap suffix
     { { float "x" } { float "y" } } define-if-intrinsic ;
 
 {

} define-intrinsic

: define-float-op ( word op -- )
    [ "z" operand "x" operand "y" operand ] swap add H{
        { +input+ { { float "x" } { float "y" } } }
        { +scratch+ { { float "z" } } }
        { +output+ { "z" } }

} define-intrinsics

: fixnum-register-op ( op -- pair )
    [ "out" operand "y" operand "x" operand ] swap suffix H{
        { +input+ { { f "x" } { f "y" } } }
        { +scratch+ { { f "out" } } }
        { +output+ { "out" } }
    } 2array ;

: fixnum-value-op ( op -- pair )
    [ "out" operand "x" operand "y" operand ] swap suffix H{
        { +input+ { { f "x" } { [ small-tagged? ] "y" } } }
        { +scratch+ { { f "out" } } }
        { +output+ { "out" } }
