From 73cf8eeb8a90749df961a3a4d0e3940205474424 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 20 Apr 2019 21:43:29 +0200 Subject: Remove remaining export's. --- module/vcalendar/recurrence/internal.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'module/vcalendar/recurrence/internal.scm') diff --git a/module/vcalendar/recurrence/internal.scm b/module/vcalendar/recurrence/internal.scm index caa6ccca..7a81b2db 100644 --- a/module/vcalendar/recurrence/internal.scm +++ b/module/vcalendar/recurrence/internal.scm @@ -1,5 +1,6 @@ (define-module (vcalendar recurrence internal) #:use-module (util) + #:use-module ((ice-9 optargs) #:select (define*-public)) #:use-module (srfi srfi-88) #:export (make-recur-rule weekdays intervals)) @@ -17,7 +18,7 @@ ;; TODO make this part of define-quick-record. ;; Only "hard" part would be to provide type hints for fields for ;; string conversions. -(define (format-recur-rule r) +(define-public (format-recur-rule r) (define (a f) ((record-accessor f) r)) (with-output-to-string @@ -34,11 +35,9 @@ (a field))))) (record-type-fields ))))) -(define* (print-recur-rule r #:optional (port (current-output-port))) +(define*-public (print-recur-rule r #:optional (port (current-output-port))) (display (format-recur-rule r) port)) -(export format-recur-rule print-recur-rule) - (define weekdays '(SU MO TU WE TH FR SA)) -- cgit v1.2.3