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
     }