-
- (define args (current-command-line-arguments))
- (define feeds
- (if (vector-empty? args)
- (we-are-twtxt)
- (file->feeds (vector-ref args 0))))
- (define out-format 'multi-line)
- (define num_workers 15) ; 15 was fastest out of the tried 1, 5, 10, 15 and 20.
- (timeline-print out-format (timeline num_workers feeds)))
+ (let ([feeds
+ (let ([args (current-command-line-arguments)])
+ (if (= 0 (vector-length args))
+ (we-are-twtxt)
+ (file->feeds (vector-ref args 0))))]
+ [out-format
+ 'multi-line]
+ [num_workers
+ 15]) ; 15 was fastest out of the tried 1, 5, 10, 15 and 20.
+ (timeline-print out-format (timeline num_workers feeds))))