~ chicken-core (chicken-5) 77aa45ff4a7cf57f5f8c7e02d2422fab67ce4b06

commit 77aa45ff4a7cf57f5f8c7e02d2422fab67ce4b06
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Oct 28 21:40:24 2016 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 13 11:41:48 2016 +0100

    added some egg properties

diff --git a/egg-information.scm b/egg-information.scm
index 6988a4d8..5e9e2750 100644
--- a/egg-information.scm
+++ b/egg-information.scm
@@ -10,6 +10,12 @@
        (let ((str (->string (car v))))
          (irregex-match '(seq (+ numeric) #\. (+ numeric) #\. (+ numeric)) str))))
 
+(define (optname? x)
+  (and (list? x) (pair? x)
+       (or (null? (cdr x)) 
+           (string? (cadr x))
+           (symbol? (cadr x)))))
+
 ;; ENTRY = (NAME TOPLEVEL? NESTED? NAMED? [VALIDATOR])
 (define egg-info-items
   `((synopsis #t #f #f)
@@ -29,13 +35,16 @@
     (maintainers #t #f #f)
     (maintainer #t #f #f)
     (files #f #t #f ,list?)
-    (source-file #f #f #f)
+    (source #f #f #f)
     (csc-options #f #f #f)
     (link-options #f #f #f)
     (custom-build #f #f #f)
     (target #f #t #f)
     (host #f #t #f)
+    (types-file #f #f ,optname?)
+    (inline-file #f #f ,optname?)
     (extension #f #t #t)
+    (generated-source-file #f #t #t)
     (program #f #t #t)
     (data #f #t #t)
     (c-include #f #f #t)