diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-05 07:17:26 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-05 07:17:26 -0700 |
| commit | fe7851a39ab718bba5d68c66f0d723fcb0ddec55 (patch) | |
| tree | 45c960f365a54dd3577f4755567625a2aea51c54 /share | |
| parent | cbae862deab7ef6141bdefafab44b9936f60f881 (diff) | |
| download | txr-fe7851a39ab718bba5d68c66f0d723fcb0ddec55.tar.gz txr-fe7851a39ab718bba5d68c66f0d723fcb0ddec55.tar.bz2 txr-fe7851a39ab718bba5d68c66f0d723fcb0ddec55.zip | |
compiler: remove optional param from lookup-var.
* share/txr/stdlib/compiler.tl (struct env): The mark-used
optional parameter of lookup-var is not used anywhere, and so
always nil. Let's remove it.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 0f2ad9de..75070f3b 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -69,13 +69,11 @@ (set me.co me.up.co)) me.co.(new-env me)) - (:method lookup-var (me sym : mark-used) + (:method lookup-var (me sym) (condlet (((cell (assoc sym me.vb))) - (let ((bi (cdr cell))) - (if mark-used (set bi.used t)) - bi)) - (((up me.up)) up.(lookup-var sym mark-used)) + (cdr cell)) + (((up me.up)) up.(lookup-var sym)) (t nil))) (:method lookup-fun (me sym : mark-used) |