0. #lang racket/base
1.  
2. ;; Contract: (-> input-port? output-port? input-port?)
3. (define (make-logging-input-port original logger)
4.   (make-input-port
5.    (object-name original)
6.    (lambda (buffer) ; reader
7.      (let ([nbytes (read-bytes! buffer original)])
8.        (unless (eof-object? nbytes)
9.          (write-bytes buffer logger 0 nbytes))
10.        nbytes))
11.    (lambda (buffer skip-len evt) ; peek
12.      (peek-bytes! buffer skip-len original))
13.    (lambda () (close-input-port original))))
14.  
15.  
16.  
17. (define logging-port (open-output-string))
18. (parameterize ([current-input-port (make-logging-input-port (current-input-port) logging-port)])
19.   (display "Enter some text: ")
20.   (flush-output)
21.   (printf "You entered ~S according to read-line~%" (read-line))
22.   (printf "The string log says you entered ~S~%" (get-output-string logging-port)))

=>

Enter some text: You entered #<eof> according to read-line The string log says you entered ""