see changelog

harbour/ChangeLog

@@ -1,3 +1,7 @@
+19990530-23:05 CET Eddie Runia
+   * source/rtl/objfunc.prg
+     since aEval has been clean for a long time, it was time to use it !
+
 19990530-21:30 CET Eddie Runia
    * source/rtl/classes.c; source/rtl/tclass.prg
      initializer and release ready for inheritance

harbour/source/rtl/objfunc.prg

@@ -108,16 +108,9 @@ return aData
 //
 function aOSet( oObject, aData )
 
-   local n
-   local nLen := Len( aData )
+   aEval( aData, ;
+        {|aItem| oSend( oObject, "_"+aItem[DATA_SYMBOL], aItem[DATA_VAL] ) } )
 
-//   aEval( aData, ;                            // Still losing 2 block
-//        {|aItem| oSend( oObject, "_"+aItem[DATA_SYMBOL], aItem[DATA_VAL] ) } )
-
-   for n := 1 to nLen
-      oSend( oObject, "_" + aData[n][DATA_SYMBOL], aData[n][DATA_VAL] )
-                                                // Send the message
-   next n
 return oObject