From 4424b19ff8e4456b4e09adcb99a825cca2cf1eb3 Mon Sep 17 00:00:00 2001 From: Samuel Bronson Date: Fri, 12 Oct 2012 15:03:26 -0400 Subject: [PATCH] Fix syntax highlighting for `#lang meta/web'. --- collects/meta/web/lang/reader.rkt | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/collects/meta/web/lang/reader.rkt b/collects/meta/web/lang/reader.rkt index 228eee92f2..15b850f781 100644 --- a/collects/meta/web/lang/reader.rkt +++ b/collects/meta/web/lang/reader.rkt @@ -1,5 +1,4 @@ #lang s-exp syntax/module-reader - meta/web/common/main ;; Similar to `#lang scribble/html', but with a plain scribble reader @@ -7,7 +6,13 @@ meta/web/common/main #:read scribble:read #:read-syntax scribble:read-syntax -#:info (scribble-base-reader-info) +#:info (web-reader-info) -(require (prefix-in scribble: scribble/reader) - (only-in scribble/base/reader scribble-base-reader-info)) +(require (prefix-in scribble: scribble/reader)) + +(define (web-reader-info) + (lambda (key defval default) + (case key + [(color-lexer) + (dynamic-require 'syntax-color/scribble-lexer 'scribble-lexer)] + [else (default key defval)])))