Posted to tcl by mjanssen at Mon Oct 26 16:36:41 GMT 2015view raw
- (System32) 1 % linsert
- wrong # args: should be "linsert list index ?element ...?"
- (System32) 2 % proc map {fun list} {
- > set res {}
- > foreach element $list {lappend res [$fun $element]}
- > set res
- > } ;# RS
- (System32) 3 % proc prefix {prefix x} {return [list $prefix $x]}
- (System32) 4 % interp alias {}
- wrong # args: should be "interp alias slavePath slaveCmd ?masterPath masterCmd? ?arg ...?"
- (System32) 5 % interp alias {} prefixMark {} prefix mark
- prefixMark
- (System32) 6 % map prefixMark {x y z}
- {mark x} {mark y} {mark z}
- (System32) 7 %