2024-04-06 13:59:44 -04:00
|
|
|
<> (eq ?x ?x) (#t)
|
|
|
|
|
<> (eq ?x ?y) (#f)
|
|
|
|
|
<> (q ?x) (q ?x)
|
|
|
|
|
<> (if ?c ?t ?f) (if/q ?c q ?t q ?f)
|
|
|
|
|
<> (if/q (#t) q ?t q ?f) (?t)
|
|
|
|
|
<> (if/q (#f) q ?t q ?f) (?f)
|
2024-04-04 20:15:16 -04:00
|
|
|
|
2024-04-06 13:59:44 -04:00
|
|
|
if (eq foo bar) (if (eq foo baz) a b) (if (eq foo foo) b c)
|
