Stop using vector-empty?

[tt.git] / tt.rkt

diff --git a/tt.rkt b/tt.rkt
index b691fd0..421af36 100644 (file)
--- a/tt.rkt
+++ b/tt.rkt
@@ -34,6 +34,9 @@
 ; - d | download
 ; - u | upload
 ;   - calls user-configured command to upload user's own feed file to their server
+;
+; Looks like a better CLI parser than "racket/cmdline":
+; https://docs.racket-lang.org/natural-cli/
 
 #lang racket
 
@@ -216,7 +219,7 @@
 (define user-agent
   (let*
     ([prog-name      "tt"]
-     [prog-version   "0.3.4"]
+     [prog-version   "0.3.5"]
      [prog-uri       "https://github.com/xandkar/tt"]
      [user-feed-file (expand-user-path "~/twtxt-me.txt")]
      [user
@@ -249,7 +252,7 @@
 
   (define args (current-command-line-arguments))
   (define feeds
-    (if (vector-empty? args)
+    (if (= 0 (vector-length args))
       (we-are-twtxt)
       (file->feeds (vector-ref args 0))))
   (define out-format 'multi-line)