suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change drracket and framework so they don't rebind printf anymore

Browse Source 
(instead binding oprintf to print to the original output port of drracket)

original commit: 7eb3e8c28aacd14c4422d96e2d9e79d6910261b0
This commit is contained in:
Robby Findler 2011-01-02 10:00:46 -06:00
parent b22d6ba314
commit 1efce0f496
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/framework/private/text.rkt
View File

@ -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)