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