This patch hard-codes the Tk library directory during package initialization.

See <http://core.tcl.tk/tk/tktview/765642ffffffffffffff>.

diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index b5cbbab..96b5501 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -988,6 +988,7 @@ TkCreateMainWindow(
 
     Tcl_SetVar2(interp, "tk_patchLevel", NULL, TK_PATCH_LEVEL, TCL_GLOBAL_ONLY);
     Tcl_SetVar2(interp, "tk_version",    NULL, TK_VERSION,     TCL_GLOBAL_ONLY);
+    Tcl_SetVar2(interp, "tk_library",    NULL, TK_LIBRARY,     TCL_GLOBAL_ONLY);
 
     tsdPtr->numMainWindows++;
     return tkwin;
diff --git a/unix/Makefile.in b/unix/Makefile.in
index f21fdbb..c61b0df 100644
--- a/unix/Makefile.in
+++ b/unix/Makefile.in
@@ -1029,7 +1029,7 @@ tkVisual.o: $(GENERIC_DIR)/tkVisual.c
 	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkVisual.c
 
 tkWindow.o: $(GENERIC_DIR)/tkWindow.c
-	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkWindow.c
+	$(CC) -c $(CC_SWITCHES) -DTK_LIBRARY=\"${TK_LIBRARY}\" $(GENERIC_DIR)/tkWindow.c
 
 tkButton.o: $(GENERIC_DIR)/tkButton.c
 	$(CC) -c $(CC_SWITCHES) $(GENERIC_DIR)/tkButton.c
><a href='/guix/refs/?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb'>refs</a><a class='active' href='/guix/log/doc?showmsg=1'>log</a><a href='/guix/tree/doc?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb'>tree</a><a href='/guix/commit/doc?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb'>commit</a><a href='/guix/diff/doc?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/doc'>
<input type='hidden' name='id' value='cc9f9565c1e9d51e0c9a5604a15991558267cfcb'/><input type='hidden' name='showmsg' value='1'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb&amp;showmsg=1'>root</a>/<a href='/guix/log/doc?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb&amp;showmsg=1'>doc</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/doc?id=cc9f9565c1e9d51e0c9a5604a15991558267cfcb'>Collapse</a>)</th><th class='left'>Author</th></tr>
<tr class='logheader'><td><span title='2022-03-02 19:26:16 +0100'>2022-03-02</span></td><td class='logsubject'><a href='/guix/commit/doc?id=be84fb701bf7a36a0eb50147ccbb988aa3f41209'>doc: Publish the Slovak translation of the cookbook.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* doc/build.scm (%languages): Add "sk" for "guix-cookbook" (it's
currently at 57%).


</td></tr>
<tr class='logheader'><td><span title='2022-03-02 19:26:16 +0100'>2022-03-02</span></td><td class='logsubject'><a href='/guix/commit/doc?id=f0efa6afc5f180f778eb320631a71f42bf1b211f'>doc: Add "Using TeX and LaTeX" chapter.</a></td><td>Ludovic Courtès</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* doc/guix.texi (Using TeX and LaTeX): New node.


</td></tr>
<tr class='logheader'><td><span title='2022-03-01 22:17:18 +0100'>2022-03-01</span></td><td class='logsubject'><a href='/guix/commit/doc?id=8c92d85e06e65c5cdb5f6c75faf8aa33e5a68513'>nls: Update translations.</a></td><td>Julien Lepiller</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* po/doc/guix-cookbook.uk.po: New file.
* po/doc/local.mk: Add uk cookbook.
* doc/local.mk: Add uk cookbook.
* po/guix/fa.po: New file.
* po/guix/uk.po: New file.
* po/guix/LINGUAS: Add fa and uk.


</td></tr>
<tr class='logheader'><td><span title='2022-03-01 10:30:18 -0500'>2022-03-01</span></td><td class='logsubject'><a href='/guix/commit/doc?id=6d9d616113cf051d80567b584a5b0a6489ddc065'>initrd: Honor rootfstype and rootflags command-line parameters.</a></td><td>Maxim Cournoyer</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/build/linux-boot.scm (boot-system): Honor rootfstype and rootflags
arguments.  Update doc.  Error out in case there is insufficient information
with regard to the root file system.
Restore the behavior of inferring the root device from the root file system
from the operating system in case the root argument is not provided.
* doc/guix.texi (Initial RAM Disk): Document the new command-line parameters.


</td></tr>
<tr class='logheader'><td><span title='2022-03-01 10:30:17 -0500'>2022-03-01</span></td><td class='logsubject'><a href='/guix/commit/doc?id=0dc019e19a23fea614be5623360849ab9bc35e74'>initrd: Use non-hyphenated kernel command-line parameter names.</a></td><td>Maxim Cournoyer</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
This is to make it less surprising, given the common convention sets forth by
the kernel Linux command-line parameters.

* gnu/build/linux-boot.scm (boot-system): Rename '--load', '--repl', '--root'
and '--system' to 'gnu.load', 'gnu.repl', 'root' and 'gnu.system',
respectively.  Adjust doc.
(find-long-option): Adjust doc.
* gnu/installer/parted.scm (installer-root-partition-path): Adjust accordingly.
* gnu/system.scm (bootable-kernel-arguments): Add a VERSION argument and
update doc.  Use VERSION to conditionally return old style vs new style initrd
arguments.
(%boot-parameters-version): Increment to 1.
(operating-system-boot-parameters): Adjust doc.
(operating-system-boot-parameters-file): Likewise.
* gnu/system/linux-initrd.scm (raw-initrd, base-initrd): Likewise.
* doc/guix.texi: Adjust doc.
* gnu/build/activation.scm (boot-time-system): Adjust accordingly.
* gnu/build/hurd-boot.scm (boot-hurd-system): Likewise.
* gnu/packages/commencement.scm (%final-inputs-riscv64): Adjust comment.


</td></tr>