Bootstrap fixes
parent
e9b42fa635
commit
047c8fe708
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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 \ { \ } ;
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue