如何在Racket中获得程序名？

我想通过编程在Racket代码中检测程序名。这可以通过以下方式在鸡肉计划中实现：

#!/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))

我怎样才能在球拍中模仿它呢？

这就是你想要的吗

(find-system-path 'run-file)

有关如何解析命令行，请参见

racket/cmdline

---

注意：对于这种特定的执行模式，要使库模块也可以作为主模块运行，请使用名为的主模块。看，这说明了如何做到这一点