main: pair!
This commit is contained in:
parent
e518de9ef8
commit
943fd9e582
|
@ -94,7 +94,6 @@ General help using GNU software: <http://gnu.org/gethelp/>
|
||||||
(exit 0)))
|
(exit 0)))
|
||||||
(when main (set! %main main))
|
(when main (set! %main main))
|
||||||
(cond ((pair? files)
|
(cond ((pair? files)
|
||||||
(display "pair!\n")
|
|
||||||
(let* ((file (car files))
|
(let* ((file (car files))
|
||||||
(port (if (equal? file "-") 0
|
(port (if (equal? file "-") 0
|
||||||
(open-input-file file))))
|
(open-input-file file))))
|
||||||
|
|
Loading…
Reference in New Issue