FUEL: use the right quot-char in pcases

diff --git a/misc/fuel/factor-smie.el b/misc/fuel/factor-smie.el
index 1db1495acdde62ecda25f775e8b318846ab6b0cb..af89a6c61bf9745eec8c980c860beb31943898ea 100644 (file)
--- a/misc/fuel/factor-smie.el
+++ b/misc/fuel/factor-smie.el
@@ -55,14 +55,14 @@
 
 (defun factor-smie-token (dir)
   (pcase dir
-    ('forward (forward-comment (point-max)))
-    ('backward (forward-comment (- (point)))))
+    (`forward (forward-comment (point-max)))
+    (`backward (forward-comment (- (point)))))
   (let ((tok (buffer-substring-no-properties
               (point)
               (let ((syntax "w_\\\""))
                 (pcase dir
-                  ('forward (skip-syntax-forward syntax))
-                  ('backward (skip-syntax-backward syntax)))
+                  (`forward (skip-syntax-forward syntax))
+                  (`backward (skip-syntax-backward syntax)))
                 (point)))))
     ;; Token normalization. This way we only need one rule in
     ;; factor-smie-grammar.