From 376ad1f52cb89f036deb44bc000e99ab81e6a451 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Dec 2011 11:31:46 -0600 Subject: [PATCH] remove 'stupid-internal-definition' and Rackety --- .../drracket/private/language-configuration.rkt | 5 ++--- collects/drracket/private/rep.rkt | 17 ++++++++--------- 2 files changed, 10 insertions(+), 12 deletions(-) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index d108a0a668..f0189b7925 100644 --- a/collects/drracket/private/language-configuration.rkt +++ b/collects/drracket/private/language-configuration.rkt @@ -1757,9 +1757,8 @@ (send txt change-style link-sd 0 (send txt last-position)))) (define link-sd (make-object style-delta% 'change-underline #t)) - (define stupid-internal-define-syntax1 - (begin (send link-sd set-delta-foreground "blue") - (send link-sd set-family 'default))) + (send link-sd set-delta-foreground "blue") + (send link-sd set-family 'default) (main)) diff --git a/collects/drracket/private/rep.rkt b/collects/drracket/private/rep.rkt index 4e730d525b..ef30b47836 100644 --- a/collects/drracket/private/rep.rkt +++ b/collects/drracket/private/rep.rkt @@ -369,17 +369,16 @@ TODO ;; insert/delta : (instanceof text%) (union snip string) (listof style-delta%) *-> (values number number) - ;; inserts the string/stnip into the text at the end and changes the + ;; inserts the string/snip into the text at the end and changes the ;; style of the newly inserted text based on the style deltas. (define (insert/delta text s . deltas) - (let ([before (send text last-position)]) - (send text insert s before before #f) - (let ([after (send text last-position)]) - (for-each (λ (delta) - (when (is-a? delta style-delta%) - (send text change-style delta before after))) - deltas) - (values before after)))) + (define before (send text last-position)) + (send text insert s before before #f) + (define after (send text last-position)) + (for ([delta (in-list deltas)]) + (when (is-a? delta style-delta%) + (send text change-style delta before after))) + (values before after)) (define log-max-size 1000) (define log-entry-max-size 1000)