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)