contract line

svn: r10540
This commit is contained in:
Eli Barzilay 2008-07-01 18:50:12 +00:00
parent 37b4cfde7a
commit 0c5f2745b5

View File

@ -196,7 +196,9 @@
;; annotations : (union 'none 'debug 'debug/profile 'test-coverage)
(define simple-settings->vector (make-->vector simple-settings))
;; simple-module-based-language-config-panel : parent -> (case-> (-> settings) (settings -> void))
;; simple-module-based-language-config-panel :
;; parent [#:case-sensitive (union #f #t '?)]
;; -> (case-> (-> settings) (settings -> void))
(define (simple-module-based-language-config-panel
_parent
#:case-sensitive [*case-sensitive '?])