diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-03-21 22:40:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-03-21 22:40:06 -0700 |
| commit | ef81bb38d3261c07dc8fa4fb8eb50bcfcfc04667 (patch) | |
| tree | 65af8330c7f39621d7f230e4916de789b9411f0d /stdlib/compiler.tl | |
| parent | 7995694f138ccef0113ac0494790eb0461f5d44e (diff) | |
| download | txr-ef81bb38d3261c07dc8fa4fb8eb50bcfcfc04667.tar.gz txr-ef81bb38d3261c07dc8fa4fb8eb50bcfcfc04667.tar.bz2 txr-ef81bb38d3261c07dc8fa4fb8eb50bcfcfc04667.zip | |
lib: switch from use function to ignore function
* stdlib/compiler.tl (compiler (comp-atom, comp-dwim),
safe-const-reduce, igno-notfound): Use ignore
rather than use for marking unused variable.
* stdlib/copy-file.tl (copy-files, copy-path-rec,
remove-path-rec, chmod-rec, chown-rec): Likewise.
* stdlib/optimize.tl (basic-block print): Likewise.
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 0b271cfd..b0f2d0f4 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -569,7 +569,7 @@ (t (compile-error form "invalid operator"))))))) (defmeth compiler comp-atom (me oreg form) - (use oreg) + (ignore oreg) (cond ((null form) (new (frag '(t 0) nil))) (t (let ((dreg me.(get-dreg form))) @@ -1662,8 +1662,7 @@ (defmeth compiler comp-dwim (me oreg env form) (mac-param-bind form (t obj . args) form - (use obj) - (use args) + (ignore obj args) (let* ((l1-exprs (cdr form)) (fun (car l1-exprs)) (bind env.(lookup-lisp1 fun nil))) @@ -2224,7 +2223,7 @@ ^(quote ,result) result)) (t (exc) - (use exc) + (ignore exc) (set throws t) form))) (ece (new eval-cache-entry @@ -2327,7 +2326,7 @@ use-sym unuse-sym)) (defmacro ign-notfound (form) - ^(usr:catch ,form (path-not-found (. rest) (use rest) nil))) + ^(usr:catch ,form (path-not-found (. rest) (ignore rest)))) (defun open-compile-streams (in-path out-path test-fn) (if (and (nullify in-path) |