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 | 1b0d436cc7b557e2feaf5131923ce17fb84622eb (patch) | |
| tree | 0a0acdf3a4e09c9b148d7b3d391ea5344ff805c3 /generic/tclLoad.c | |
| parent | c2f9601344d1cf1b6c483fcf165bbef57b1124af (diff) | |
| download | tcl-1b0d436cc7b557e2feaf5131923ce17fb84622eb.zip tcl-1b0d436cc7b557e2feaf5131923ce17fb84622eb.tar.gz tcl-1b0d436cc7b557e2feaf5131923ce17fb84622eb.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. */ |