16 lines
528 B
Racket
16 lines
528 B
Racket
(let ([ol (current-load)])
|
|
(current-load
|
|
(λ x
|
|
(printf "cl ~s\n" x)
|
|
(apply ol x))))
|
|
|
|
(load-relative "../racket/loadtest.rktl")
|
|
|
|
(load-in-sandbox "beginner.rktl" #:testing "../racket/testing.rktl")
|
|
(load-in-sandbox "beginner-abbr.rktl" #:testing "../racket/testing.rktl")
|
|
(load-in-sandbox "intermediate.rktl" #:testing "../racket/testing.rktl")
|
|
(load-in-sandbox "intermediate-lambda.rktl" #:testing "../racket/testing.rktl")
|
|
(load-in-sandbox "advanced.rktl" #:testing "../racket/testing.rktl")
|
|
|
|
(report-errs)
|