From 2acb65a989d54c0ecf8bb45fd7f408b537bd5d15 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sun, 26 Jan 2020 05:03:35 +0100
Subject: Export as-{date,time}.

---
 module/srfi/srfi-19/alt/util.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module')

diff --git a/module/srfi/srfi-19/alt/util.scm b/module/srfi/srfi-19/alt/util.scm
index 9b394105..877da69f 100644
--- a/module/srfi/srfi-19/alt/util.scm
+++ b/module/srfi/srfi-19/alt/util.scm
@@ -19,12 +19,12 @@
   (stream-iterate (cut date+ <> #0-0-1)
                   start-day))
 
-(define (as-date date/-time)
+(define-public (as-date date/-time)
   (if (date? date/-time)
       date/-time
       (get-date date/-time)))
 
-(define (as-time date/-time)
+(define-public (as-time date/-time)
   (if (datetime? date/-time)
       (get-time date/-time)
       #00:00:00))
-- 
cgit v1.2.3