From c41c11a64b4038f7bb211ba44653f49fb01c4d13 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 31 Jan 2011 10:44:59 -0500 Subject: [PATCH] codeblock: fix language regexp to accept numbers in #lang original commit: 6099806a7209d0d9e4ba85412dac0e13d8910111 --- collects/scribble/private/manual-code.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scribble/private/manual-code.rkt b/collects/scribble/private/manual-code.rkt index 1ad662ad..6c083517 100644 --- a/collects/scribble/private/manual-code.rkt +++ b/collects/scribble/private/manual-code.rkt @@ -121,7 +121,7 @@ [else null]))] [has-hash-lang? (regexp-match? #rx"^#lang " bstr)] [language (if has-hash-lang? - (let ([m (regexp-match #rx"^#lang ([-a-zA-Z/._+]+)" bstr)]) + (let ([m (regexp-match #rx"^#lang ([-0-9a-zA-Z/._+]+)" bstr)]) (if m (link-mod #:orig? #t