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

same WXME regexp bug

Browse Source 
svn: r5410
This commit is contained in:
Matthew Flatt 2007-01-19 02:50:27 +00:00
parent 24bc2eb636
commit 028891aa51
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/wxme/wxme.ss
View File

@ -590,7 +590,8 @@
(define unknown-extensions-skip-enabled (make-parameter #f))
(define (is-wxme-stream? p)
(regexp-match-peek #rx#"^(?:#reader(lib\"read[.]ss\"\"wxme\"))?WXME01[0-9][0-9] ##[ \r\n]" p))
(and (regexp-match-peek #rx#"^(?:#reader[(]lib\"read[.]ss\"\"wxme\"[)])?WXME01[0-9][0-9] ##[ \r\n]" p)
#t))
(define/kw (wxme-port->port port #:optional [close? #t] [snip-filter (lambda (x) x)])
(wxme-convert-port port close? snip-filter))