build.ss
#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))