6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

Clean up macro implementation

Browse Source
This commit is contained in:
David Schmenk 2024-07-31 20:16:17 -07:00
parent 082f1061d0
commit bfffd6e567
2 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/DRAWL.po
View File

Binary file not shown.

14
src/lisp/s-expr.pla
View File

@ -798,9 +798,6 @@ def apply_funargs(funarg, argvals)
return funexpr
end
def apply_macro(macro, args)
end
def eval_atom(atom)#1
//
// Atom - return the symbol value or the atom itself
@ -884,14 +881,9 @@ export def eval_expr(expr)#1
expr = apply_funargs(func, expr=>cdr)
break
elsif func=>car == sym_macro // MACRO
curl = new_cons // Add args to assoc_list
curl=>car = new_cons
curl=>car=>car = func=>cdr=>car=>car
curl=>car=>cdr = args
curl=>cdr = assoc_list
assoc_list = curl
curl = NULL
expr = func=>cdr=>cdr=>car
new_assoc(func=>cdr=>car=>car, args) // Add args kist argument
curl = NULL
expr = func=>cdr=>cdr=>car
else
puts("Non-LAMBDA EVAL:"); print_expr(expr); putln
expr = NULL