mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-09-07 12:54:31 +00:00
Fix FUNARG assoc_list swapping
This commit is contained in:
parent
c1326814ea
commit
551a50ece9
Binary file not shown.
@ -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))))
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user