From c0bc68f35b85b511c1d8cb82679d892cb763953e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 26 Sep 2008 13:16:02 +0000 Subject: [PATCH] pull out the right bindings from the right places svn: r11882 --- collects/scribble/text.ss | 23 +++-------------------- 1 file changed, 3 insertions(+), 20 deletions(-) diff --git a/collects/scribble/text.ss b/collects/scribble/text.ss index fe49e1e425..6532984523 100644 --- a/collects/scribble/text.ss +++ b/collects/scribble/text.ss @@ -1,22 +1,5 @@ #lang scheme/base -(require scheme/promise) - -;; output - -(provide output) -(define (output x [p (current-output-port)]) - (let loop ([x x]) - (cond [(or (void? x) (not x) (null? x)) (void)] - [(pair? x) (loop (car x)) (loop (cdr x))] - [(promise? x) (loop (force x))] - [(keyword? x) (loop (keyword->string x))] - [(and (procedure? x) (procedure-arity-includes? x 0)) (loop (x))] - [(bytes? x) (write-bytes x p)] - [(string? x) (write-string x p)] - [(char? x) (write-char x p)] - [(number? x) (write x p)] - [(symbol? x) (display x p)] - ;; generic fallback - [else (error 'output "don't know how to render value: ~v" x)])) - (void)) +(require scheme/promise "text/output.ss" "text/syntax-utils.ss") +(provide (all-from-out scheme/promise "text/output.ss") + begin/text include/text)