From 1efce0f4962920df1483b625fb6de796203f99ca Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Jan 2011 10:00:46 -0600 Subject: [PATCH] change drracket and framework so they don't rebind printf anymore (instead binding oprintf to print to the original output port of drracket) original commit: 7eb3e8c28aacd14c4422d96e2d9e79d6910261b0 --- collects/framework/private/text.rkt | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 32730941..277b1c5f 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -1,10 +1,4 @@ #lang racket/unit -#| - -WARNING: printf is rebound in the body of the unit to always - print to the original output port. - -|# (require string-constants racket/unit @@ -37,10 +31,7 @@ WARNING: printf is rebound in the body of the unit to always (init-depend framework:editor^) (define original-output-port (current-output-port)) -(define (printf . args) - (apply fprintf original-output-port args) - (void)) - +(define (oprintf . args) (apply fprintf original-output-port args)) (define-struct range (start end caret-space? style color) #:inspector #f) (define-struct rectangle (left top right bottom style color) #:inspector #f)