From 66551c690149e5da3aebf1e0cae2c374c758afa0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Tue, 27 Dec 2016 19:10:49 +0100 Subject: [PATCH] Temporarily disable the "color the nested language in black" feature for hyper-literate, as it gives incorrect coloring and indentation on large files (I guess the parser is not always called from the start of the file) --- lang/reader.rkt | 2 +- private/common.rkt | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lang/reader.rkt b/lang/reader.rkt index b4f48fd9..5ec3bd9e 100644 --- a/lang/reader.rkt +++ b/lang/reader.rkt @@ -9,7 +9,7 @@ hyper-literate/lang ;; don't use scribble-base-info for the #:info arg, since ;; scribble/lp files are not directly scribble'able. #:language-info (scribble-base-language-info) -#:info (wrapped-scribble-base-reader-info) +#:info orig-scribble-base-reader-info ;(wrapped-scribble-base-reader-info) (require "meta-first-line.rkt" (only-in scribble/base/reader scribble-base-reader-info diff --git a/private/common.rkt b/private/common.rkt index bda570b0..bcfd39c8 100644 --- a/private/common.rkt +++ b/private/common.rkt @@ -152,7 +152,10 @@ (syntax-case stx () [(_self lang-module-begin . body) (let ([expanded (local-expand - #`(lang-module-begin . body) + (datum->syntax stx + `(,#'lang-module-begin . ,#'body) + stx + stx) 'module-begin (list))]) (syntax-case expanded (#%plain-module-begin)