diff options
| author |  Peter McGoron
| 2024-12-31 13:04:43 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2024-12-31 13:04:43 -0500 |
| commit | 2ff4637b88368a5119a02c94ff4cec7015723404 (patch) | |
| tree | cd0e47c7ec5c1fa3d87deb64d18d2df0be687e85 /mcgoron.cond-thunk.values.scm | |
| parent | documentation (diff) | |
fix length=>
Diffstat (limited to '')
| -rw-r--r-- | mcgoron.cond-thunk.values.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mcgoron.cond-thunk.values.scm b/mcgoron.cond-thunk.values.scm index feb345b..2daffdb 100644 --- a/mcgoron.cond-thunk.values.scm +++ b/mcgoron.cond-thunk.values.scm @@ -87,8 +87,9 @@ (define (length=> whole-list num) (list-length-destructor whole-list num (lambda (_ rest) - (when-ct (null? rest) - (apply values whole-list))))) + (cond-values + (when-ct (null? rest) + (apply values whole-list)))))) (define-syntax define-record-type/destructor (syntax-rules () |