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

Version 4.3a - 18th September 2022 

Fixes compile errors with BBC Micro:bit.
This commit is contained in:
David Johnson-Davies 2022-09-18 10:56:27 +01:00 committed by GitHub
parent d72cfe3833
commit 27d2480c65
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM Version 4.3 - www.ulisp.com /* uLisp ARM Version 4.3a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 15th September 2022 David Johnson-Davies - www.technoblogy.com - 18th September 2022
Licensed under the MIT license: https://opensource.org/licenses/MIT Licensed under the MIT license: https://opensource.org/licenses/MIT
*/ */
@ -1707,7 +1707,7 @@ char *cstring (builtin_t name, object *form, char *buffer, int buflen) {
return buffer; return buffer;
} }
IPAddress ipstring (builtin_t name, object *form) { uint32_t ipstring (builtin_t name, object *form) {
form = cdr(checkstring(name, form)); form = cdr(checkstring(name, form));
int p = 0; int p = 0;
union { uint32_t ipaddress; uint8_t ipbytes[4]; } ; union { uint32_t ipaddress; uint8_t ipbytes[4]; } ;
@ -2076,7 +2076,6 @@ void serialend (int address) {
#elif defined(ULISP_SERIAL1) #elif defined(ULISP_SERIAL1)
if (address == 1) {Serial1.flush(); Serial1.end(); } if (address == 1) {Serial1.flush(); Serial1.end(); }
#else #else
(void) baud;
if (false); if (false);
#endif #endif
else error(WITHSERIAL, PSTR("port not supported"), number(address)); else error(WITHSERIAL, PSTR("port not supported"), number(address));
@ -7062,7 +7061,7 @@ void setup () {
initenv(); initenv();
initsleep(); initsleep();
initgfx(); initgfx();
pfstring(PSTR("uLisp 4.3 "), pserial); pln(pserial); pfstring(PSTR("uLisp 4.3a "), pserial); pln(pserial);
} }
// Read/Evaluate/Print loop // Read/Evaluate/Print loop