Add with-* to the set of lambda like expressions.

This commit is contained in:
Leif Andersen 2016-02-05 21:54:15 -05:00
parent 5736535b8a
commit 9411eb44c4

View File

@ -451,7 +451,7 @@
type-case))
(preferences:set-default
'framework:tabify
(list defaults-ht #rx"^begin" #rx"^def" #rx"^for\\*?(/|$)" #f)
(list defaults-ht #rx"^begin" #rx"^def" #rx"^(for\\*?(/|$)|with-)" #f)
(list/c (hash/c symbol? (or/c 'for/fold 'define 'begin 'lambda) #:flat? #t)
(or/c #f regexp?) (or/c #f regexp?) (or/c #f regexp?) (or/c #f regexp?)))