diff options
| author | Paul A. Patience <paul@apatience.com> | 2021-07-04 23:38:07 -0400 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-05 14:35:49 -0700 |
| commit | c656cf912e32f394a525d970bce7b08e47f06333 (patch) | |
| tree | 28e2a10ea4a44cb3500e7ad5a8fb0df4a6c67e57 /tests/011 | |
| parent | b632bc645ba4fc72e1434cf58327b653bbf73c5b (diff) | |
| download | txr-c656cf912e32f394a525d970bce7b08e47f06333.tar.gz txr-c656cf912e32f394a525d970bce7b08e47f06333.tar.bz2 txr-c656cf912e32f394a525d970bce7b08e47f06333.zip | |
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.
Diffstat (limited to 'tests/011')
| -rw-r--r-- | tests/011/macros-3.tl | 2 | ||||
| -rw-r--r-- | tests/011/mandel.txr | 22 |
2 files changed, 11 insertions, 13 deletions
diff --git a/tests/011/macros-3.tl b/tests/011/macros-3.tl index e08e5da7..9a595021 100644 --- a/tests/011/macros-3.tl +++ b/tests/011/macros-3.tl @@ -11,7 +11,7 @@ (m)))))) 42) -(defvar x 0) +(defvarl x 0) (defmacro mac-time-counter () (inc x)) (defsymacro s (mac-time-counter)) 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 |