From bc0797e75a39fce2552cb6e3d4876aef7a2d0846 Mon Sep 17 00:00:00 2001 From: guenchi Date: Mon, 30 Apr 2018 18:16:57 +0200 Subject: [PATCH] Update example.sc --- example.sc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/example.sc b/example.sc index 557233b..4a4bee8 100644 --- a/example.sc +++ b/example.sc @@ -33,14 +33,14 @@ (define deline (lambda (x return) - (return (errorpage 403)))) + (return handle403))) (define verify (lambda (x return) (if (equal? (caddr x) "ok") (next x return) - (return (errorpage 403 (cadr x)))))) + (return (lambda k (errorpage 403 (cadr x))))))) (get-use pass)