exists -proc -> exists -command

`exists -command` subsumes `exists -proc`

This test is generally checking whether the command exists, rather than some proc that is overriding it.

Currently `class` is a proc but this may not always be so.
This commit is contained in:
df 2020-12-14 14:06:48 +00:00
parent d7c15163e1
commit b780b3dda8
1 changed files with 1 additions and 1 deletions

View File

@ -2,7 +2,7 @@
# From https://wiki.tcl-lang.org/page/Parsing+XML
# Keith Vetter 2004-03-01
if {![exists -proc class]} { package require oo }
if {![exists -command class]} { package require oo }
class xml {
xml ""