improve map function closure

billbsing · billbsing · commit 2d5ca84f5e3e · 2020-09-09T15:08:22.000+08:00
diff --git a/tests/intergration/test_starfish_contracts.py b/tests/intergration/test_starfish_contracts.py
@@ -75,7 +75,7 @@
             (defn dump [] registry )
             (defn owner-list [the-owner]
                 (assert-address the-owner)
-                (mapcat (fn [k v] (when (= (address the-owner) (get v :owner)) [k])) (keys registry) (values registry))
+                (mapcat (fn [v] (when (= (address the-owner) (get (last v) :owner)) [(first v)])) registry)
             )
             (export dump resolve resolve? register unregister owner owner? owner-list transfer version)
         )

Original file line number	Diff line number	Diff line change
`@@ -75,7 +75,7 @@`
`75`	`75`	`(defn dump [] registry )`
`76`	`76`	`(defn owner-list [the-owner]`
`77`	`77`	`(assert-address the-owner)`
`78`		`- (mapcat (fn [k v] (when (= (address the-owner) (get v :owner)) [k])) (keys registry) (values registry))`
	`78`	`+ (mapcat (fn [v] (when (= (address the-owner) (get (last v) :owner)) [(first v)])) registry)`
`79`	`79`	`)`
`80`	`80`	`(export dump resolve resolve? register unregister owner owner? owner-list transfer version)`
`81`	`81`	`)`