diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-24 16:20:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-24 16:20:05 (GMT) |
| commit | db2389176bddb30734048a790ac9e6c6f2ec5d45 (patch) | |
| tree | 0a0acdf3a4e09c9b148d7b3d391ea5344ff805c3 /generic/tclLoad.c | |
| parent | d38a0b78165c57c6689c651906b1306d53f6e2fa (diff) | |
| download | tcl-db2389176bddb30734048a790ac9e6c6f2ec5d45.zip tcl-db2389176bddb30734048a790ac9e6c6f2ec5d45.tar.gz tcl-db2389176bddb30734048a790ac9e6c6f2ec5d45.tar.bz2 | |
Starting implementing the "package files" command. TIP still to be written.
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index be296b3..184c158 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -397,6 +397,12 @@ Tcl_LoadObjCmd( goto done; } + if (target == interp) { + /* Only register the file if the load is done in the + * current interpreter */ + TclPkgFileSeen(target, Tcl_GetString(objv[1])); + } + /* * Create a new record to describe this package. */ @@ -998,7 +1004,7 @@ Tcl_StaticPackage( } /* - * Package isn't loade in the current interp yet. Mark it as now being + * Package isn't loaded in the current interp yet. Mark it as now being * loaded. */ |