Update ballista.sc

guenchi · Apr 30, 2018 · eb18d97 · eb18d97
1 parent 911dc5c
commit eb18d97
Showing 1 changed file with 12 additions and 8 deletions.
diff --git 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 "<center><h5>Powered by Ballista</h5></center>")))
+
+
 
     (define staticpath
         (lambda (x)