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

.

Browse Source 
original commit: a0885b759a36fad402d0465d5bd336bb3736fffa
This commit is contained in:
Matthew Flatt 2004-05-18 16:11:58 +00:00
parent 7b5f5f310f
commit 14e2221c2e
1 changed files with 23 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
collects/mred/mred.ss
View File

@ -7576,34 +7576,27 @@
[next?
(next-snip to-str)]
[snip
(let-values ([(the-snip alt-size) (snip-filter snip)])
(cons
alt-size
(lambda (file line col ppos)
(if (is-a? the-snip wx:snip%)
(if (is-a? the-snip readable-snip<%>)
(with-handlers ([special-comment?
(lambda (exn)
;; implies "done"
(next-snip empty-string)
(raise exn))]
[void
(lambda (exn)
;; Give up after an exception
(next-snip empty-string)
(raise exn))])
(let-values ([(val size done?)
(send the-snip read-one-special pos file line col ppos)])
(if done?
(next-snip empty-string)
(set! pos (add1 pos)))
val))
(begin
(next-snip empty-string)
(send the-snip copy)))
(begin
(next-snip empty-string)
the-snip)))))]
(let ([the-snip (snip-filter snip)])
(lambda (file line col ppos)
(if (is-a? the-snip wx:snip%)
(if (is-a? the-snip readable-snip<%>)
(with-handlers ([void
(lambda (exn)
;; Give up after an exception
(next-snip empty-string)
(raise exn))])
(let-values ([(val done?)
(send the-snip read-one-special pos file line col ppos)])
(if done?
(next-snip empty-string)
(set! pos (add1 pos)))
val))
(begin
(next-snip empty-string)
(send the-snip copy)))
(begin
(next-snip empty-string)
the-snip))))]
[else eof]))]
[close (lambda () (void))]
[port (make-input-port/read-to-peek
@ -7621,7 +7614,7 @@
(semaphore-peek-evt lock-semaphore)
(lambda (x) 0)))))
(lambda (s skip general-peek)
(let ([v (peek-bytes-avail!* s skip pipe-r)])
(let ([v (peek-bytes-avail!* s skip #f pipe-r)])
(if (zero? v)
(general-peek s skip)
v)))
@ -7639,7 +7632,7 @@
(port-count-lines! port)
port)))))]
[(text start end filter) (open-input-text-editor text start end filter text)]
[(text start end) (open-input-text-editor text start end (lambda (x) (values x 1)))]
[(text start end) (open-input-text-editor text start end (lambda (x) x))]
[(text start) (open-input-text-editor text start 'end)]
[(text) (open-input-text-editor text 0 'end)]))