15 lines
287 B
Scheme
15 lines
287 B
Scheme
|
|
;; Uses editor.ss to open a frame for each argument
|
|
|
|
(module edit-main mzscheme
|
|
(require "edit.ss"
|
|
mzlib/cmdline)
|
|
|
|
(command-line
|
|
"Edit"
|
|
(current-command-line-arguments)
|
|
[args files
|
|
(if (null? files)
|
|
(new-text-frame #f)
|
|
(for-each new-text-frame files))]))
|