added for/fold to square-bracket default prefs

This commit is contained in:
Robby Findler 2010-08-17 10:40:14 -05:00
parent 0139cfa87a
commit 672355f823

View File

@ -76,7 +76,7 @@
'("local")
(λ (x) (and (list? x) (andmap string? x))))
(preferences:set-default 'framework:square-bracket:letrec
(let ([fors '("for" "for/list" "for/hash" "for/and" "for/or" "for/first" "for/last")])
(let ([fors '("for" "for/fold" "for/list" "for/hash" "for/and" "for/or" "for/first" "for/last")])
(append fors
(map (λ (x) (regexp-replace #rx"for" x "for*"))
fors)