Repair lang check after shebang check.

samdphillips · Nov 9, 2023 · 266a328 · 266a328
1 parent 10d3fe4
commit 266a328
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/main.rkt b/main.rkt
@@ -5,7 +5,7 @@
 (define (file-has-lang? file-name)
   (define (check-shebang inp)
     (cond
-      [(equal? #"#!" (read-bytes 2 inp))
+      [(equal? #"#!" (peek-bytes 2 0 inp))
        (read-bytes-line inp)
        (check-lang inp)]
       [else