(module special-logout mzscheme (require "hwikireq.scm") (require "page.scm") (require "config.scm") (require "context.scm") (require "users.scm") (require "template.scm") (def-class (this (special:logout context)) (supers (page-base)) (private (define _template (template 'context context 'name "admin")) (define _users (users context)) ) (public (define (get-template) _template) (define (create-html) (-> context logout) (-> context to-from-where)) ) (constructor (-> supers special!) ) ) (register-page "special:logout" special:logout) )