diff --git a/sx/sx/handlers/dispatch.sx b/sx/sx/handlers/dispatch.sx index aa1d4a99..8eede890 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)) - (eval-expr body closure) + (aser body closure) (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))) - (eval-expr let-form closure)))))) + (aser let-form closure))))))