Re: [Sab] PATCH: Implementation of current() function

[robin]

Another bug :-(

--- Sablot-0.40/Sablot/expr.cpp Fri Jun 30 11:23:25 2000
+++ Sablot-0.40-patched/Sablot/expr.cpp Thu Jul  6 21:04:40 2000
@@ -2809,7 +2825,9 @@
             Expression *deref = proc -> getVarBinding(*pName);
             if (!deref)
                 Err(ET_VARIABLE_NOT_FOUND);
+            Vertex * current_node = c -> getCurrentNode();
             E( deref -> createContext(c, baseNdx) );
+            c->setCurrentNode (current_node);
         };
         break;
     case EXF_ATOM: