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

Revert "avoid a wrapper on callbacks that get stored in a weak table"

Browse Source 
This reverts commit d1357f2294.

Commit 38d6afe07c fixes the problem more generally.
This commit is contained in:
Matthew Flatt 2013-02-18 17:00:35 -07:00
parent dbdfd4236f
commit 0e251be6cb
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/racket/snip/private/contract.rkt
View File

@ -124,10 +124,6 @@
(set-weight-off (->m (or/c 'base font-weight/c) void?)) (set-weight-off (->m (or/c 'base font-weight/c) void?))
(set-weight-on (->m (or/c 'base font-weight/c) void?)))) (set-weight-on (->m (or/c 'base font-weight/c) void?))))
(define (arity-1-procedure? x)
(and (procedure? x)
(procedure-arity-includes? x 1)))
(define style-list%/c (define style-list%/c
(class/c (class/c
(basic-style (->m (is-a?/c style<%>))) (basic-style (->m (is-a?/c style<%>)))
@ -138,7 +134,7 @@
(forget-notification (->m any/c void?)) (forget-notification (->m any/c void?))
(index-to-style (->m exact-nonnegative-integer? (or/c (is-a?/c style<%>) false/c))) (index-to-style (->m exact-nonnegative-integer? (or/c (is-a?/c style<%>) false/c)))
(new-named-style (->m string? (is-a?/c style<%>) (is-a?/c style<%>))) (new-named-style (->m string? (is-a?/c style<%>) (is-a?/c style<%>)))
(notify-on-change (->m arity-1-procedure? any/c)) (notify-on-change (->m (-> (or/c (is-a?/c style<%>) false/c) any) any/c))
(number (->m exact-nonnegative-integer?)) (number (->m exact-nonnegative-integer?))
(replace-named-style (->m string? (is-a?/c style<%>) (is-a?/c style<%>))) (replace-named-style (->m string? (is-a?/c style<%>) (is-a?/c style<%>)))
(style-to-index (->m (is-a?/c style<%>) (or/c exact-nonnegative-integer? false/c))))) (style-to-index (->m (is-a?/c style<%>) (or/c exact-nonnegative-integer? false/c)))))