(when (getenv "MREDDEBUG")
  (require-library "errortrace.ss" "errortrace") (error-print-width 200)
  (current-load (let ([ol (current-load)]) (lambda (x) (printf "~a~n" x) (ol x)))))

;(define argv (vector "Cupertino:Desktop Folder:tmp.ss"))

(define-values (get-dropped-files shutdown-splash close-splash)
  ((require-library "splash.ss" "framework")
   (build-path (collection-path "icons") "plt.gif")
   "DrScheme"
   81))

(require-relative-library "drsig.ss")

(let ([unit (require-relative-library "link.ss")])
  (shutdown-splash)
  (global-define-values/invoke-unit/sig drscheme^
                                        unit
                                        #f
                                        (program argv get-dropped-files))
  (close-splash))
(yield (make-semaphore 0))
