fix bug in LLL two-buyer
This commit is contained in:
parent
c9ae956bd2
commit
73f180d90a
|
@ -152,8 +152,8 @@
|
||||||
(list (patch-seq (unsub (split-proposal title price ? ?))
|
(list (patch-seq (unsub (split-proposal title price ? ?))
|
||||||
(sub (split-proposal title price my-contribution ?)))))]))])]
|
(sub (split-proposal title price my-contribution ?)))))]))])]
|
||||||
[_ #f]))
|
[_ #f]))
|
||||||
(/ price 2)
|
initial-offer
|
||||||
(list (sub (split-proposal title price (/ price 2) ?))))]))
|
(list (sub (split-proposal title price initial-offer ?))))]))
|
||||||
(try-to-buy titles budget))
|
(try-to-buy titles budget))
|
||||||
|
|
||||||
(define (buyer-b funds)
|
(define (buyer-b funds)
|
||||||
|
|
|
@ -154,8 +154,8 @@
|
||||||
(transition my-contribution
|
(transition my-contribution
|
||||||
(list (scn (assertion (observe (split-proposal title price my-contribution ?))))))]))])]
|
(list (scn (assertion (observe (split-proposal title price my-contribution ?))))))]))])]
|
||||||
[_ #f]))
|
[_ #f]))
|
||||||
(/ price 2)
|
initial-offer
|
||||||
(list (scn (assertion (observe (split-proposal title price (/ price 2) ?))))))]))
|
(list (scn (assertion (observe (split-proposal title price initial-offer ?))))))]))
|
||||||
(try-to-buy titles budget))
|
(try-to-buy titles budget))
|
||||||
|
|
||||||
(define (buyer-b funds)
|
(define (buyer-b funds)
|
||||||
|
|
Loading…
Reference in New Issue