;; fichier repertoire-chargement.scm (define (ConstruireRepertoire fichier tailleRepertoire noms tels) (let ((ip (open-input-file fichier))) (do ((i 0 (+ i 1))) ((= i tailleRepertoire) (close-input-port ip)) (vector-set! noms i (read-line ip)) (vector-set! tels i (read-line ip)))))