Update example.sc

guenchi · Apr 30, 2018 · bc0797e · bc0797e
1 parent eb18d97
commit bc0797e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)