Use standard bound-and-true-p macro to replace equivalent code

Author: purcell

purescript-font-lock.el

@@ -418,18 +418,16 @@ that should be commented under LaTeX-style literate scripts."
 
 ;;;###autoload
 (defun purescript-font-lock-choose-keywords ()
-  (let ((literate (if (boundp 'purescript-literate) purescript-literate)))
-    (cl-case literate
-      (bird purescript-font-lock-bird-literate-keywords)
-      ((latex tex) purescript-font-lock-latex-literate-keywords)
-      (t purescript-font-lock-keywords))))
+  (cl-case (bound-and-true-p purescript-literate)
+    (bird purescript-font-lock-bird-literate-keywords)
+    ((latex tex) purescript-font-lock-latex-literate-keywords)
+    (t purescript-font-lock-keywords)))
 
 (defun purescript-font-lock-choose-syntactic-keywords ()
-  (let ((literate (if (boundp 'purescript-literate) purescript-literate)))
-    (cl-case literate
-      (bird purescript-bird-syntactic-keywords)
-      ((latex tex) purescript-latex-syntactic-keywords)
-      (t purescript-basic-syntactic-keywords))))
+  (cl-case (bound-and-true-p purescript-literate)
+    (bird purescript-bird-syntactic-keywords)
+    ((latex tex) purescript-latex-syntactic-keywords)
+    (t purescript-basic-syntactic-keywords)))
 
 (defun purescript-font-lock-defaults-create ()
   "Locally set `font-lock-defaults' for PureScript."