;; fichier compter-lignes.scm (define (compter-lignes fichier-repertoire) (let ((ip (open-input-file fichier-repertoire))) (let boucle ((n 0) (ligne (read-line ip))) (if (eof-object? ligne) (begin (close-input-port ip) n) (boucle (+ n 1) (read-line ip))))))