From 6099806a7209d0d9e4ba85412dac0e13d8910111 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 --- collects/scribble/private/manual-code.rkt | 2 +- collects/tests/racket/benchmarks/common/conform.scm | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) create mode 100644 collects/tests/racket/benchmarks/common/conform.scm diff --git a/collects/scribble/private/manual-code.rkt b/collects/scribble/private/manual-code.rkt index 1ad662ad52..6c0835176c 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 diff --git a/collects/tests/racket/benchmarks/common/conform.scm b/collects/tests/racket/benchmarks/common/conform.scm new file mode 100644 index 0000000000..2573bc24fa --- /dev/null +++ b/collects/tests/racket/benchmarks/common/conform.scm @@ -0,0 +1,2 @@ +(load "r5rs-wrap.rktl") +(load "conform.sch")