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

Fix FUNARG assoc_list swapping

Browse Source
This commit is contained in:
David Schmenk 2024-07-25 08:07:47 -07:00
parent c1326814ea
commit 551a50ece9
3 changed files with 3 additions and 3 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.

2
src/lisp/lores.lisp
View File

@ -11,7 +11,7 @@
)
))
(PLOTSIN (LAMBDA ()
(PLOTFUNC '(LAMBDA (S) (SIN (* S PI))))
(PLOTFUNC (FUNCTION (LAMBDA (S) (SIN (* S PI)))))
))
(PLOTCOS (LAMBDA ()
(PLOTFUNC '(LAMBDA (S) (COS (* S PI))))

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

@ -825,10 +825,10 @@ def eval_funarg(funarg, argvals)
// Build arg list before prepending to new assoc_list
//
arglist = NULL
argbase = eval_args(argvals)
push_sweep_stack(assoc_list) // Save current association list
argbase = eval_args(argvals)
assoc_list = funarg=>cdr=>cdr=>car // Swap associcate list pointer
argsyms = funexpr=>cdr=>car
argsyms = funexpr=>cdr=>car
build_args(funexpr=>cdr=>car, argbase)
if trace
puts("\nFUNARG:"); print_expr(funarg)