Optimized tree modifications in scheme printerw

diff --git a/source/visitors/scheme/scheme.cpp b/source/visitors/scheme/scheme.cpp
index 7a413681da0babe1e33ea5dc9d0750358c2d5ba6..1d69f8fe547e624b84fc59966daa4adfe43f57a6 100644 (file)
--- a/source/visitors/scheme/scheme.cpp
+++ b/source/visitors/scheme/scheme.cpp
@@ -101,10 +101,7 @@ void Scheme::beforeChildren(AST* cur, int depth)
 {
     if (cur->type() == MEMB)
     {
-        AST* temp = cur->children()->back();
-        cur->children()->pop_back();
-        cur->children()->push_back( new AST(STRING, temp->text()) );
-        delete temp;
+        cur->children()->back()->type(STRING);
     }
 
     if( isDatatype( cur->type() ) )