Fixed bug in the unknown module. Module still tried to call

builtin SPI commands by their old SPI_* names. New names are spi_*.

Jan - 11/23/1998

diff --git a/src/pl/tcl/modules/unknown.pltcl b/src/pl/tcl/modules/unknown.pltcl
index 830ee25013730bccdf9cae25b7ed9974783d4e52..4f0a3fa991ab0dec6b1a94b58da5d95e2ddd8933 100644 (file)
--- a/src/pl/tcl/modules/unknown.pltcl
+++ b/src/pl/tcl/modules/unknown.pltcl
@@ -10,10 +10,10 @@ proc unknown {proname args} {
     # On first call prepare the plans
     #-----------------------------------------------------------
     if {![info exists p_mod]} {
-        set p_mod [SPI_prepare                                         \
+        set p_mod [spi_prepare                                         \
                "select modname from pltcl_modfuncs             \
                 where funcname = \$1" name]
-        set p_src [SPI_prepare                                 \
+        set p_src [spi_prepare                                 \
                "select modseq, modsrc from pltcl_modules       \
                 where modname = \$1                            \
                 order by modseq" name]
@@ -22,7 +22,7 @@ proc unknown {proname args} {
     #-----------------------------------------------------------
     # Lookup the requested function in pltcl_modfuncs
     #-----------------------------------------------------------
-    set n [SPI_execp -count 1 $p_mod [list [quote $proname]]]
+    set n [spi_execp -count 1 $p_mod [list [quote $proname]]]
     if {$n != 1} {
        #-----------------------------------------------------------
        # Not found there either - now it's really unknown
@@ -34,7 +34,7 @@ proc unknown {proname args} {
     # Collect the source pieces from pltcl_modules
     #-----------------------------------------------------------
     set src ""
-    SPI_execp $p_src [list [quote $modname]] {
+    spi_execp $p_src [list [quote $modname]] {
         append src $modsrc
     }