suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

codeblock:

Browse Source 
fix language regexp to accept numbers in #lang
This commit is contained in:
Sam Tobin-Hochstadt 2011-01-31 10:44:59 -05:00
parent e4c4170d31
commit 6099806a72
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/private/manual-code.rkt
View File

@ -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

2
collects/tests/racket/benchmarks/common/conform.scm Normal file
View File

@ -0,0 +1,2 @@
(load "r5rs-wrap.rktl")
(load "conform.sch")