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