diff --git a/sx/sx/docs.sx b/sx/sx/docs.sx index 2296c641..2dc3ea9b 100644 --- a/sx/sx/docs.sx +++ b/sx/sx/docs.sx @@ -17,7 +17,7 @@ :sx-swap-oob "innerHTML" (div :class "not-prose bg-stone-100 rounded p-4 mt-3" - (pre :class "text-sm whitespace-pre-wrap break-words" (highlight text))))) + (pre :class "text-sm whitespace-pre-wrap break-words" (code text))))) (defcomp ~docs/attr-table diff --git a/sx/sx/handlers/dispatch.sx b/sx/sx/handlers/dispatch.sx index 8eede890..bfb071f9 100644 --- a/sx/sx/handlers/dispatch.sx +++ b/sx/sx/handlers/dispatch.sx @@ -41,9 +41,9 @@ (params body closure) (if (or (nil? params) (empty? params)) - (aser body closure) + (aser body) (let ((bindings (map (fn (p) (let ((name (if (symbol? p) (symbol-name p) (str p)))) (if (= name "&key") nil (if (= name "&rest") nil (let ((val (or (request-arg name) (request-form name)))) (list (make-symbol name) (or val nil))))))) (filter (fn (p) (let ((name (if (symbol? p) (symbol-name p) (str p)))) (and (not (= name "&key")) (not (= name "&rest"))))) params)))) (let ((let-form (list (quote let) (filter (fn (b) (not (nil? b))) bindings) body))) - (aser let-form closure)))))) + (aser let-form))))))