Commit 8d3886d

committed

2 parents f4cd15c + d182ddf commit 8d3886dCopy full SHA for 8d3886d

File tree

+1230

-824

lines changed

+1230

-824

lines changed

Lines changed: 5 additions & 5 deletions

Original file line number	Diff line number	Diff 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`
`3`	`3`
`4`	`4`	`Licensed under the MIT license: https://opensource.org/licenses/MIT`
`5`	`5`	`*/`
`@@ -23,7 +23,7 @@`
`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\nuLisp 4.4d-mod!"));`
	`72`	`+ Serial.println(F("\n\n\nuLisp 4.6-mod!"));`
`73`	`73`	`sdmain();`
`74`	`74`	`}`
`75`	`75`

Comments

(0)