From eb18d978de9b8ac8d4ba1bdb2c840414e8073186 Mon Sep 17 00:00:00 2001 From: guenchi Date: Mon, 30 Apr 2018 18:14:59 +0200 Subject: [PATCH] Update ballista.sc --- ballista.sc | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/ballista.sc b/ballista.sc index 71c4df9..760dd84 100644 --- a/ballista.sc +++ b/ballista.sc @@ -33,6 +33,7 @@ next get-use post-use + handle403 staticpath listen-on server-on @@ -146,10 +147,8 @@ ((_ p f1) (syntax (push route-get p f1))) ((_ p f1 f2 ...) (syntax (push route-get p - (lambda (x break) - (call/cc - (lambda (return) - (iterator (f1 x return) f2 ...)))))))))) + (lambda (x return) + (iterator (f1 x return) f2 ...)))))))) (define-syntax post @@ -158,10 +157,8 @@ ((_ p f1) (syntax (push route-post p f1))) ((_ p f1 f2 ...) (syntax (push route-post p - (lambda (x break) - (call/cc - (lambda (return) - (iterator (f1 x return) f2 ...)))))))))) + (lambda (x return) + (iterator (f1 x return) f2 ...)))))))) @@ -177,6 +174,13 @@ ((post-pass header path payload) (router route-post path))))) + + + (define handle403 + (lambda x + (errorpage 403 "
Powered by Ballista
"))) + + (define staticpath (lambda (x)