diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:33:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:33:11 +0200 |
| commit | 5d17c611cc091d88b36107bc0825f87b6513ebb4 (patch) | |
| tree | 74f5fc8035c7434f05326b2c424ab0ada4ff83ca | |
| parent | Add earlier work on timezones. (diff) | |
| download | calp-5d17c611cc091d88b36107bc0825f87b6513ebb4.tar.gz calp-5d17c611cc091d88b36107bc0825f87b6513ebb4.tar.xz | |
Remove export from util.
| -rw-r--r-- | module/util.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/util.scm b/module/util.scm index cdc6026d..2bbdc274 100644 --- a/module/util.scm +++ b/module/util.scm @@ -1,5 +1,6 @@ (define-module (util) #:use-module (srfi srfi-1) + #:use-module ((ice-9 optargs) #:select (define*-public)) #:use-module ((sxml fold) #:select (fold-values)) #:export (destructure-lambda let-multi fold-lists catch-let for-each-in @@ -230,9 +231,8 @@ ;; Takes a procedure returning multiple values, and returns a function which ;; takes the same arguments as the original procedure, but only returns one of ;; the procedures. Which procedure can be sent as an additional parameter. -(define* (unval proc #:optional (n 0)) +(define*-public (unval proc #:optional (n 0)) (lambda args (call-with-values (lambda () (apply proc args)) (lambda args (list-ref args n))))) -(export unval) |