Posted to tcl by colin at Wed May 19 14:00:23 GMT 2010view pretty

oo::class create Tuple {
    method fixup {tuple} {
	if {$tuple == 0} {
	    my new 1
	}
    }

    method new {{arg 0}} {
	my fixup $arg
	info frame -1
    }
}

[Tuple new] new