如何在Guile Scheme中打开相对于源文件目录的文件？

在Guile Scheme中，可以使用相对路径来打开相对于源文件目录的文件。下面是一种常见的方法：

1. 首先，使用(current-source-file)函数获取当前源文件的路径。这个函数返回一个字符串，表示当前源文件的绝对路径。
2. 使用(dirname)函数获取当前源文件所在目录的路径。这个函数接受一个路径字符串作为参数，并返回该路径的父目录路径。
3. 使用(build-path)函数将当前源文件所在目录的路径与相对路径拼接起来，得到要打开的文件的绝对路径。
4. 最后，使用(open-file)函数打开文件并进行相关操作。

下面是一个示例代码：

(use-modules (ice-9 rdelim))

(define (open-relative-file relative-path)
  (let* ((current-file (current-source-file))
         (current-dir (dirname current-file))
         (absolute-path (build-path current-dir relative-path)))
    (with-input-from-file absolute-path
      (lambda ()
        ; 在这里进行文件操作
        ))))

在这个示例中，open-relative-file函数接受一个相对路径作为参数，并将其与当前源文件所在目录的路径拼接起来，得到要打开的文件的绝对路径。然后，可以在lambda表达式中进行文件操作。

请注意，这只是一个示例，实际使用时可能需要根据具体情况进行适当的修改和调整。