From 35046e92950d2e30af268dc44c16b48ad6f16e7a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 22 Jul 2014 03:14:12 -0500 Subject: [PATCH] misc improvements around read-language (uses and docs) - make a logger for drracket-related #lang problems - change read-language's docs to indicate that it can return #f - adjust a bunch of calls to read-language for the case that it returns #f with the goal of making that be the same as a get-info function that always returns the given default - mention `read-language` in the guide section entitled "Source-Handling Configuration" original commit: 8429f3e9d6db6a790335f026a93e7850a89bb1fa --- .../typed-racket-lib/typed-racket/base-env/base-env.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt index 679beab2..7f0f6810 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/base-env.rkt @@ -1978,7 +1978,7 @@ [read-syntax (->opt [Univ -Input-Port] (Un (-Syntax Univ) (-val eof)))] [read/recursive (->opt [-Input-Port (-opt -Char) (-opt -Read-Table) Univ] Univ)] [read-syntax/recursive (->opt [Univ -Input-Port (-opt -Char) (-opt -Read-Table) Univ] Univ)] -[read-language (->opt [-Input-Port (-> ManyUniv)] (-> Univ Univ ManyUniv))] +[read-language (->opt [-Input-Port (-> ManyUniv)] (-opt (-> Univ Univ ManyUniv)))] [read-case-sensitive (-Param Univ B)] [read-square-bracket-as-paren (-Param Univ B)]