#lang scheme/base (require "main.ss") (define-task compile () (action:compile "sake.ss")) (define-task test (compile) (action:test "all-sake-tests.ss" 'all-sake-tests)) (define-task planet-install (test) (when (file-exists? "sake.plt") (delete-file "sake.plt")) (action:planet-archive ".") (rename-file-or-directory "trunk.plt" "sake.plt") (action:planet-remove "schematics" "sake.plt" 1 0) (action:planet-install "schematics" "sake.plt" 1 0)) (define-task all (planet-install)) (define-task default (all))