stack-checker: old bug, float>fixnum was not foldable!!

db4
Doug Coleman 2015-08-13 14:47:01 -07:00
parent b2364198a2
commit dc71bd4caa
1 changed files with 1 additions and 1 deletions

View File

@ -412,7 +412,7 @@ M: object infer-call* \ call bad-macro-input ;
\ float>= { float float } { object } define-primitive \ float>= make-foldable
\ float>bignum { float } { bignum } define-primitive \ float>bignum make-foldable
\ float>bits { real } { integer } define-primitive \ float>bits make-foldable
\ float>fixnum { float } { fixnum } define-primitive \ bignum>fixnum make-foldable
\ float>fixnum { float } { fixnum } define-primitive \ float>fixnum make-foldable
\ fpu-state { } { } define-primitive
\ fputc { object alien } { } define-primitive
\ fread-unsafe { integer c-ptr alien } { integer } define-primitive