glut: unexpected exit on (use glut)

[Mario Domenech Goulart]

Steps to reproduce:

$ DISPLAY= csi -e '(use glut)'
freeglut (csi): failed to open display ''
$ echo $?
1

If I understand correctly, there's no way to easily/cleanly handle that failure in scheme code.

Maybe glut should provide an initialization procedure that should be explicitly called and raise an exception on failure (so that it can be handled)?