] binary-op ;
: emit-fixnum-shift-general ( -- )
- ds-peek 0 cc> ##compare-integer-imm-branch
+ ds-peek 0 cc> <##compare-integer-imm-branch>
[ emit-fixnum-left-shift ] with-branch
[ emit-fixnum-right-shift ] with-branch
2array emit-conditional ;
: emit-overflow-case ( word -- final-bb )
[
- ##call
+ <##call>
-1 adjust-d
make-kill-block
] with-branch ;
[ ^^fixnum-sub ] \ fixnum-overflow emit-fixnum-overflow-op ;
: emit-fixnum* ( -- )
- [ ^^fixnum-mul ] \ fixnum*overflow emit-fixnum-overflow-op ;
\ No newline at end of file
+ [ ^^fixnum-mul ] \ fixnum*overflow emit-fixnum-overflow-op ;