fix contract

This commit is contained in:
Robby Findler 2010-12-24 15:47:25 -06:00
parent a68850ca78
commit da68fc209a

View File

@ -874,7 +874,7 @@
parent))
users-name))))
;; users-name-ok? : symbol string (union #f frame% dialog%) string -> boolean
;; users-name-ok? : symbol string (union #f frame% dialog%) path? -> boolean
;; returns #t if the string is an acceptable name for
;; a saved executable, and #f otherwise.
(define (users-name-ok? mode extension parent name)