~ chicken-core (chicken-5) c822d87b006dceb35b37f4afe77154fc561bd8d6

commit c822d87b006dceb35b37f4afe77154fc561bd8d6
Author:     LemonBoy <thatlemon@gmail.com>
AuthorDate: Tue May 2 16:31:53 2017 +0200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed May 3 08:14:44 2017 +1200

    Prevent the use of an unbound variable
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/modules.scm b/modules.scm
index 292dedaf..a69e0241 100644
--- a/modules.scm
+++ b/modules.scm
@@ -792,7 +792,7 @@
     (apply ##sys#syntax-error-hook loc args))
   (define (iface name)
     (or (getp name '##core#interface)
-	(err "unknown interface" x exps)))
+	(err "unknown interface" name exps)))
   (cond ((eq? '* exps) exps)
 	((symbol? exps) (iface exps))
 	((not (list? exps))