From 361b53d905346c7a236f3f8934716c280152e80e Mon Sep 17 00:00:00 2001
From: LemonBoy <address@hidden>
Date: Tue, 2 May 2017 16:31:53 +0200
Subject: [PATCH] Prevent the use of an unbound variable

---
 modules.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
2.12.2