From c2522466d2fcb5273004f1989b89186cd68001d7 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Wed, 14 Aug 2013 00:08:30 +0800
Subject: added gc setting built-ins

---
 test/q.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'test')

diff --git a/test/q.scm b/test/q.scm
index 36adcf8..c1915a9 100644
--- a/test/q.scm
+++ b/test/q.scm
@@ -73,3 +73,7 @@
 (define empty-bits '())
 (define res '())
 (define queen '())
+(set-gc-resolve-threshold! 0)   ; force cycle resolve
+(display "\n")
+(display (gc-status))
+
-- 
cgit v1.2.3-70-g09d2