Skip to content

Commit 8d3886d

Browse files
Merge branch 'master' of https://github.com/technoblogy/ulisp-esp into master
2 parents f4cd15c + d182ddf commit 8d3886d

File tree

2 files changed

+1230
-824
lines changed

2 files changed

+1230
-824
lines changed

ulisp-esp32.ino

+5-5
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
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
33
44
Licensed under the MIT license: https://opensource.org/licenses/MIT
55
*/
@@ -23,7 +23,7 @@
2323
#include "extensions.hpp"
2424
#include "bignums.hpp"
2525

26-
const char foo[] PROGMEM =
26+
const char foo[] =
2727
"(defvar *loaded* nil)"
2828
"(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))))))"
2929
"(load \"main.lisp\")"
@@ -38,7 +38,7 @@ int getfoo() {
3838
return temp;
3939
}
4040
if (fooi == foolen) return -1;
41-
char c = (char)pgm_read_byte(&foo[fooi]);
41+
char c = foo[fooi];
4242
fooi++;
4343
return c;
4444
}
@@ -69,7 +69,7 @@ void setup () {
6969
ulispinit();
7070
addtable(ExtensionsTable);
7171
addtable(BignumsTable);
72-
Serial.println(F("\n\n\nuLisp 4.4d-mod!"));
72+
Serial.println(F("\n\n\nuLisp 4.6-mod!"));
7373
sdmain();
7474
}
7575

0 commit comments

Comments
 (0)