set-port-position! with overflowed value causes SEGV

[Takashi Kato]

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)))

[Takashi Kato]

Added check for file port underflow of whence current case. Added overflow check for input bytevector port set position (Fixes #27)

→ <<cset 0e2768195536>>