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

Rackety

Browse Source
This commit is contained in:
Robby Findler 2010-12-28 06:17:04 -06:00
parent b701d309f1
commit f849f25272
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
#lang scheme/unit #lang racket/unit
#| #|
WARNING: printf is rebound in the body of the unit to always WARNING: printf is rebound in the body of the unit to always
@ -7,10 +7,10 @@ WARNING: printf is rebound in the body of the unit to always
|# |#
(require string-constants (require string-constants
scheme/unit racket/unit
scheme/class racket/class
scheme/match racket/match
scheme/path racket/path
"sig.rkt" "sig.rkt"
"../gui-utils.rkt" "../gui-utils.rkt"
"../preferences.rkt" "../preferences.rkt"
@ -794,7 +794,7 @@ WARNING: printf is rebound in the body of the unit to always
[(preferences:get 'framework:ask-about-paste-normalization) [(preferences:get 'framework:ask-about-paste-normalization)
(let-values ([(mbr checked?) (let-values ([(mbr checked?)
(message+check-box/custom (message+check-box/custom
(string-constant drscheme) (string-constant drracket)
(string-constant normalize-string-info) (string-constant normalize-string-info)
(string-constant dont-ask-again) (string-constant dont-ask-again)
(string-constant normalize) (string-constant normalize)
@ -2373,7 +2373,7 @@ WARNING: printf is rebound in the body of the unit to always
(let ([install-handlers (let ([install-handlers
(λ (port) (λ (port)
;; don't want to set the port-print-handler here; ;; don't want to set the port-print-handler here;
;; instead drscheme sets the global-port-print-handler ;; instead drracket sets the global-port-print-handler
;; to catch fractions and the like ;; to catch fractions and the like
(set-interactive-write-handler port) (set-interactive-write-handler port)
(set-interactive-display-handler port))]) (set-interactive-display-handler port))])