repackage for 5.3.x compatability
parent
73276a9e63
commit
671af55d1b
@ -1,15 +0,0 @@
|
|||||||
#lang racket/base
|
|
||||||
|
|
||||||
(provide report describe)
|
|
||||||
|
|
||||||
(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)
|
|
@ -1,4 +1,2 @@
|
|||||||
#lang info
|
#lang setup/infotab
|
||||||
(define collection "sugar")
|
(define collection 'multi)
|
||||||
(define scribblings '(("scribblings/sugar.scrbl" (multi-page))))
|
|
||||||
(define deps '("describe"))
|
|
@ -0,0 +1,8 @@
|
|||||||
|
#lang racket/base
|
||||||
|
|
||||||
|
(provide report)
|
||||||
|
|
||||||
|
(define-syntax-rule (report var)
|
||||||
|
(begin
|
||||||
|
(displayln (format "~a = ~v" 'var var) (current-error-port))
|
||||||
|
var))
|
@ -0,0 +1,2 @@
|
|||||||
|
#lang setup/infotab
|
||||||
|
(define scribblings '(("scribblings/sugar.scrbl" (multi-page))))
|
Loading…
Reference in New Issue