suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixes the semi-automated TeX table test

Browse Source
This commit is contained in:
Casey Klein 2010-12-07 11:11:14 -06:00
parent a12491bb89
commit e65598c98c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mrlib/tex-table.rkt
View File

@ -181,14 +181,14 @@
;; checks to see if there are duplicates ;; checks to see if there are duplicates
#; #;
(define (find-dups) (define (find-dups)
(let ([ht (make-hash-table 'equal)]) (let ([ht (make-hash)])
(for-each (for-each
(λ (line) (λ (line)
(let ([name (list-ref line 0)] (let ([name (list-ref line 0)]
[obj (list-ref line 1)]) [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) tex-shortcut-table)
(hash-table-for-each (hash-for-each
ht ht
(λ (k v) (λ (k v)
(unless (= 1 (length v)) (unless (= 1 (length v))