From 36aec73d75f59134c31be11a90bfeb29f470cf8c Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Tue, 30 Jul 2019 22:48:27 -0400
Subject: [PATCH] Suppress an unused warning

---
 src/canonicalize.rs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/canonicalize.rs b/src/canonicalize.rs
index 5d249e09df..be7ab0db18 100644
--- a/src/canonicalize.rs
+++ b/src/canonicalize.rs
@@ -140,7 +140,8 @@ impl Scope {
     }
 }
 
-struct Procedure {
+#[allow(dead_code)] // TODO remove this once Procedure is fully used.
+pub struct Procedure {
     name: Option<String>,
     closes_over: ImSet<Symbol>,
     is_self_tail_recursive: bool,