Copy with empty declarations again

encoding-reader.scm

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