Posted to tcl by kbk at Wed Jan 06 15:51:26 GMT 2016view pretty

(0) loadScalar1 %v0 	# var "s"
    (2) tryCvtToBoolean 
    (3) reverse 2 
    (8) pop 
    (9) jumpTrue1 +19 	# pc 28
    (11) loadScalar1 %v0 	# var "s"
    (13) numericType 
    (14) jumpTrue1 +6 	# pc 20
    (16) push1 0 	# "0"
    (18) jump1 +4 	# pc 22
    (20) push1 1 	# "1"
    (22) jumpTrue1 +6 	# pc 28
    (24) push1 0 	# "0"
    (26) jump1 +4 	# pc 30
    (28) push1 1 	# "1"
    (30) jumpFalse1 +6 	# pc 36
    (32) push1 1 	# "1"
    (34) jump1 +4 	# pc 38
    (36) push1 0 	# "0"
    (38) tryCvtToNumeric