[Pingus-CVS] r3468 - trunk/pingus/contrib

[grumbel at BerliOS]

Author: grumbel
Date: 2007-11-02 17:36:02 +0100 (Fri, 02 Nov 2007)
New Revision: 3468

Modified:
   trunk/pingus/contrib/sexpr.rb
Log:
- little bug fix

Modified: trunk/pingus/contrib/sexpr.rb
===================================================================
--- trunk/pingus/contrib/sexpr.rb       2007-11-02 16:32:04 UTC (rev 3467)
+++ trunk/pingus/contrib/sexpr.rb       2007-11-02 16:36:02 UTC (rev 3468)
@@ -64,7 +64,12 @@
           if sublists.empty? then
             raise "Unexpected List end"
           else
-            elements << sublists.pop
+            lst = sublists.pop()
+            if not sublists.empty? then
+              sublists.last().append(lst)
+            else
+              elements << lst
+            end
           end
         elsif token.is_a?(SExpr) then
           if not sublists.empty? then
@@ -341,7 +346,7 @@
 end
 
 if ARGV.empty?() then
-  lexer = SExpr::Lexer.new("a (b 1.5)")
+  lexer = SExpr::Lexer.new("(pingus-level a (b 1.5) 5)")
   puts lexer.parse()
 else
   ARGV.each{|filename|