From 761a2ea840a69ef38c737e7bf3328808d1a90820 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 26 Jan 2020 05:03:16 +0100 Subject: Reorder srfi-19 alt. --- module/srfi/srfi-19/alt.scm | 233 +++++++++++++++++++++++++------------------- 1 file changed, 132 insertions(+), 101 deletions(-) (limited to 'module/srfi') diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index 77b3d7d0..eda1b1f3 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -27,6 +27,11 @@ (dec december ) 12 ) + +;;; RECORD TYPES + +;;; DATE + (define-immutable-record-type (make-date year month day) date? @@ -45,6 +50,8 @@ (define*-public (date key: (year 0) (month 0) (day 0)) (make-date year month day)) +;;; TIME + (define-immutable-record-type