GetLink + ChoiceLink how to use?

[amebel]

My Intention was to use ChoiceLink to get either of the EvaluationLinks, if they are present in the atomspace. also tried

• (ChoiceLink (PresentLink (EvaluationLink ...)))
• (OrLink (PresentLink (EvaluationLink ...))) ; just in case, was expecting an error

both also gave empty SetLink

Expected result

(SetLink
    (Node "OpenPsi: Energy-rule-xej90")
    (Node "OpenPsi: Energy-rule-pG1ez")
)

Content of the atomspace

 (EvaluationLink
   (PredicateNode "OpenPsi:Decrease")
   (ListLink
      (Node "OpenPsi: Energy-rule-xej90")
      (ConceptNode "OpenPsi:Energy")
   )
)
(EvaluationLink
   (PredicateNode "OpenPsi:Increase")
   (ListLink
      (Node "OpenPsi: Energy-rule-pG1ez")
      (ConceptNode "OpenPsi:Energy")
   )
)

Commands run

guile> (define get-nodes1
    (GetLink
       (TypedVariableLink
          (VariableNode "x")
          (TypeNode "Node")
       )
       (ChoiceLink
          (EvaluationLink
             (PredicateNode "OpenPsi:Increase")
             (ListLink
                (VariableNode "x")
                (ConceptNode "OpenPsi:Energy")
             )
          )
          (EvaluationLink
             (PredicateNode "OpenPsi:Decrease")
             (ListLink
                (VariableNode "x")
                (ConceptNode "OpenPsi:Energy")
             )
          )
       )
    )
)

guile> (cog-execute! get-nodes1)                                   
(SetLink                                                          
)                                                                 

[linas]

Strange; that should work. It works if you skip the variable declaration.

[linas]

Yeah, I see the problem. Working on it.

[linas]

Fixed in pul req #327

[amebel]

thanks for the fix