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

Version 2.5a - 1st December 2018 

Additional minor bug fix
This commit is contained in:
David Johnson-Davies 2018-12-01 16:07:14 +00:00
parent e44f5cffa4
commit 19b67ebe7e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM Version 2.5 - www.ulisp.com /* uLisp ARM Version 2.5a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 30th November 2018 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
*/ */
@ -3591,7 +3591,7 @@ object *eval (object *form, object *env) {
EVAL: EVAL:
// Enough space? // Enough space?
if (End != 0xA5) error(PSTR("Stack overflow")); if (End != 0xA5) error(PSTR("Stack overflow"));
if (Freespace < 20) gc(form, env); if (Freespace <= WORKSPACESIZE>>4) gc(form, env);
// Escape // Escape
if (tstflag(ESCAPE)) { clrflag(ESCAPE); error(PSTR("Escape!"));} if (tstflag(ESCAPE)) { clrflag(ESCAPE); error(PSTR("Escape!"));}
#if defined (serialmonitor) #if defined (serialmonitor)
@ -4129,4 +4129,3 @@ void loop () {
#endif #endif
repl(NULL); repl(NULL);
} }