(Arne Babenhauserheide)
2017-11-11: use literal array syntax in examples/doctests.w tip use literal array syntax in examples/doctests.w
diff --git a/examples/doctests.w b/examples/doctests.w --- a/examples/doctests.w +++ b/examples/doctests.w @@ -98,22 +98,24 @@ define : doctests-extract-from-string s define : subtract a b . "Subtract B from A." - . #((tests (test-eqv 3 (subtract 5 2)))) + ## + tests : test-eqv 3 (subtract 5 2) - a b define : doctests-testmod mod . "Execute all doctests in the current module This procedure provides an example test:" - . #((tests - ('mytest - (define v (make-vector 5 99)) - (test-assert (vector? v)) - (test-eqv 99 (vector-ref v 2)) - (vector-set! v 2 7) - (test-eqv 7 (vector-ref v 2))) - ('mytest2 - (test-assert #t)))) + ## + tests + 'mytest + define v (make-vector 5 99) + test-assert (vector? v) + test-eqv 99 (vector-ref v 2) + vector-set! v 2 7 + test-eqv 7 (vector-ref v 2) + 'mytest2 + test-assert #t ;; thanks to Vítor De Araújo: https://lists.gnu.org/archive/html/guile-user/2017-08/msg00003.html let* : names : module-map (λ (sym var) sym) mod