Bootstrap fixes

core/bootstrap/image/image.factor

@@ -166,7 +166,7 @@ GENERIC: ' ( obj -- ptr )
     [ (bignum>seq) ] { } make ;
 
 : emit-bignum ( n -- )
-    [ 0 < 1 0 ? ] keep abs bignum>seq
+    dup 0 < [ 1 swap neg ] [ 0 swap ] if bignum>seq
     dup length 1+ emit-fixnum
     swap emit emit-seq ;
 

core/optimizer/known-words/known-words.factor

@@ -92,7 +92,7 @@ float-arrays combinators.private ;
 ] each
 
 ! Specializers
-{ 1+ 1- sq neg recip sgn truncate } [
+{ 1+ 1- sq neg recip sgn } [
     { number } "specializer" set-word-prop
 ] each
 

core/prettyprint/backend/backend.factor

@@ -138,7 +138,6 @@ M: pathname pprint* dup pathname-string "P\" " pprint-string ;
 
 GENERIC: pprint-delims ( obj -- start end )
 
-M: complex pprint-delims drop \ C{ \ } ;
 M: quotation pprint-delims drop \ [ \ ] ;
 M: curry pprint-delims drop \ [ \ ] ;
 M: array pprint-delims drop \ { \ } ;

extra/math/complex/complex.factor

@@ -34,6 +34,8 @@ M: complex sqrt >polar swap fsqrt swap 2.0 / polar> ;
 
 M: complex hashcode* nip >rect >fixnum swap >fixnum bitxor ;
 
+M: complex pprint-delims drop \ C{ \ } ;
+
 M: complex >pprint-sequence >rect 2array ;
 
 IN: syntax