diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-24 19:09:26 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-24 19:09:26 -0700 |
| commit | 3f8f5ac3be4766ab9947adcce305a6134c88f572 (patch) | |
| tree | 59211fcbd282dfbb4bed57b65faf026b66aac299 | |
| parent | 28e7bb9d9da1992af672b012c2fb0514cd369f93 (diff) | |
| download | txr-3f8f5ac3be4766ab9947adcce305a6134c88f572.tar.gz txr-3f8f5ac3be4766ab9947adcce305a6134c88f572.tar.bz2 txr-3f8f5ac3be4766ab9947adcce305a6134c88f572.zip | |
compiler: rename comp-call.
* share/txr/stdlib/compiler.tl (compiler compile): Call
comp-fun-form instead of comp-call.
(compiler comp-call): Rename to comp-fun-form.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index f36be47b..d95254bb 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -192,7 +192,7 @@ (compile-error form "unexpanded quasiquote encountered")) (t (compile-error form "special op ~s not handled yet" sym)))) - ((bindable sym) me.(comp-call oreg env sym (cdr form))) + ((bindable sym) me.(comp-fun-form oreg env sym (cdr form))) (t (compile-error form "invalid operator"))))))) (defmeth compiler comp-atom (me oreg form) @@ -648,7 +648,7 @@ (let ((qexp (expand-quasi form))) me.(compile oreg env (expand qexp)))) -(defmeth compiler comp-call (me oreg env sym args) +(defmeth compiler comp-fun-form (me oreg env sym args) (condlet (((fbind env.(lookup-fun sym))) me.(comp-call-impl oreg env 'call fbind.loc args)) |