From c656cf912e32f394a525d970bce7b08e47f06333 Mon Sep 17 00:00:00 2001 From: "Paul A. Patience" Date: Sun, 4 Jul 2021 23:38:07 -0400 Subject: genman, lib, tests: use defvarl where possible. * genman.txr (dupes, tagnum): Replace defvar with defvarl. * stdlib/doc-lookup.tl (os-symbol): Same. * tests/011/macros-3.tl (x): Same. * tests/011/mandel.txr (x-centre, y-centre, width, i-max, j-max, n) (r-max, pixel-size, x-offset, y-offset): Same. (file, colour-max): Delete (unused) variables. * tests/012/circ.tl (x): Replace defvar with defvarl. * tests/012/stack.tl (stack-limited): Same. * tests/012/struct.tl (s): Same. * tests/013/maze.tl (vi, pa, sc): Delete variables. Use function arguments instead. (usage): Fix typo. * tests/014/dgram-stream.tl (family): Rename to... (*family*): ...this. * tests/014/socket-basic.tl (socktype): Rename to... (*socktype*): ...this. (%iters%): Replace defvar with defvarl. --- stdlib/doc-lookup.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stdlib') diff --git a/stdlib/doc-lookup.tl b/stdlib/doc-lookup.tl index 110d37d4..ea2ede3c 100644 --- a/stdlib/doc-lookup.tl +++ b/stdlib/doc-lookup.tl @@ -2,7 +2,7 @@ (defvar usr:*doc-url* "https://www.nongnu.org/txr/txr-manpage.html") -(defvar os-symbol +(defvarl os-symbol (if (ignerr (dlsym (dlopen "libandroid.so") "AAsset_close")) :android (let ((u (uname))) -- cgit v1.2.3