From 5e8a1936b124006e81b9260f94e8e0c282e4ade2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 19 Jan 2007 02:48:52 +0000 Subject: [PATCH] correct regexp for magic, again svn: r5409 original commit: 24bc2eb636ac2b2c3196e31a63df48f92409fc16 --- collects/mred/private/snipfile.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/snipfile.ss b/collects/mred/private/snipfile.ss index f18d620d..78e4d7c3 100644 --- a/collects/mred/private/snipfile.ss +++ b/collects/mred/private/snipfile.ss @@ -254,7 +254,7 @@ (let ([p (open-input-file filename)]) (port-count-lines! p) (let ([p (cond - [(regexp-match-peek #rx#"^(?:#reader(lib\"read[.]ss\"\"wxme\"))?WXME01[0-9][0-9] ##[ \r\n]" p) + [(regexp-match-peek #rx#"^(?:#reader[(]lib\"read[.]ss\"\"wxme\"[)])?WXME01[0-9][0-9] ##[ \r\n]" p) (let ([t (make-object text%)]) (send t insert-port p 'standard) (close-input-port p)