From 25d12e6fb3ee6dfd16fc71510c4daabe3533990f Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Fri, 14 Dec 2007 00:53:23 +0000
Subject: [PATCH] svn: r8005

---
 collects/tex2page/tex2page-aux.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/tex2page/tex2page-aux.ss b/collects/tex2page/tex2page-aux.ss
index c3748e5cea..c3af75d08c 100644
--- a/collects/tex2page/tex2page-aux.ss
+++ b/collects/tex2page/tex2page-aux.ss
@@ -13,6 +13,10 @@
   (lambda (ht k . d)
     (hash-table-get ht k (let ((d (if (null? d) #f (car d)))) (lambda () d)))))
 
+(define table-put!
+  (lambda (ht k v)
+    (hash-table-put! ht k v)))
+
 ; ensure shell-magic above
 ;Configured for Scheme dialect plt by scmxlate, v 2004-09-08,
 ;(c) Dorai Sitaram,