sicp_exercise_2_23.scm

(define (my-for-each proc list-of-values)
  (cond ((null? list-of-values) #t)
        (else (proc (car list-of-values))
              (my-for-each proc (cdr list-of-values)))))

;; or

(define (my-for-each proc list-of-values)
  (if (null? list-of-values)
  #t
  (begin
    (proc (car list-of-values))
    (my-for-each proc (cdr list-of-values)))))

(my-for-each (lambda (x) (display x) (newline)) (list 1 3 999 3.14))

I prefer the cond version...

I'm not sure which I prefer actually

I hadn't seen begin before, but it's clearly an easy function to implement yourself! -> https://gist.github.com/790194