remove dependency on 'describe'
parent
4ca17b1178
commit
ac57602756
@ -1,15 +1,8 @@
|
||||
#lang racket/base
|
||||
|
||||
(provide report describe)
|
||||
(provide report)
|
||||
|
||||
(define-syntax-rule (report var)
|
||||
(begin
|
||||
(displayln (format "~a = ~v" 'var var) (current-error-port))
|
||||
var))
|
||||
|
||||
(require (prefix-in williams: describe))
|
||||
|
||||
(define (describe x)
|
||||
(parameterize ([current-output-port (current-error-port)])
|
||||
(williams:describe x))
|
||||
x)
|
Loading…
Reference in New Issue