33 lines
749 B
Scheme
33 lines
749 B
Scheme
|
|
; Tests image saving/loading by dumping an image
|
|
; and loading it with every report-errs
|
|
|
|
(define dump/restore
|
|
(lambda ()
|
|
(printf "Dumping image...~n")
|
|
(let ([result (write-image-to-file "tmp9")])
|
|
(if (vector? result)
|
|
(printf "Continuing ~a~n" result)
|
|
(read-image-from-file "tmp9" #("after" "restore"))))))
|
|
|
|
(define ll null)
|
|
(define load-relative
|
|
(lambda (f)
|
|
(set! ll (append ll (list f)))))
|
|
|
|
(#%load-relative "all.ss")
|
|
|
|
(define load-relative #%load-relative)
|
|
|
|
(define go
|
|
(let ([d (current-load-relative-directory)])
|
|
(lambda ()
|
|
(parameterize ([current-load-relative-directory d])
|
|
(for-each
|
|
(lambda (f)
|
|
(load-relative f)
|
|
(dump/restore))
|
|
ll)))))
|
|
|
|
(printf "Run `(go)'~n")
|