[pure-lang-svn] SF.net SVN: pure-lang: [18] pure/trunk

[<ag...@us...>]

Revision: 18
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=18&view=rev
Author:   agraef
Date:     2008-05-01 08:27:14 -0700 (Thu, 01 May 2008)

Log Message:
-----------
Cosmetic changes in output of -v and list command.

Modified Paths:
--------------
    pure/trunk/interpreter.cc
    pure/trunk/lexer.ll

Modified: pure/trunk/interpreter.cc
===================================================================
--- pure/trunk/interpreter.cc	2008-05-01 09:38:20 UTC (rev 17)
+++ pure/trunk/interpreter.cc	2008-05-01 15:27:14 UTC (rev 18)
@@ -708,7 +708,7 @@
     throw err(msg.str());
   }
   if ((verbose&verbosity::defs) != 0)
-    cout << "let " << r->lhs << " = " << res << ";\n";
+    cout << "let " << r->lhs << " = " << r->rhs << ";\n";
   delete r;
   pure_freenew(res);
   if (interactive && stats)

Modified: pure/trunk/lexer.ll
===================================================================
--- pure/trunk/lexer.ll	2008-05-01 09:38:20 UTC (rev 17)
+++ pure/trunk/lexer.ll	2008-05-01 15:27:14 UTC (rev 18)
@@ -755,6 +755,7 @@
 
 void interpreter::print_defs(ostream& os, const Env& e)
 {
+  if (e.h && e.h != e.f) e.h->print(os);
   e.f->print(os);
   map<int32_t,Env>::const_iterator f;
   for (f = e.fmap.begin(); f != e.fmap.end(); f++)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.