From 047c8fe708399440c32a3a7e2897d13347e0173e Mon Sep 17 00:00:00 2001
From: "U-SLAVA-FB3999113\\Slava" <Slava@slava-fb3999113.(none)>
Date: Sun, 14 Oct 2007 20:44:19 -0400
Subject: [PATCH] Bootstrap fixes

---
 core/bootstrap/image/image.factor             | 2 +-
 core/optimizer/known-words/known-words.factor | 2 +-
 core/prettyprint/backend/backend.factor       | 1 -
 extra/math/complex/complex.factor             | 2 ++
 4 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/core/bootstrap/image/image.factor b/core/bootstrap/image/image.factor
index a842b240de..2308eef320 100755
--- a/core/bootstrap/image/image.factor
+++ b/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 ;
 
diff --git a/core/optimizer/known-words/known-words.factor b/core/optimizer/known-words/known-words.factor
index 88df5d8016..8ca92c05a3 100755
--- a/core/optimizer/known-words/known-words.factor
+++ b/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
 
diff --git a/core/prettyprint/backend/backend.factor b/core/prettyprint/backend/backend.factor
index 6250fbb43a..b67646e55a 100755
--- a/core/prettyprint/backend/backend.factor
+++ b/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 \ { \ } ;
diff --git a/extra/math/complex/complex.factor b/extra/math/complex/complex.factor
index 41ed7d2bd1..942c0c11d0 100755
--- a/extra/math/complex/complex.factor
+++ b/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