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

codeblock:

Browse Source 
fix language regexp to accept numbers in #lang

original commit: 6099806a7209d0d9e4ba85412dac0e13d8910111
This commit is contained in:
Sam Tobin-Hochstadt 2011-01-31 10:44:59 -05:00
parent e8ce285e5a
commit c41c11a64b
1 changed files with 1 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]))] [else null]))]
[has-hash-lang? (regexp-match? #rx"^#lang " bstr)] [has-hash-lang? (regexp-match? #rx"^#lang " bstr)]
[language (if has-hash-lang? [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 (if m
(link-mod (link-mod
#:orig? #t #:orig? #t