conscript,admin: allow for \r\n to end #lang line

Might not fix problem.
MarcKaufmann · Mar 28, 2024 · 3f634a3 · 3f634a3
1 parent 29b47ce
commit 3f634a3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/congame-core/components/dsl.rkt b/congame-core/components/dsl.rkt
@@ -39,7 +39,8 @@
 
 (define (dsl-require* src id)
   (log-dsl-debug "dsl-require: ~a" (~.s #:max-width 1024 src))
-  (unless (regexp-match? #rx"^#lang conscript *\n" src)
+  (unless (or (regexp-match? #rx"^#lang conscript *\n" src)
+              (regexp-match? #rx"^#lang conscript *\r\n" src))
     (error 'dsl-require "only #lang conscript is supported"))
   (define path #f)
   (dynamic-wind