>From 350ce6871847a3353bcc85cdca3b1555ad7f6fe5 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.
---
 core.scm    | 1 +
 support.scm | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/core.scm b/core.scm
index 32005bf..fb70c6f 100644
--- a/core.scm
+++ b/core.scm
@@ -2132,6 +2132,7 @@
 		    global
 		    (null? references)
 		    (not (variable-mark sym '##compiler#unused))
+		    (not (variable-hidden? sym))
 		    (not (variable-visible? sym block-compilation))
 		    (not (variable-mark sym '##compiler#constant)) )
 	   (##sys#notice
diff --git a/support.scm b/support.scm
index 7553743..fd33ff4 100644
--- a/support.scm
+++ b/support.scm
@@ -65,7 +65,7 @@
      real-name real-name2 display-real-name-table
      source-info->string source-info->line call-info constant-form-eval
      dump-nodes read-info-hook read/source-info big-fixnum?
-     hide-variable export-variable variable-visible?
+     hide-variable export-variable variable-hidden? variable-visible?
      mark-variable variable-mark intrinsic? predicate? foldable?
      load-identifier-database
      print-version print-usage print-debug-options
@@ -1564,6 +1564,9 @@
 (define (export-variable sym)		; Used only in compiler.scm
   (mark-variable sym '##compiler#visibility 'exported))
 
+(define (variable-hidden? sym)
+  (eq? (##sys#get sym '##compiler#visibility) 'hidden))
+
 (define (variable-visible? sym block-compilation)
   (let ((p (##sys#get sym '##compiler#visibility)))
     (case p
-- 
2.6.2