From 2d51ad37e8528e1ac82166268dbc9b6a759c6de8 Mon Sep 17 00:00:00 2001 From: natalie roentgen connolly Date: Sat, 5 Jul 2025 04:43:15 -0700 Subject: [PATCH] remove name conflict --- srv/content/router.hy | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/srv/content/router.hy b/srv/content/router.hy index bc6c43e..91eac5f 100644 --- a/srv/content/router.hy +++ b/srv/content/router.hy @@ -9,9 +9,6 @@ (import functools [lru-cache]) (import os.path [isdir :as dir? isfile :as file? abspath]) -(defmacro unless [test #* body] - `(when (not ~test) (do ~@body))) - (defn error [code message] (return (dict :code code @@ -92,6 +89,7 @@ (defn 303-if-not-arpa [[unless (fn [#* _] False)]] (fn [f] (fn [method path request] + (print request (unless request)) (if (or (. request (get "headers") (get "Host") (endswith "arpa")) (unless request)) (f method path request) (dict