From 2a6f6ec35476e31d4bdb889744f442e942bf8203 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <mikael@djurfeldt.com>
Date: Wed, 14 May 2025 09:59:04 +0200
Subject: [PATCH] Add documentation for make-guardian.

* module/ice-9/guardians.scm (make-guardian): Add documentation from old
C version.
---
 module/ice-9/guardians.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/ice-9/guardians.scm b/module/ice-9/guardians.scm
index ef050475b..34e6537b9 100644
--- a/module/ice-9/guardians.scm
+++ b/module/ice-9/guardians.scm
@@ -88,6 +88,8 @@
   (values push! pop!))
 
 (define (make-guardian)
+  "Create a new guardian.  A guardian protects a set of objects from
+garbage collection, allowing a program to apply cleanup or other"
   (define-values (push! pop!) (make-atomic-fifo))
   (define (guard! obj)
     (when (heap-object? obj)