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

Merge branch 'master' into smarter_error_list

db4
Slava Pestov 2009-04-13 20:35:35 -05:00
parent 28687d73c5 cb6f59ff5b
commit eface15ffa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,7 +50,9 @@ SYMBOL: radix
SYMBOL: negative? SYMBOL: negative?
: string>natural ( seq radix -- n/f ) : string>natural ( seq radix -- n/f )
[ [ digit> ] dip (digits>integer) ] each-digit ; inline over empty? [ 2drop f ] [
[ [ digit> ] dip (digits>integer) ] each-digit
] if ; inline
: sign ( -- str ) negative? get "-" "+" ? ; : sign ( -- str ) negative? get "-" "+" ? ;