racket/snip: fix bug in splitting string snips
original commit: f02bfbd11ea71b6e0afcd1424da754f2bdea764b
This commit is contained in:
parent
ba6fab5e8e
commit
8fc5cc6f7e
|
@ -649,6 +649,16 @@
|
||||||
(unless (<= 0 count2 (/ N 2))
|
(unless (<= 0 count2 (/ N 2))
|
||||||
(error 'notifications "not weak enough? ~e" count2)))
|
(error 'notifications "not weak enough? ~e" count2)))
|
||||||
|
|
||||||
|
;; ----------------------------------------
|
||||||
|
;; make sure splitting a large string snip works:
|
||||||
|
|
||||||
|
(void
|
||||||
|
(send (make-object string-snip% (make-string 100000 #\a))
|
||||||
|
split
|
||||||
|
50000
|
||||||
|
(box #f)
|
||||||
|
(box #f)))
|
||||||
|
|
||||||
;; ----------------------------------------
|
;; ----------------------------------------
|
||||||
;; No #<unsafe-undefined> checks on certain class instances
|
;; No #<unsafe-undefined> checks on certain class instances
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user