我创建了一个提供各种函数的模块，包括#%module-begin。我想将其与 at-exp 语法一起使用，我可以使用以下 #lang 行来完成：
#lang at-exp s-exp "my-library.rkt"
但是，这不会将未知符号读取为字符串，例如在使用涂鸦/文本语言时会发生这种情况。如何从我的库中提供此功能，以节省我在所有字符串周围写引号的时间？
我认为这可能与#%top函数有关。也许我可以以某种方式从涂鸦/文本中要求它，然后从我的库中提供它？
scribble/text的作用是，它以"文本"模式开始读取文件，而at-exp以"球拍"模式开始读取文件。弄乱#%top不是你想要的。要执行与 scribble/text 相同的操作，您需要一个以文本模式启动的at-exp版本。不过，这还不存在。
从scribble/reader read-syntax-inside的函数执行此操作。但是，您必须定义自己的#lang使用它的语言。为此，您可能会发现此文档很有帮助，但没有快速的答案。
更新：
我查看了scribble/text的实现，答案似乎比我想象的要快得多。这样的事情应该有效：
my-library/lang/reader.rkt ：
#lang s-exp syntax/module-reader
my-library/main
#:read scribble:read-inside
#:read-syntax scribble:read-syntax-inside
#:whole-body-readers? #t
#:info (scribble-base-reader-info)
(require (prefix-in scribble: scribble/reader)
(only-in scribble/base/reader scribble-base-reader-info))
测试它：
#lang my-library
This is text
@(list 'but 'this 'is 'not)
我对此进行了测试，my-library/main.rkt重新提供racket/base中的所有内容。