keywords quote themselves

dragoncoder047 · dragoncoder047 · commit 4a302d22df2f · 2022-08-15T13:24:22.000-04:00
diff --git a/ulisp-esp32.ino b/ulisp-esp32.ino
@@ -5666,7 +5666,7 @@ object *nextitem (gfun_t gfun) {
     for (object *e = GlobalEnv; e != nil && !found; e = cdr(e)) {
       if (car(car(e)) == sym) found = true;
     }
-    if (!found) push(cons(sym, sym), GlobalEnv);
+    if (!found) sym = cons(bsymbol(QUOTE), cons(sym, nil)); // keywords quote themselves
   }
   return sym;
 }

Original file line number	Diff line number	Diff line change
`@@ -5666,7 +5666,7 @@ object *nextitem (gfun_t gfun) {`
`5666`	`5666`	`for (object *e = GlobalEnv; e != nil && !found; e = cdr(e)) {`
`5667`	`5667`	`if (car(car(e)) == sym) found = true;`
`5668`	`5668`	`}`
`5669`		`- if (!found) push(cons(sym, sym), GlobalEnv);`
	`5669`	`+ if (!found) sym = cons(bsymbol(QUOTE), cons(sym, nil)); // keywords quote themselves`
`5670`	`5670`	`}`
`5671`	`5671`	`return sym;`
`5672`	`5672`	`}`