[Oorexx-svn] SF.net SVN: oorexx: [455] interpreter-3.x/trunk/kernel/RexxClasses/ CoreClasses.orx

[<bi...@us...>]

Revision: 455
          http://svn.sourceforge.net/oorexx/?rev=455&view=rev
Author:   bigrixx
Date:     2007-06-12 04:56:33 -0700 (Tue, 12 Jun 2007)

Log Message:
-----------
[ 1734239 ] 'XOR' on Directory class may raise syntax condition
[ 1734236 ] 'INTERSECTION' on Directory class may raise syntax condition

Modified Paths:
--------------
    interpreter-3.x/trunk/kernel/RexxClasses/CoreClasses.orx

Modified: interpreter-3.x/trunk/kernel/RexxClasses/CoreClasses.orx
===================================================================
--- interpreter-3.x/trunk/kernel/RexxClasses/CoreClasses.orx	2007-06-12 11:31:38 UTC (rev 454)
+++ interpreter-3.x/trunk/kernel/RexxClasses/CoreClasses.orx	2007-06-12 11:56:33 UTC (rev 455)
@@ -425,7 +425,7 @@
     if new~hasIndex(index) then        -- not, then we copy into the result collection
         new~remove(index)
     else
-        new~put(index, supplier~item)
+        new~put(supplier~item, index)
     supplier~next
 end
 
@@ -459,7 +459,7 @@
 do while supplier~available            -- now iterate over the supplier seeing if
     index = supplier~index             -- the item is defined in the target.  If
     if self~hasIndex(index) then       -- so, we we copy into the result collection
-        new~put(index, supplier~item)
+        new~put(supplier~item, index)
     supplier~next
 end
 


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