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