lassik
/
encoding-declaration
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
encoding-reader.scm
View File

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