XPost: comp.lang.scheme

Kenny wrote:

(defun tv (x)
(if (consp x)
(loop for y in x do (tv y))
(format t "~a " x)))

Gauche Scheme

(define (tv x)
(if (pair? x) (for-each tv x) (format #t "~a " x)))

(tv '(j k (l m (n o) p) q))


j k l m n o p q

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)