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

Workaround Windows libc bug (?)

db4
U-SLAVA-DFB8FF805\Slava 2008-08-22 00:32:37 -05:00
parent 271943085d
commit cead05c5d2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/math/parser/parser.factor
View File

@ -147,6 +147,7 @@ M: float >base
{ [ dup fp-nan? ] [ drop "0.0/0.0" ] } { [ dup fp-nan? ] [ drop "0.0/0.0" ] }
{ [ dup 1.0/0.0 = ] [ drop "1.0/0.0" ] } { [ dup 1.0/0.0 = ] [ drop "1.0/0.0" ] }
{ [ dup -1.0/0.0 = ] [ drop "-1.0/0.0" ] } { [ dup -1.0/0.0 = ] [ drop "-1.0/0.0" ] }
{ [ dup double>bits HEX: 8000000000000000 = ] [ drop "-0.0" ] }
[ float>string fix-float ] [ float>string fix-float ]
} cond ; } cond ;