Welcome to the CHICKEN Scheme pasting service

negative seek added by sethalves on Thu Apr 24 18:14:33 2014

#!/usr/local/bin/csi -script

(use posix)

(let ((p (open-input-file "/etc/hosts")))
  (read-char p)
  (read-char p)
  (read-char p)
  (set-file-position! p -1 seek/cur))

---------------------------------------------------------------


Error: (set-file-position!) invalid negative port position
-1
#<input port "/etc/hosts">
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which procedure can be used to check whether its argument is a string?
Visually impaired? Let me spell it for you (wav file) download WAV