remove dependency on 'describe'

pull/2/head
Matthew Butterick 11 years ago
parent 4ca17b1178
commit ac57602756

@ -1,15 +1,8 @@
#lang racket/base #lang racket/base
(provide report describe) (provide report)
(define-syntax-rule (report var) (define-syntax-rule (report var)
(begin (begin
(displayln (format "~a = ~v" 'var var) (current-error-port)) (displayln (format "~a = ~v" 'var var) (current-error-port))
var)) var))
(require (prefix-in williams: describe))
(define (describe x)
(parameterize ([current-output-port (current-error-port)])
(williams:describe x))
x)

@ -1,4 +1,3 @@
#lang info #lang info
(define collection "sugar") (define collection "sugar")
(define scribblings '(("scribblings/sugar.scrbl" (multi-page)))) (define scribblings '(("scribblings/sugar.scrbl" (multi-page))))
(define deps '("describe"))
Loading…
Cancel
Save