level-2 finalization from ffi/unsafe and late-weak references

original commit: d2275f41794e1fe6b5e4a229a2afe08572efb111
This commit is contained in:
Matthew Flatt 2010-10-25 09:16:32 -06:00
parent eedeeae156
commit 53cf23d378
2 changed files with 5 additions and 3 deletions

View File

@ -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)

View File

@ -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"))])