From e248be16cfc9ebfc7b4863d9d744c853d3d483a8 Mon Sep 17 00:00:00 2001
From: Scott Richmond <kredati@users.noreply.github.com>
Date: Thu, 3 Nov 2022 17:33:06 -0400
Subject: [PATCH] Comment out `<-` from scanner

---
 src/ludus/scanner.clj | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ludus/scanner.clj b/src/ludus/scanner.clj
index 9ae2b6c..90ae28e 100644
--- a/src/ludus/scanner.clj
+++ b/src/ludus/scanner.clj
@@ -251,9 +251,9 @@
 
       ;; at current we're not using this
       ;; <-
-      \< (if (= next \-)
-           (add-token (advance scanner) ::token/larrow)
-           (add-error scanner (str "Expected <-. Got " char next)))
+      ;;\< (if (= next \-)
+      ;;     (add-token (advance scanner) ::token/larrow)
+      ;;     (add-error scanner (str "Expected <-. Got " char next)))
 
       ;; |>
       ;; Consider => , with =>> for bind