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 | e21d3008aacaf728d8d781d03a10e01da9028104 (patch) | |
| tree | 45c960f365a54dd3577f4755567625a2aea51c54 | |
| parent | 57e1e82b77afeba446bcc97388b7a82773fb3eca (diff) | |
| download | txr-e21d3008aacaf728d8d781d03a10e01da9028104.tar.gz txr-e21d3008aacaf728d8d781d03a10e01da9028104.tar.bz2 txr-e21d3008aacaf728d8d781d03a10e01da9028104.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.
| -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) |