step: add some q-expression functions, part 1 of many.

This commit is contained in:
NunoSempere 2023-05-01 21:40:04 -04:00
parent cf61eb6e98
commit f66aa8738f
2 changed files with 2 additions and 1 deletions

BIN
mumble

Binary file not shown.

View File

@ -377,7 +377,8 @@ int main(int argc, char** argv)
/* Define them with the following Language */ /* Define them with the following Language */
mpca_lang(MPCA_LANG_DEFAULT, " \ mpca_lang(MPCA_LANG_DEFAULT, " \
number : /-?[0-9]+\\.?([0-9]+)?/ ; \ number : /-?[0-9]+\\.?([0-9]+)?/ ; \
symbol : '+' | '-' | '*' | '/' ; \ symbol : \"list\" \"head\" \"tail\" \"eval\" \
| '+' | '-' | '*' | '/' ; \
sexpr : '(' <expr>* ')' ; \ sexpr : '(' <expr>* ')' ; \
qexpr : '{' <expr>* '}' ; \ qexpr : '{' <expr>* '}' ; \
expr : <number> | <symbol> | <sexpr> | <qexpr>; \ expr : <number> | <symbol> | <sexpr> | <qexpr>; \