Append-map sideeffects

[Idiomdrottning]

(require-extension srfi-1)
(define (pz lis)

(append-map

(lambda (x) (map (lambda (y)

(print y)
(cons x y))

(pz (remove (lambda (y) (eq? y x)) lis))))

lis))

(pz '(a b c d))

;; this is on 5.3.0.
;; prints nothing. But if it's map instead of append-map, it prints stuff.

[Idiomdrottning]

Pebcak as per ushe.