21 lines
394 B
Scheme
21 lines
394 B
Scheme
#lang scheme
|
|
(require "replay.ss"
|
|
"cache.ss"
|
|
"status.ss")
|
|
|
|
; XXX Rewrite to work with logs in dbm
|
|
|
|
(define the-log-file
|
|
(command-line
|
|
#:program "replay-log"
|
|
#:args (filename)
|
|
filename))
|
|
|
|
(define the-log
|
|
(read-cache the-log-file))
|
|
|
|
(unless (status? the-log)
|
|
(error 'replay-log "Not an output log: ~e" the-log))
|
|
|
|
(replay-status the-log)
|
|
(replay-exit-code the-log) |