From 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Jun 2022 04:14:46 +0200
Subject: Normalize keyword syntax.

---
 module/crypto.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'module/crypto.scm')

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)))
 
-- 
cgit v1.2.3