~ chicken-core (chicken-5) b86bbcc9d59ab899a2355eefe2a8928d2965ce11

commit b86bbcc9d59ab899a2355eefe2a8928d2965ce11
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Oct 30 20:28:00 2017 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Mon Oct 30 20:28:04 2017 +1300

    Minor fix for '(predefined TYPES-FILE)' handling in egg files
    
    This fixes the situation where a preexisting types file is specified by
    name, e.g. `(types-file (predefined "foo"))`. Previously, the extension
    name would be used instead of the name given in the 'predefined' form.

diff --git a/egg-compile.scm b/egg-compile.scm
index d062fc58..55b19b20 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -287,7 +287,6 @@
                    (set! ptfile #t)
                    (set! tfile
                      (or (null? (cdadr info))
-                         #t
                          (arg (cadr info) 1 name?)))))))
         ((inline-file)
          (set! ifile (or (null? (cdr info)) (arg info 1 name?))))