From 7f8ad24e815dfdd124e3224a5a6df5b8fec3159c Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@metail.co.uk>
Date: Sun, 12 May 2024 16:22:05 +0100
Subject: [PATCH] Return empty set, not list, when no links found

---
 crawler.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/crawler.rkt b/crawler.rkt
index 4f9693f..ddaf643 100644
--- a/crawler.rkt
+++ b/crawler.rkt
@@ -20,7 +20,7 @@
      (let ((x (html->xexp (bytes->string/utf-8 body))))
        (handler url x)
        (extract-links (string->url url) x)))
-    (_ '())))
+    (_ (set))))
 
 (define (host=? host)
   (lambda (u) (string=? host (url-host (string->url u)))))