From bc5ddeb84c5e70574785f493dca1e7f994ee4256 Mon Sep 17 00:00:00 2001
From: w6vvn <vivienne@w6vvn.net>
Date: Mon, 8 Sep 2025 12:54:22 -0700
Subject: [PATCH] the exceptions were raising exceptions...

---
 client.rkt | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/client.rkt b/client.rkt
index 8b680b1..f8747ac 100644
--- a/client.rkt
+++ b/client.rkt
@@ -195,7 +195,9 @@
           (struct-copy
            url
            destination
-           [query `((,(string->symbol (read-line)) . #f))]))]
+           [query `((,(string->symbol
+                       (read-line (current-input-port)
+                                  'any)) . #f))]))]
 
         ;;
         ;; 20-29 SUCCESS
@@ -214,7 +216,7 @@
              'get-document
              (string-append "unsupported mime ~a~n"
                             "  url: ~a~n")
-             meta destination)])
+             meta (url->string destination))])
 
          ;; If the document failed to be fetched (parser error,
          ;; unsupported mime, so on and so forth) this would not
@@ -243,7 +245,7 @@
                          "  url: ~a~n"
                          "  explanation: ~a~n")
           status
-          (string->url destination)
+          (url->string destination)
           (dict-ref temporary-failures
                     status
                     "temporary failure"))]
@@ -258,7 +260,7 @@
                          "  url: ~a~n"
                          "  explanation: ~a~n")
           status
-          (string->url destination)
+          (url->string destination)
           (dict-ref permanent-failures
                     status
                     "temporary failure"))]
@@ -273,4 +275,4 @@
                          "which this client does not yet support~a~n"
                          "  url: ~a~n"))])
 
-      (next-cmd)))
+      (next-cmd))))