remove unnecessary assert

2010-05-13 14:59:45 -04:00 · 2010-05-13 14:59:45 -04:00 · f44bd59b69
commit f44bd59b69
parent 684ae395e6
1 changed files with 1 additions and 1 deletions
--- a/collects/drracket/private/auto-language.rkt
+++ b/collects/drracket/private/auto-language.rkt
@ -80,4 +80,4 @@
               ;; If tp contains a snip, read-line fails.
               (read-line tp))])
    (and (string? l1)
-         (regexp-match? #rx"#lang .*$" (assert l1 string?)))))
+         (regexp-match? #rx"#lang .*$" l1))))