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.

1 files changed, 10 insertions, 12 deletions

diff --git a/tests/011/mandel.txr b/tests/011/mandel.txr
index 8a701526..cfa24857 100644
--- a/tests/011/mandel.txr
+++ b/tests/011/mandel.txr
@@ -1,16 +1,14 @@
 @(do 
-    (defvar x-centre -0.5)
-    (defvar y-centre 0.0)
-    (defvar width 4.0)
-    (defvar i-max 80)
-    (defvar j-max 60)
-    (defvar n 100)
-    (defvar r-max 2.0)
-    (defvar file "mandelbrot.pgm")
-    (defvar colour-max 255)
-    (defvar pixel-size (/ width i-max))
-    (defvar x-offset (- x-centre (* 0.5 pixel-size (+ i-max 1))))
-    (defvar y-offset (+ y-centre (* 0.5 pixel-size (+ j-max 1))))
+    (defvarl x-centre -0.5)
+    (defvarl y-centre 0.0)
+    (defvarl width 4.0)
+    (defvarl i-max 80)
+    (defvarl j-max 60)
+    (defvarl n 100)
+    (defvarl r-max 2.0)
+    (defvarl pixel-size (/ width i-max))
+    (defvarl x-offset (- x-centre (* 0.5 pixel-size (+ i-max 1))))
+    (defvarl y-offset (+ y-centre (* 0.5 pixel-size (+ j-max 1))))
  
     ;; complex number library
     (macro-time