diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-19 06:37:29 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-19 06:37:29 -0700 |
| commit | 1db866f4520c9e9a5ac63837a84c7ac7ff2e359e (patch) | |
| tree | e856c0c694c26915357e52390725460f85cdc212 | |
| parent | ead6bfb544e95509e6cd1364ec2fd95d88683b33 (diff) | |
| download | txr-1db866f4520c9e9a5ac63837a84c7ac7ff2e359e.tar.gz txr-1db866f4520c9e9a5ac63837a84c7ac7ff2e359e.tar.bz2 txr-1db866f4520c9e9a5ac63837a84c7ac7ff2e359e.zip | |
compiler: bugfix: misused assoc in function lookup.
* share/txr/stdlib/compiler.tl (sys:env lookup-fun): Fix
swapped args in assoc call.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index cd7eb719..47abbeab 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -60,7 +60,7 @@ (:method lookup-fun (me sym) (condlet - (((cell (assoc me.fb sym))) (cdr cell)) + (((cell (assoc sym me.fb))) (cdr cell)) (((up me.up)) up.(lookup-fun sym)) (t nil))) |