Hi,
I'm have odd behavior inside visual selection (actually when is going to
be made comment block). In attachment is offending file.
To reproduce it, open it, got to beginning, hit CTRL-V and start to go
down (using down button). Now, the cursor will be stuck in line before
'(define (coroutine-maker proc)...' I'm not sure what is happening with
just that line, but if you skip it, selection will work without problems.
I also noticed that selection line now became only partially visible;
after reverting code to some older branch I keep for reference
(b6fc1e2c8e5d488dabd3068417faf94b768115b9), that line behaves exactly as
in vim: the first column will be always highlighted. Idea what could be
wrong?
I'm using emacs 24.1.1, daemonized in terminal.
Regards,
Sanel
(define (resume-maker update-proc!)
(lambda (next-coroutine value)
(let ([receiver (lambda (continuation)
(update-proc! continuation)
(next-coroutine value))])
(call/cc receiver))))
(define (coroutine-maker proc)
(let ([saved-continuation '()])
(let ([update-continuation! (lambda (v)
;(println "updating")
(set! saved-continuation v))])
(let ([resumer (resume-maker update-continuation!)]
[first-time #t])
(lambda (value)
(if first-time
(begin
(set! first-time #f)
(proc resumer value))
(saved-continuation value)))))))
(define ping
(let ([ping-procedure (lambda (resume value)
(println "Pinging 1")
(resume pong value)
(println "Pinging 2")
(resume pong value)
(println "Pinging 3")
(resume pong value))])
(coroutine-maker ping-procedure)))
(define pong
(let ([pong-procedure (lambda (resume value)
(println "Ponging 1")
(resume ping value)
(println "Ponging 2")
(resume ping value)
(println "Ponging 3")
(resume ping value))])
(coroutine-maker pong-procedure)))
(ping 1)
_______________________________________________
implementations-list mailing list
[email protected]
https://lists.ourproject.org/cgi-bin/mailman/listinfo/implementations-list
