1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(define-module (file-utils) #:export (get-file-contents)) (define (get-file-contents file-path) (define (read-step) (let ((c (read-char))) (if (eof-object? c) (current-output-port) (begin (display c) (read-step))))) (with-input-from-file file-path (lambda () (with-output-to-string (lambda () (set-port-encoding! (current-output-port) "utf-8") (read-step))))))