From 7d79bbf10a9620d6b9c6e61619b02f4f7953a97e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 28 Dec 2009 01:17:37 +0000 Subject: [PATCH] added some debugging information and some recovery from an error (that, frustratingly, I can't seem to fix ) svn: r17409 --- collects/drscheme/private/module-language-tools.ss | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/collects/drscheme/private/module-language-tools.ss b/collects/drscheme/private/module-language-tools.ss index 01113a928f..025c63061c 100644 --- a/collects/drscheme/private/module-language-tools.ss +++ b/collects/drscheme/private/module-language-tools.ss @@ -101,6 +101,15 @@ ;; FIXME: do something so that we don't ;; have to disable all planet packages. (read-language port (lambda () #f))))]) + ;; sometimes I get eof here, but I don't know why and can't seem to + ;; make it happen outside of DrScheme + (when (eof-object? info-result) + (fprintf (current-error-port) "file ~s produces eof from read-language\n" + (send this get-filename)) + (fprintf (current-error-port) " port-next-location ~s\n" (call-with-values (λ () (port-next-location port)) list)) + (fprintf (current-error-port) " str ~s\n" (let ([s (send this get-text)]) + (substring s 0 (min 100 (string-length s))))) + (set! info-result #f)) (let-values ([(line col pos) (port-next-location port)]) (unless (equal? (get-text 0 pos) hash-lang-language) (set! hash-lang-language (get-text 0 pos))