Copy with empty declarations again

This commit is contained in:
Lassi Kortela 2019-05-12 16:28:58 +03:00
parent 4edcffdc3a
commit 000a898778
1 changed files with 4 additions and 3 deletions

View File

@ -81,9 +81,10 @@
(read-rest-of-line)
#f))
(first-form (read-form))
(declarations (and (list? first-form)
(eqv? 'declare-file (car first-form))
(cdr first-form))))
(declarations (or (and (list? first-form)
(eqv? 'declare-file (car first-form))
(cdr first-form))
'())))
(if shebang
(cons (list 'shebang shebang) declarations)
declarations))))