misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Accept file names on the command line

This commit is contained in:
Tony Garnock-Jones 2014-12-27 18:18:55 -05:00
parent 0c559238da
commit a512da0d7b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rmacs/main.rkt
View File

@ -19,9 +19,13 @@
(require racket/trace)
(current-trace-notify (lambda (s) (log-info "TRACE: ~a" s)))
(void
(rmacs #:initial-files (list
(build-path (collection-file-path "main.rkt" "rmacs")
'up 'up "doc" "xterm_controls.txt"))))
(rmacs #:initial-files (match (current-command-line-arguments)
['#()
(list
(build-path (collection-file-path "main.rkt" "rmacs")
'up 'up "doc" "xterm_controls.txt"))]
[(vector files ...)
files])))
;; (require profile)
;; (require ansi)
;; (void (profile-thunk (lambda () (begin0 (main)