[Gd-chatter] r11763 - trunk/fundev/sources/lib/lisp-reader

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Mar 28 04:53:42 2008
New Revision: 11763

Modified:
   trunk/fundev/sources/lib/lisp-reader/lisp-reader-exports.dylan
   trunk/fundev/sources/lib/lisp-reader/lisp-reader.dylan
Log:
Job: minor

fewer warnings


Modified: trunk/fundev/sources/lib/lisp-reader/lisp-reader-exports.dylan
==============================================================================
--- trunk/fundev/sources/lib/lisp-reader/lisp-reader-exports.dylan	(original)
+++ trunk/fundev/sources/lib/lisp-reader/lisp-reader-exports.dylan	Fri Mar 28 04:53:42 2008
@@ -8,7 +8,7 @@
 end library;
 
 define module lisp-reader
-  use common-dylan;
+  use common-dylan, exclude: { format-to-string };
   use streams;
   use format;
   use standard-io;

Modified: trunk/fundev/sources/lib/lisp-reader/lisp-reader.dylan
==============================================================================
--- trunk/fundev/sources/lib/lisp-reader/lisp-reader.dylan	(original)
+++ trunk/fundev/sources/lib/lisp-reader/lisp-reader.dylan	Fri Mar 28 04:53:42 2008
@@ -79,17 +79,6 @@
   as(<symbol>, read-word(stream));
 end;
 
-define function test ()
-  while(#t)
-    let line = read-line(*standard-input*);
-    let stream = make(<string-stream>, direction: #"input", contents: line);
-    let expr = read-lisp(stream);
-    format(*standard-output*, "%=\n", expr);
-  end;
-end;
-
-//test();
-
 define method print-s-expression (stream :: <stream>, expression :: <integer>)
   format(stream, "%d", expression);
 end;