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

View File

@ -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 ;

View File

@ -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

View File

@ -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 \ { \ } ;

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 pprint-delims drop \ C{ \ } ;
M: complex >pprint-sequence >rect 2array ;
IN: syntax