How do I get the program name in Racket?

Question

I would like to programmatically detect the program name within Racket code. This can be done in Chicken Scheme with:

#!/bin/sh
#|
exec csi -ss $0 ${1+"$@"}
exit
|#

(define (main)
    (display (format "Program: ~a\n" (program-name)))
    (exit))

(if (not (equal? (program-name) "csi"))
    (main))

How could I emulate this in Racket?

Answer 1

Is this what you want?

(find-system-path 'run-file)

See also racket/cmdline for how to parse the commandline.

http://docs.racket-lang.org/reference/Command-Line_Parsing.html

Answer 2

Note: for this particular pattern of execution, to have a library module that can also be run as a main, use a submodule named main. See Main and Test Submodules, which shows how to do this.