New function: call-finalizers.

* gc.c (gc_call_finalizers): New function.
(gc_late_init): Register call-finalizers intrinsic.

* gc.h (gc_call_finalizers): Declared.

* txr.1: documented call-finalizers.

1 files changed, 1 insertions, 0 deletions

diff --git a/gc.h b/gc.h
index d7b00a69..183348f8 100644
--- a/gc.h
+++ b/gc.h
@@ -36,6 +36,7 @@ void gc_mark(val);
 void gc_conservative_mark(val);
 int gc_is_reachable(val);
 val gc_finalize(val obj, val fun, val rev_order_p);
+val gc_call_finalizers(val obj);
 
 #if CONFIG_GEN_GC
 val gc_set(loc, val);