conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

kinda fixes a port-position computation bug for custom binary ports.

This commit is contained in:
Abdulaziz Ghuloum 2008-07-24 22:30:21 -07:00
parent 7db56cf76e
commit f332927d23
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/ikarus.io.ss
View File

@ -250,8 +250,10 @@
[(procedure? get-position) [(procedure? get-position)
(let ([pos (get-position)]) (let ([pos (get-position)])
(if (or (fixnum? pos) (bignum? pos)) (if (or (fixnum? pos) (bignum? pos))
(+ pos index) (if (input-port? p)
(error who "invalid returned value from getter" p)))] (- pos (- ($port-size p) index))
(+ pos index))
(die who "invalid returned value from get-position" p)))]
[(eqv? get-position #f) [(eqv? get-position #f)
(+ (vector-ref pos-vec 0) index)] (+ (vector-ref pos-vec 0) index)]
[else [else

2
scheme/last-revision
View File

@ -1 +1 @@
1551 1552