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

Version 3.0a - 6th December 2019

This commit is contained in:
David Johnson-Davies 2019-12-06 10:19:21 +00:00 committed by GitHub
parent 6a7fe00f74
commit d3636bb559
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ulisp-arm.ino
View File

@ -1,5 +1,5 @@
/* uLisp ARM 3.0 - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 28th November 2019
/* uLisp ARM 3.0a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 6th December 2019
Licensed under the MIT license: https://opensource.org/licenses/MIT
*/
@ -214,7 +214,7 @@ char LastChar = 0;
char LastPrint = 0;
// Flags
enum flag { PRINTREADABLY, RETURNFLAG, ESCAPE, EXITEDITOR, LIBRARYLOADED };
enum flag { PRINTREADABLY, RETURNFLAG, ESCAPE, EXITEDITOR, LIBRARYLOADED, NOESC };
volatile char Flags = 0b00001; // PRINTREADABLY set by default
// Forward references
@ -3824,7 +3824,7 @@ object *eval (object *form, object *env) {
// Escape
if (tstflag(ESCAPE)) { clrflag(ESCAPE); error2(0, PSTR("Escape!"));}
#if defined (serialmonitor)
testescape();
if (!tstflag(NOESC)) testescape();
#endif
if (form == NULL) return nil;
@ -4198,8 +4198,12 @@ object *nextitem (gfun_t gfun) {
else if (ch2 == 'O') base = 8;
else if (ch2 == 'X') base = 16;
else if (ch == '\'') return nextitem(gfun);
else if (ch == '.') return eval(read(gfun), NULL);
else error2(0, PSTR("illegal character after #"));
else if (ch == '.') {
setflag(NOESC);
object *result = eval(read(gfun), NULL);
clrflag(NOESC);
return result;
} else error2(0, PSTR("illegal character after #"));
ch = gfun();
}
int valid; // 0=undecided, -1=invalid, +1=valid