(module require mzscheme (require (planet "require.ss" ("ryanc" "require.plt" 1 3))) (define-module contracts (all-except (lib "contract.ss") union) (planet "contract-utils.ss" ("cobbe" "contract-utils.plt" 3 0))) (define-module schemeunit (planet "test.ss" ("schematics" "schemeunit.plt" 2 10))) (define-module lists (lib "list.ss") (prefix srfi1: (lib "1.ss" "srfi"))) (define-module etc (lib "etc.ss") (only (lib "function.ss" "scheme") curry) (all-except (planet "function.ss" ("cce" "scheme.plt" 1 1)) identity)) (define-module class (lib "class.ss") (planet "class.ss" ("dherman" "struct.plt" 2 1))) (define-module compare (lib "67.ss" "srfi")) )