>From c530a62dac522ab5e14c40589b3fc0298293bed2 Mon Sep 17 00:00:00 2001
From: Evan Hanson <address@hidden>
Date: Tue, 29 Dec 2015 08:38:49 +1300
Subject: [PATCH] Don't warn about unused hidden variables

Fixes #1237.
---
 compiler.scm | 1 +
 support.scm  | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/compiler.scm b/compiler.scm
index 55dbda6..c706942 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -2054,6 +2054,7 @@
 		    global
 		    (null? references)
 		    (not (variable-mark sym '##compiler#unused))
+		    (not (variable-hidden? sym))
 		    (not (variable-visible? sym))
 		    (not (variable-mark sym '##compiler#constant)) )
 	   (##sys#notice 
diff --git a/support.scm b/support.scm
index 1c48782..5196a17 100644
--- a/support.scm
+++ b/support.scm
@@ -1588,6 +1588,9 @@
 (define (export-variable sym)
   (mark-variable sym '##compiler#visibility 'exported))
 
+(define (variable-hidden? sym)
+  (eq? (##sys#get sym '##compiler#visibility) 'hidden))
+
 (define (variable-visible? sym)
   (let ((p (##sys#get sym '##compiler#visibility)))
     (case p
-- 
2.6.2