From 47e46efd46c0a999940fea83f72641c1d2ab9804 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 21 Nov 2009 00:15:00 +0000 Subject: [PATCH] added the various 'for' forms to the square backet default preferences svn: r16932 --- collects/framework/private/main.ss | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index b0e70f24a6..2ab8893eb3 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -76,13 +76,17 @@ '("local") (λ (x) (and (list? x) (andmap string? x)))) (preferences:set-default 'framework:square-bracket:letrec - '("let" - "let*" "let-values" "let*-values" - "let-syntax" "let-struct" "let-syntaxes" - "letrec" - "letrec-syntaxes" "letrec-syntaxes+values" "letrec-values" - "parameterize" - "with-syntax") + (let ([fors '("for" "for/list" "for/hash" "for/and" "for/or" "for/first" "for/last")]) + (append fors + (map (λ (x) (regexp-replace #rx"for" x "for*")) + fors) + '("let" + "let*" "let-values" "let*-values" + "let-syntax" "let-struct" "let-syntaxes" + "letrec" + "letrec-syntaxes" "letrec-syntaxes+values" "letrec-values" + "parameterize" + "with-syntax"))) (λ (x) (and (list? x) (andmap string? x)))) (preferences:set-default 'framework:white-on-black? #f boolean?)