File stml2/example/pages/leftnav/control.scm from the latest check-in
;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved. ;; ;; leftnav/control.scm ;; nothing needed here yet! (define (leftnav-action action) (case action ('logout (s:logout))))