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

Version 4.4a - 22nd March 2023

This commit is contained in:
David Johnson-Davies 2023-03-22 07:55:45 +00:00 committed by GitHub
parent f24ac94ddc
commit 1d58a95a5e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ulisp-arm-comments.ino
View File

@ -1,5 +1,6 @@
/* uLisp ARM Release 4.4 - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 21st March 2023
/* uLisp ARM Release 4.4a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 22nd March 2023
Licensed under the MIT license: https://opensource.org/licenses/MIT
*/
@ -5985,7 +5986,7 @@ object *sp_withclient (object *args, object *env) {
object *address = eval(first(params), env);
object *port = eval(second(params), env);
int success;
if (stringp(address)) success = client.connect(cstring(WITHCLIENT, address, buffer, BUFFERSIZE), checkinteger(port));
if (stringp(address)) success = client.connect(cstring(address, buffer, BUFFERSIZE), checkinteger(port));
else if (integerp(address)) success = client.connect(address->integer, checkinteger(port));
else error2(PSTR("invalid address"));
if (!success) return nil;
@ -8697,7 +8698,7 @@ void setup () {
initenv();
initsleep();
initgfx();
pfstring(PSTR("uLisp 4.4 "), pserial); pln(pserial);
pfstring(PSTR("uLisp 4.4a "), pserial); pln(pserial);
}
// Read/Evaluate/Print loop

8
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM Release 4.4 - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 21st March 2023
/* uLisp ARM Release 4.4a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 22nd March 2023
Licensed under the MIT license: https://opensource.org/licenses/MIT
*/
@ -4838,7 +4838,7 @@ object *sp_withclient (object *args, object *env) {
object *address = eval(first(params), env);
object *port = eval(second(params), env);
int success;
if (stringp(address)) success = client.connect(cstring(WITHCLIENT, address, buffer, BUFFERSIZE), checkinteger(port));
if (stringp(address)) success = client.connect(cstring(address, buffer, BUFFERSIZE), checkinteger(port));
else if (integerp(address)) success = client.connect(address->integer, checkinteger(port));
else error2(PSTR("invalid address"));
if (!success) return nil;
@ -7305,7 +7305,7 @@ void setup () {
initenv();
initsleep();
initgfx();
pfstring(PSTR("uLisp 4.4 "), pserial); pln(pserial);
pfstring(PSTR("uLisp 4.4a "), pserial); pln(pserial);
}
// Read/Evaluate/Print loop