From e65598c98c04ad1d2431ffbf0a65b360a171a9cb Mon Sep 17 00:00:00 2001 From: Casey Klein Date: Tue, 7 Dec 2010 11:11:14 -0600 Subject: [PATCH] Fixes the semi-automated TeX table test --- collects/mrlib/tex-table.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mrlib/tex-table.rkt b/collects/mrlib/tex-table.rkt index 5d5c65a3d7..1242bd797b 100644 --- a/collects/mrlib/tex-table.rkt +++ b/collects/mrlib/tex-table.rkt @@ -181,14 +181,14 @@ ;; checks to see if there are duplicates #; (define (find-dups) - (let ([ht (make-hash-table 'equal)]) + (let ([ht (make-hash)]) (for-each (λ (line) (let ([name (list-ref line 0)] [obj (list-ref line 1)]) - (hash-table-put! ht name (cons obj (hash-table-get ht name '()))))) + (hash-set! ht name (cons obj (hash-ref ht name '()))))) tex-shortcut-table) - (hash-table-for-each + (hash-for-each ht (λ (k v) (unless (= 1 (length v))