]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/compiler/cfg/intrinsics/fixnum/fixnum.factor
compiler.cfg: nuke ##bignum>integer and ##integer>bignum since they were unused
[factor.git] / basis / compiler / cfg / intrinsics / fixnum / fixnum.factor
index 2e2bfd5f099713a217b17f4b86f3fbb041ad81b4..8ead484cf1ac26e9dac7861723c7213f4bfcfcf7 100644 (file)
@@ -57,12 +57,6 @@ IN: compiler.cfg.intrinsics.fixnum
 : emit-fixnum-comparison ( cc -- )
     '[ _ ^^compare ] emit-fixnum-op ;
 
-: emit-bignum>fixnum ( -- )
-    ds-pop ^^bignum>integer ^^tag-fixnum ds-push ;
-
-: emit-fixnum>bignum ( -- )
-    ds-pop ^^untag-fixnum ^^integer>bignum ds-push ;
-
 : emit-no-overflow-case ( dst -- final-bb )
     [ ds-drop ds-drop ds-push ] with-branch ;