level-2 finalization from ffi/unsafe and late-weak references
original commit: d2275f41794e1fe6b5e4a229a2afe08572efb111
This commit is contained in:
parent
eedeeae156
commit
53cf23d378
|
@ -30,7 +30,7 @@
|
|||
(tell
|
||||
(let ([c (tell (tell NSCell alloc) initTextCell: #:type _NSString
|
||||
(if wx (send wx get-row row) "???"))]
|
||||
[font (send wx get-cell-font)])
|
||||
[font (and wx (send wx get-cell-font))])
|
||||
(when font
|
||||
(tellv c setFont: font))
|
||||
c)
|
||||
|
|
|
@ -4,7 +4,7 @@
|
|||
|
||||
(define source-dir (current-load-relative-directory))
|
||||
|
||||
(define num-times 8)
|
||||
(define num-times 80)
|
||||
(define num-threads 3)
|
||||
|
||||
(define dump-stats? #f)
|
||||
|
@ -152,6 +152,7 @@
|
|||
|
||||
(when (and edit? insert?)
|
||||
(let ([e edit])
|
||||
(send e begin-edit-sequence)
|
||||
(when load-file?
|
||||
(send e load-file (build-path source-dir "mem.ss")))
|
||||
(let loop ([i 20])
|
||||
|
@ -163,7 +164,8 @@
|
|||
(send e insert s))
|
||||
(send e insert #\newline)
|
||||
(send e insert "done")
|
||||
(send e set-modified #f)))
|
||||
(send e set-modified #f)
|
||||
(send e end-edit-sequence)))
|
||||
|
||||
(when menus?
|
||||
(let ([f (remember tag (make-object frame% "MB Frame 0"))])
|
||||
|
|
Loading…
Reference in New Issue
Block a user