~ chicken-core (chicken-5) 69a3f493c68e938db4999565daad088a9f0fe9b3

commit 69a3f493c68e938db4999565daad088a9f0fe9b3
Author:     megane <meganeka@gmail.com>
AuthorDate: Fri Jul 13 21:49:20 2018 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Jul 14 12:36:51 2018 +1200

    Scan module definition for extra exports following interface usage
    
    Signed-off-by: Peter Bex <peter@more-magic.net>
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/modules.scm b/modules.scm
index 73e89474..b0cdce59 100644
--- a/modules.scm
+++ b/modules.scm
@@ -803,7 +803,7 @@
 			   (cons (cdr x) (loop (cdr xps)))) ; currently not used
 			  ((eq? #:interface (car x))
 			   (if (and (pair? (cdr x)) (symbol? (cadr x)))
-			       (iface (cadr x))
+			       (append (iface (cadr x)) (loop (cdr xps)))
 			       (err "invalid interface specification" x exps)))
 			  (else
 			   (let loop2 ((lst x))