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

change reader path in magic

Browse Source 
svn: r5407

original commit: 943e9f1ae0b868110a04d0ac994a8dfe0d10c944
This commit is contained in:
Matthew Flatt 2007-01-19 02:05:41 +00:00
parent 3c199afc1a
commit 4a86f8b92f
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/mred/private/snipfile.ss
View File

@ -254,7 +254,7 @@
(let ([p (open-input-file filename)]) (let ([p (open-input-file filename)])
(port-count-lines! p) (port-count-lines! p)
(let ([p (cond (let ([p (cond
[(regexp-match-peek #rx#"^(?:#reader(lib\"wxme[.]ss\"\"mred\"))?WXME01[0-9][0-9] ## " p) [(regexp-match-peek #rx#"^(?:#reader(lib\"read[.]ss\"\"wxme\"))?WXME01[0-9][0-9] ##[ \r\n]" p)
(let ([t (make-object text%)]) (let ([t (make-object text%)])
(send t insert-port p 'standard) (send t insert-port p 'standard)
(close-input-port p) (close-input-port p)