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 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