utils: Slightly streamline extract-symbols with match.

2020-02-23 09:00:54 +01:00 · 2020-02-23 09:00:54 +01:00 · 5a27469dce
commit 5a27469dce
parent 9eca7bf449
1 changed files with 4 additions and 5 deletions
--- a/utils.rkt
+++ b/utils.rkt
@ -135,11 +135,10 @@
 ;;; Produces a list of symbols appearing in the quoted expression
 ;;; passed in the first argument.
 (define (extract-symbols form)
-  (cond
-    [(symbol? form)
-     (list form)]
-    [(list? form)
-     (flatten (for/list ([x form]) (extract-symbols x)))]
+  (match form
+    [(? symbol?) (list form)]
+    [(? list?) (flatten (for/list ([x form])
+                          (extract-symbols x)))]
    [else '()]))