5aca765989
All of these look safe. Also, see comment in `2htdp/batch-io' about the splitting thing (which should probably be revised with the extensions to `racket/string').
14 lines
188 B
Racket
14 lines
188 B
Racket
#lang racket/base
|
|
|
|
(require racket/contract)
|
|
|
|
(provide/contract
|
|
;; like the unix debugging facility
|
|
[tee (-> symbol? any/c any)]
|
|
)
|
|
|
|
|
|
(define (tee tag x)
|
|
(printf "~a ~s\n" tag x)
|
|
x)
|