simon/post-scarcity
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Very small fix to formatting integers.

Browse source
This commit is contained in:
Simon Brooke 2018-12-31 16:24:38 +00:00
parent a02d286ad5
commit 6d2cf313cb
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/arith/integer.c
View file

@ -252,6 +252,14 @@ struct cons_pointer integer_to_string( struct cons_pointer int_pointer,
} }
} }
if (stringp(result) && pointer2cell(result).payload.string.character == L',') {
/* if the number of digits in the string is divisible by 3, there will be
* an unwanted comma on the front. */
struct cons_pointer tmp = result;
result = pointer2cell(result).payload.string.cdr;
dec_ref(tmp);
}
if ( is_negative ) { if ( is_negative ) {
result = make_string( L'-', result ); result = make_string( L'-', result );
} }