diff options
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)) |