FUEL: alist-get instead of (cdr (assoc key alist))

[factor.git] / misc / fuel / fuel-eval.el

diff --git a/misc/fuel/fuel-eval.el b/misc/fuel/fuel-eval.el
index 10be5fd793206203e6994d6fd84f9802c22d4db4..0e84e60ec813c07332cc7088e44d0e432788add7 100644 (file)
--- a/misc/fuel/fuel-eval.el
+++ b/misc/fuel/fuel-eval.el
@@ -144,8 +144,8 @@
         (assoc name err))))
 
 (defsubst fuel-eval--error-restarts (err)
-  (cdr (assoc :restarts (or (fuel-eval--error-name-p err 'condition)
-                            (fuel-eval--error-name-p err 'lexer-error)))))
+  (alist-get :restarts (or (fuel-eval--error-name-p err 'condition)
+                           (fuel-eval--error-name-p err 'lexer-error))))
 
 (defsubst fuel-eval--error-file (err)
   (nth 1 (fuel-eval--error-name-p err 'source-file-error)))