fix for doc generation on older distributions

diff --git a/tclpkg/gv/gv_doc_writer.tcl b/tclpkg/gv/gv_doc_writer.tcl
index ee17ae0143d21b797488500b4b4a483f3ed9681d..9aebcef41b16bebdde44ddcb04bfb66ced7e27ee 100755 (executable)
--- a/tclpkg/gv/gv_doc_writer.tcl
+++ b/tclpkg/gv/gv_doc_writer.tcl
@@ -52,8 +52,8 @@ proc gv_doc_command {cmd} {
        foreach {functype params} $FUNC($cmd) {
                set par {}
                foreach {paramtype param} $params {
-                       if {[string length [array names TYPES -exact "$paramtype $param"]]} {
-                               lappend par "$TYPES($paramtype $param)"
+                       if {[info exists TYPES([list $paramtype $param])]} {
+                               lappend par $TYPES([list $paramtype $param])
                        } {
                                lappend par "$TYPES($paramtype) $param"
                        }