Artifact b0f23bc746801d06ce921c978dd37a1b3f53ccf1:
- File stml2/example/pages/maint/control.scm — part of check-in [78408a15fb] at 2019-12-16 22:57:30 on branch v1.70-refactor01 — Added stml2 as compilation unit/module (user: matt, size: 406) [annotate] [blame] [check-ins using] [more...]
;; Copyright 2007-2008, Matthew Welland. matt@kiatoa.com All rights reserved. ;; ;; maint/control.scm ;; (s:load-model "maint") ;; remember that the system will call the function <pagename>-action with the action as a parameter (define (maint-action action) (let ((asym (string->symbol action))) (s:log "Doing action! " action) (case asym ('update_tables (maint:update-tables)))))