fix: modified heapPush to yield expected result

Nahom32 · Nahom32 · commit 19fb53cc4389 · 2025-05-30T08:33:03.000+03:00
diff --git a/utils.metta b/utils.metta
@@ -652,7 +652,7 @@
 (= (heapPush $list $item)
     (let*
         (
-            ($appendedList (union-atom ($item) $list))
+            ($appendedList (union-atom $list ($item)))
             ($lastIndex (- (size-atom $appendedList) 1))
             (($pushedList $index) (until isNodeLargerThanParent swapWithParent ($appendedList $lastIndex)))
         )

Original file line number	Diff line number	Diff line change
`@@ -652,7 +652,7 @@`
`652`	`652`	`(= (heapPush $list $item)`
`653`	`653`	`(let*`
`654`	`654`	`(`
`655`		`- ($appendedList (union-atom ($item) $list))`
	`655`	`+ ($appendedList (union-atom $list ($item)))`
`656`	`656`	`($lastIndex (- (size-atom $appendedList) 1))`
`657`	`657`	`(($pushedList $index) (until isNodeLargerThanParent swapWithParent ($appendedList $lastIndex)))`
`658`	`658`	`)`