program-name added by mario-goulart on Thu Mar 26 18:22:52 2015
$ cat ~/misc/foo.scm
(print (program-name))
$ ~/misc/foo
/home/mario/misc/foo
$ csi -s ~/misc/foo.scm
/home/mario/misc/foo.scm
$ cat ~/misc/foo.scm
(print (program-name))
$ ~/misc/foo
/home/mario/misc/foo
$ csi -s ~/misc/foo.scm
/home/mario/misc/foo.scm