Pro Tips

Input

This function reads a file into lines of text:

(define (get-code-01 fname)
  (file->lines fname))

This function does the same thing from the “standard input port”.

(define (get-code-02)
  (port->lines))

The good news is that both a string and a file can become a port.

(define (get-code-file fname)
  (with-input-from-file fname
    get-code-02))
(define (get-code-string str)
  (with-input-from-string str
    get-code-02))

Future work: you could modify your get-code-02 so that it does all of your compilation work instead of just reading in the lines.

Output

You can redirect output from your screen to a file by using with-output-to-file (among other ways).

Example:

(define (worker n)
  (if (< n 10)
      (displayln "small")
      (displayln "BIG")))

(with-output-to-file "DELETE-ME.txt" #:exists 'replace
  (thunk
   (worker 5)
   (worker 11)))

Directory Scanning

The directory-list function can get the files in a folder.

Applying the path->string function will get you a string you can work with instead of a path object.