I'm trying to write a function to reas a file's content as a string added by szablica on Sun Mar 17 20:39:01 2013
(use ports) (define (read-file-contents filename) (call-with-output-string (lambda (result-string) (call-with-input-file filename (lambda (source-file) (copy-port source-file result-string)))))) (display (read-file-contents "/home/karol/.zshrc"))