[Xotcl] error not taken in account in init instproc

[Fabrice Pardo]

The errors seems not to be taken in account in "init" instproc:

Class create C
C instproc init {e} {
    if {$e} {error "an error"}
    next
}
C create o1 1                 ;# ::o1
set errorInfo                 ;# an error...while executing...
C create o1 1                 ;# now a blank line !
C create o2                   ;# ::o2
set errorInfo                 ;# wrong # args: should be "init e" ...

# Program version:
info patchlevel               ;# 8.4.8
package ifneeded XOTcl 1.3.3  ;# load /.../libxotcl1.3.3.so XOTcl

-- 
Fabrice Pardo