Posted to tcl by FM at Mon Aug 10 18:24:15 GMT 2026view raw

  1. % proc test e {
  2. if $e (1) else (0)
  3. }
  4. % test 0
  5. 0
  6. % test 1
  7. 1