Parse expression does not get reduced when used inside cons-atom

[vulecoff]

Bugged code: !(cons-atom (parse "1") ())

• Expected: [(1)]
• Actual: [ ( (parse "1") )]

I suspected there're some edge cases in order of evaluation when combining these 2 specific expressions. parse works as expected when used with other expressions, so far:

• !(foldl-atom ((parse "1") 1 1) 0 $acc $x (+ $acc $x)) --> 3
• !(let $x (parse "1") (cons-atom $x ())) --> (1)

[TeamSPoon]

fixed in 370696c

metta+>!(cons-atom (parse "1") ())
[(1)]
metta+>!(foldl-atom ((parse "1") 1 1) 0 $acc $x (+ $acc $x))
[3]
metta+>!(let $x (parse "1") (cons-atom $x ()))
[(1)]
metta+>