From fe7851a39ab718bba5d68c66f0d723fcb0ddec55 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 5 Apr 2021 07:17:26 -0700
Subject: 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.
---
share/txr/stdlib/compiler.tl | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
(limited to 'share')
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)
--
cgit v1.2.3