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

svn: r8005

Browse Source
This commit is contained in:
Matthias Felleisen 2007-12-14 00:53:23 +00:00
parent 5cdea2191c
commit 25d12e6fb3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tex2page/tex2page-aux.ss
View File

@ -13,6 +13,10 @@
(lambda (ht k . d) (lambda (ht k . d)
(hash-table-get ht k (let ((d (if (null? d) #f (car d)))) (lambda () 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 ; ensure shell-magic above
;Configured for Scheme dialect plt by scmxlate, v 2004-09-08, ;Configured for Scheme dialect plt by scmxlate, v 2004-09-08,
;(c) Dorai Sitaram, ;(c) Dorai Sitaram,