From f69b47410212dc79d10a17c2cfa7442e41edb3dd Mon Sep 17 00:00:00 2001
From: Carl Gay <carlgay@gmail.com>
Date: Sat, 12 Oct 2013 22:06:51 -0400
Subject: [PATCH] Open the encode-json generic.  Fix 'unused' warning.

---
 json.dylan   | 2 +-
 parser.dylan | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/json.dylan b/json.dylan
index 835f3db..a413155 100644
--- a/json.dylan
+++ b/json.dylan
@@ -3,7 +3,7 @@ Copyright: Original Code is Copyright (c) 2011 Dylan Hackers
            All rights reserved.
 License: See License.txt in this distribution for details.
 
-define generic encode-json (stream :: <stream>, object :: <object>);
+define open generic encode-json (stream :: <stream>, object :: <object>);
 
 define constant $escapes = 
   vector(pair("\\", "\\\\"),
diff --git a/parser.dylan b/parser.dylan
index 711b450..77d9866 100644
--- a/parser.dylan
+++ b/parser.dylan
@@ -365,7 +365,7 @@ define constant $null :: <null> = make(<null>);
 
 define class <json-parser> (<object>)
   // Source is for error reporting only.  It could be a file name, a stream, etc.
-  constant slot input-source :: <object>, required-init-keyword: source:;
+  //constant slot input-source :: <object>, required-init-keyword: source:;
 
   // Text is the entire original source text.
   // TODO(cgay): Support streams better.  Probably make stream optional and use