diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/crypto.scm | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'module/crypto.scm')
| -rw-r--r-- | module/crypto.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/crypto.scm b/module/crypto.scm index 477014e9..df71ffbb 100644 --- a/module/crypto.scm +++ b/module/crypto.scm @@ -2,6 +2,7 @@ :use-module (rnrs bytevectors) :use-module (system foreign) :use-module (ice-9 format) + :use-module (srfi srfi-88) :export (sha256 checksum->string)) (define-once libcrypto (dynamic-link "libcrypto")) @@ -30,7 +31,6 @@ ((@ (system foreign) bytevector->pointer) md)) md) -(define* (checksum->string md #:optional port) - ((@ (ice-9 format) format) port - "~{~2'0x~}" (bytevector->u8-list md))) +(define* (checksum->string md optional: port) + (format port "~{~2'0x~}" (bytevector->u8-list md))) |