Posted to tcl by steveb at Thu Oct 18 16:00:20 GMT 2012view pretty

http://pubs.opengroup.org/onlinepubs/009695399/

        if {$Url(thread,$prefix)} {
            Count UrlToThread
            Thread_Dispatch $sock \
                    [concat $Url(command,$prefix) [list $sock $suffix]]
        } else {
            Count UrlEval
            eval $Url(command,$prefix) [list $sock $suffix]
        }
    } error] == 1} {