Whalesong changes

gistfile1.rkt

(define watch 
  (lambda (watch-file (lastmod 0))
    (let 
        ([currentmod (file-or-directory-modify-seconds watch-file)])
      (begin
        (if (not (equal? lastmod currentmod))                                                  
            (begin 
              (print "Compiling file\n")
              (sleep 1)
              (watch watch-file (file-or-directory-modify-seconds watch-file)))
            (begin                                                    
              (sleep 1)
              (watch watch-file lastmod)))))))



 [("-w" "--watch")             
             ("Watch a file and recompile if changed")             
               (current-watch-file? #t)]


(current-command-line-arguments (vector "build" "-w" "c:\\src\\wstest\\hello.rkt"))





;; Enable watching a file to recomile as needed
(: current-watch-file? (Parameterof Boolean))
(define current-watch-file? (make-parameter #f))