将数据写入scheme中不存在的文件（通过程序创建后）

我制作了一个简单的程序，将文本写入现有文件：

；；写入现有文件

(define write-to-a-file
  (lambda (path txt)
    (call-with-output-file path
      (lambda (output-port)
        (write txt output-port)))))

---

但是我想修改它，这样，如果文件不存在，就应该创建它。如果该文件存在，则该文件应写入该文件，而不删除该文件以前的内容。我在写鸡肉计划。有什么好主意吗？

试试这个换鸡计划：

(define (write-to-a-file path txt)
  (call-with-output-file path
    (lambda (output-port)
      (write txt output-port))
    #:append))

或者这是球拍：

(define (write-to-a-file path txt)
  (call-with-output-file path
    (lambda (output-port)
      (write txt output-port))
    #:exists 'append))

---

非常感谢您的帮助，我知道我应该使用append，但不知道正确的语法。