diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-08 11:45:32 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-08 11:45:32 +0200 |
commit | 3941006bf022a066499390d7f7aff99fea64aa50 (patch) | |
tree | fadba9d27c2d688c76a056ac0bef9e5214f1209e /module/hnh/util/atomic-stack.scm | |
parent | Further rewrite of testrunner. (diff) | |
download | calp-3941006bf022a066499390d7f7aff99fea64aa50.tar.gz calp-3941006bf022a066499390d7f7aff99fea64aa50.tar.xz |
Document atomic types.
Diffstat (limited to 'module/hnh/util/atomic-stack.scm')
-rw-r--r-- | module/hnh/util/atomic-stack.scm | 5 |
1 files changed, 2 insertions, 3 deletions
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)) |