steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bootstrap fixes

release
U-SLAVA-FB3999113\Slava 2007-10-14 20:44:19 -04:00
parent e9b42fa635
commit 047c8fe708
4 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/bootstrap/image/image.factor
View File

@ -166,7 +166,7 @@ GENERIC: ' ( obj -- ptr )
[ (bignum>seq) ] { } make ; [ (bignum>seq) ] { } make ;
: emit-bignum ( n -- ) : 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 dup length 1+ emit-fixnum
swap emit emit-seq ; swap emit emit-seq ;

2
core/optimizer/known-words/known-words.factor
View File

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

1
core/prettyprint/backend/backend.factor
View File

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

2
extra/math/complex/complex.factor
View File

@ -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 hashcode* nip >rect >fixnum swap >fixnum bitxor ;
M: complex pprint-delims drop \ C{ \ } ;
M: complex >pprint-sequence >rect 2array ; M: complex >pprint-sequence >rect 2array ;
IN: syntax IN: syntax