set-port-position! with overflowed value causes SEGV

Create issue
Issue #27 resolved
Takashi Kato repo owner created an issue

This should either return "hello world" or raise an error but SEGV.

(import (rnrs))

(call-with-port (open-bytevector-input-port (string->utf8 "hello world"))
 (lambda (in)
   (set-port-position! in 100)
   (print (get-bytevector-all in))
   (set-port-position! in 0)
   (get-bytevector-all in)))

Comments (1)

  1. Log in to comment