diff --git a/corpus/crlf.txt b/corpus/crlf.txt
new file mode 100644
index 0000000..b3d6cde
--- /dev/null
+++ b/corpus/crlf.txt
@@ -0,0 +1,13 @@
+================================
+Variables with CRLF line endings
+================================
+
+A=one
+
+B=two
+
+---
+
+(program
+  (variable_assignment (variable_name) (word))
+  (variable_assignment (variable_name) (word)))
diff --git a/src/scanner.cc b/src/scanner.cc
index ed9fb8c..1faf40c 100644
--- a/src/scanner.cc
+++ b/src/scanner.cc
@@ -213,6 +213,7 @@ struct Scanner {
         if (
           lexer->lookahead == ' ' ||
           lexer->lookahead == '\t' ||
+          lexer->lookahead == '\r' ||
           (lexer->lookahead == '\n' && !valid_symbols[NEWLINE])
         ) {
           skip(lexer);