How to make if run one time each?

[dexter]

just say

Code Select Expand


(setq test 0)
(if (= test 0) (begin (println test) (++ test)) (= test 1) (begin (println test)))


and this output as :

Code Select Expand


> (if (= test 0) (begin (println test) (++ test)) (= test 1) (begin (println test)))
0
1


Is it different to C ?

Cause I thought (if ) only run once, so the output should be  one line , a 0



new lisp can not do it ?

[HPW]

Code Select Expand


(silent(setq test 0))
(silent(if (= test 0) (begin (println test) (++ test)) (= test 1) (begin (println test))))


The 1 you see is the return value.

[dexter]

Thanks



I never noticed (silent)