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