remove name conflict

This commit is contained in:
2025-07-05 04:43:15 -07:00
parent 4c18a29a0c
commit 2d51ad37e8

View File

@ -9,9 +9,6 @@
(import functools [lru-cache]) (import functools [lru-cache])
(import os.path [isdir :as dir? isfile :as file? abspath]) (import os.path [isdir :as dir? isfile :as file? abspath])
(defmacro unless [test #* body]
`(when (not ~test) (do ~@body)))
(defn error [code message] (defn error [code message]
(return (dict (return (dict
:code code :code code
@ -92,6 +89,7 @@
(defn 303-if-not-arpa [[unless (fn [#* _] False)]] (defn 303-if-not-arpa [[unless (fn [#* _] False)]]
(fn [f] (fn [f]
(fn [method path request] (fn [method path request]
(print request (unless request))
(if (or (. request (get "headers") (get "Host") (endswith "arpa")) (unless request)) (if (or (. request (get "headers") (get "Host") (endswith "arpa")) (unless request))
(f method path request) (f method path request)
(dict (dict