From 3941006bf022a066499390d7f7aff99fea64aa50 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 8 Oct 2023 11:45:32 +0200 Subject: Document atomic types. --- module/hnh/util/atomic-stack.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'module') diff --git a/module/hnh/util/atomic-stack.scm b/module/hnh/util/atomic-stack.scm index 6b17724d..4e8ed871 100644 --- a/module/hnh/util/atomic-stack.scm +++ b/module/hnh/util/atomic-stack.scm @@ -19,9 +19,6 @@ (define (atomic-stack) (%atomic-stack '() (make-mutex))) -(define (stack->list stack) - (stack-contents stack)) - (define (push! value stack) (typecheck stack atomic-stack?) (with-mutex (stack-mutex stack) @@ -41,3 +38,5 @@ (stack-contents-set! stack (cdr (stack-contents stack))))))) +(define (stack->list stack) + (stack-contents stack)) -- cgit v1.2.3