scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

utils: Slightly streamline extract-symbols with match.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-23 09:00:54 +01:00
parent 9eca7bf449
commit 5a27469dce
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
utils.rkt
View file

@ -135,11 +135,10 @@
;;; Produces a list of symbols appearing in the quoted expression ;;; Produces a list of symbols appearing in the quoted expression
;;; passed in the first argument. ;;; passed in the first argument.
(define (extract-symbols form) (define (extract-symbols form)
(cond (match form
[(symbol? form) [(? symbol?) (list form)]
(list form)] [(? list?) (flatten (for/list ([x form])
[(list? form) (extract-symbols x)))]
(flatten (for/list ([x form]) (extract-symbols x)))]
[else '()])) [else '()]))