;;; file.scm
(set-read-syntax!
 'file
 (lambda (port)
   ##sys#current-source-filename))


;;; foo.scm
(print "this is " #!file)


;;; Usage
$ csc -s file.scm
$ csc -X file foo.scm
$ ./foo              
this is foo.scm