(module resolve-source mzscheme
  (require (lib "match.ss"))
  (require "../syntax/ast.ss")

  ;; TODO: implement this

  (define (resolve-source ast)
    (match ast
      [($ compilation-unit _ package imports classes)
       (printf "visiting: ~a~n" (map (lambda (decl)
                                       (and decl (decl-name decl)))
                                     classes))
       #f]))

  (provide resolve-source))