kyle
/
ulisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Version 2.5a - 1st December 2018 

Reverted
This commit is contained in:
David Johnson-Davies 2019-02-03 18:09:12 +00:00 committed by GitHub
parent ece94b224a
commit ff622ee9b3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM Version 2.5b - www.ulisp.com /* uLisp ARM Version 2.5a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 3rd February 2019 David Johnson-Davies - www.technoblogy.com - 1st December 2018
Licensed under the MIT license: https://opensource.org/licenses/MIT Licensed under the MIT license: https://opensource.org/licenses/MIT
*/ */
@ -3815,13 +3815,7 @@ void pmantissa (float f, pfun_t pfun) {
int d = (int)(i / mul); int d = (int)(i / mul);
pfun(d + '0'); pfun(d + '0');
i = i - d * mul; i = i - d * mul;
if (i == 0) { if (i == 0) { if (!point) { pfun('.'); pfun('0'); } return; }
if (!point) {
for (int k=0; k<sig; k++) pfun('0');
pfun('.'); pfun('0');
}
return;
}
if (j == sig && sig >= 0) { pfun('.'); point = true; } if (j == sig && sig >= 0) { pfun('.'); point = true; }
mul = mul / 10; mul = mul / 10;
} }