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

Another patch from Doug Orleans

Browse Source 
svn: r8558
This commit is contained in:
Eli Barzilay 2008-02-07 04:54:28 +00:00
parent 8a17372db3
commit f510340b7a
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/swindle/tiny-clos.ss
View File

@ -1002,14 +1002,13 @@
[qualifier (%method-qualifier method)])
;; make sure that tables always contain enough hash tables (or #f's)
(cond [(eq? tables ???)
(set! tables (n-falses (length specs)))
(%set-generic-singletons-list! generic tables)]
(set! tables (n-falses (length specs)))]
[(< (length tables) (length specs))
(set! tables (append
tables
(n-falses (- (length specs) (length tables)))))
(%set-generic-singletons-list! generic tables)])
(n-falses (- (length specs) (length tables)))))])
(set! tables (add-to-singletons-list specs tables))
(%set-generic-singletons-list! generic tables)
(if (memq generic generic-invocation-generics)
;; reset all caches by changing the value of *generic-app-cache-tag*
(set! *generic-app-cache-tag* (list #f))