src/parser/scanner-impl.lisp: Add missing `scanner-unread' method.

[sod] / src / parser / scanner-impl.lisp

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index 00c41eb..8bca29f 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -81,6 +81,9 @@
 (defmethod scanner-step ((scanner string-scanner))
   (incf (string-scanner-index scanner)))
 
+(defmethod scanner-unread ((scanner string-scanner) char)
+  (decf (string-scanner-index scanner)))
+
 (defmethod scanner-capture-place ((scanner string-scanner))
   (string-scanner-index scanner))