Stop using vector-empty?

for compatibility with pre 7.4.0.4 Racket

diff --git a/info.rkt b/info.rkt
index 22b55b8..afe2865 100644 (file)
--- a/info.rkt
+++ b/info.rkt
@@ -6,7 +6,7 @@
 (define pkg-desc
   "twtxt client")
 (define version
-  "0.3.4")
+  "0.3.5")
 (define pkg-authors
   '("Siraaj Khandkar <siraaj@khandkar.net>"))
 (define deps

diff --git a/tt.rkt b/tt.rkt
index 409ef51..421af36 100644 (file)
--- a/tt.rkt
+++ b/tt.rkt
@@ -219,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
@@ -252,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)