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

.

Browse Source 
original commit: 78d58a3704ab38aed0d87e184e3402fe23d83b7d
This commit is contained in:
Matthew Flatt 2004-10-02 02:49:00 +00:00
parent 04768213fe
commit 24eaaef549
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -7633,7 +7633,7 @@
(define readable-snip<%> (define readable-snip<%>
(interface () (interface ()
read-one-special)) read-special))
(define empty-string (make-bytes 0)) (define empty-string (make-bytes 0))
@ -7678,7 +7678,6 @@
[get-count-generic (generic wx:snip% get-count)] [get-count-generic (generic wx:snip% get-count)]
[next-generic (generic wx:snip% next)] [next-generic (generic wx:snip% next)]
[next? #f] [next? #f]
[pos 0]
[lock-semaphore (make-semaphore 1)] [lock-semaphore (make-semaphore 1)]
[update-str-to-snip [update-str-to-snip
(lambda (to-str) (lambda (to-str)
@ -7703,7 +7702,6 @@
[next-snip [next-snip
(lambda (to-str) (lambda (to-str)
(set! snip (send-generic snip next-generic)) (set! snip (send-generic snip next-generic))
(set! pos 0)
(update-str-to-snip to-str))] (update-str-to-snip to-str))]
[read-chars (lambda (to-str) [read-chars (lambda (to-str)
(cond (cond
@ -7715,9 +7713,7 @@
(lambda (file line col ppos) (lambda (file line col ppos)
(if (is-a? the-snip wx:snip%) (if (is-a? the-snip wx:snip%)
(if (is-a? the-snip readable-snip<%>) (if (is-a? the-snip readable-snip<%>)
(let-values ([(val done?) (send the-snip read-special file line col ppos)
(send the-snip read-one-special pos file line col ppos)])
val)
(send the-snip copy)) (send the-snip copy))
the-snip)))] the-snip)))]
[else eof]))] [else eof]))]