File tree 2 files changed +1230
-824
lines changed
2 files changed +1230
-824
lines changed Original file line number Diff line number Diff line change 1
- /* uLisp ESP Release 4.4d - www.ulisp.com
2
- David Johnson-Davies - www.technoblogy.com - 30th June 2023
1
+ /* uLisp ESP Release 4.6 - www.ulisp.com
2
+ David Johnson-Davies - www.technoblogy.com - 13th June 2024
3
3
4
4
Licensed under the MIT license: https://opensource.org/licenses/MIT
5
5
*/
23
23
#include " extensions.hpp"
24
24
#include " bignums.hpp"
25
25
26
- const char foo[] PROGMEM =
26
+ const char foo[] =
27
27
" (defvar *loaded* nil)"
28
28
" (defun load(filename)(if(null(search(list filename)*loaded*))(with-sd-card(f filename)(push filename *loaded*)(loop(let((form(read f)))(unless form(return))(eval form))))))"
29
29
" (load \" main.lisp\" )"
@@ -38,7 +38,7 @@ int getfoo() {
38
38
return temp;
39
39
}
40
40
if (fooi == foolen) return -1 ;
41
- char c = ( char ) pgm_read_byte (& foo[fooi]) ;
41
+ char c = foo[fooi];
42
42
fooi++;
43
43
return c;
44
44
}
@@ -69,7 +69,7 @@ void setup () {
69
69
ulispinit ();
70
70
addtable (ExtensionsTable);
71
71
addtable (BignumsTable);
72
- Serial.println (F (" \n\n\n uLisp 4.4d -mod!" ));
72
+ Serial.println (F (" \n\n\n uLisp 4.6 -mod!" ));
73
73
sdmain ();
74
74
}
75
75
You can’t perform that action at this time.
0 commit comments