Open the encode-json generic. Fix 'unused' warning.

dylan-lang · Oct 13, 2013 · f69b474 · f69b474
1 parent 0b5d260
commit f69b474
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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