Remove added printf.
This commit is contained in:
parent
a4d292b21a
commit
03bf7d3def
|
@ -37,7 +37,6 @@
|
||||||
|
|
||||||
(define (go)
|
(define (go)
|
||||||
(let ([seed0 #f] [file #f] [dir #f] [forever? #f] [global-seed #f] [write? #f])
|
(let ([seed0 #f] [file #f] [dir #f] [forever? #f] [global-seed #f] [write? #f])
|
||||||
(printf ">>> ~s\n" (current-command-line-arguments))
|
|
||||||
(command-line
|
(command-line
|
||||||
#:once-each
|
#:once-each
|
||||||
["--oo" "forever" (set! forever? #t)]
|
["--oo" "forever" (set! forever? #t)]
|
||||||
|
@ -75,7 +74,6 @@
|
||||||
|
|
||||||
(module+ main
|
(module+ main
|
||||||
(let ([seed0 #f] [file #f] [dir #f] [forever? #f] [global-seed #f] [write? #f])
|
(let ([seed0 #f] [file #f] [dir #f] [forever? #f] [global-seed #f] [write? #f])
|
||||||
(printf ">>> ~s\n" (current-command-line-arguments))
|
|
||||||
(command-line
|
(command-line
|
||||||
#:once-each
|
#:once-each
|
||||||
["--oo" "forever" (set! forever? #t)]
|
["--oo" "forever" (set! forever? #t)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user