aboutsummaryrefslogtreecommitdiff
path: root/module/srfi/srfi-19/setters.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/srfi/srfi-19/setters.scm')
-rw-r--r--module/srfi/srfi-19/setters.scm15
1 files changed, 15 insertions, 0 deletions
diff --git a/module/srfi/srfi-19/setters.scm b/module/srfi/srfi-19/setters.scm
new file mode 100644
index 00000000..45876382
--- /dev/null
+++ b/module/srfi/srfi-19/setters.scm
@@ -0,0 +1,15 @@
+(define-module (srfi srfi-19 setters)
+ #:use-module (srfi srfi-19) ; Date/Time
+ ;; (record-type-fields (@@ (srfi srfi-19) date))
+ #:export (nanosecond second minute hour day month year zone-offset))
+
+
+(define nanosecond (make-procedure-with-setter date-nanosecond (@@ (srfi srfi-19) set-date-nanosecond!)))
+(define second (make-procedure-with-setter date-second (@@ (srfi srfi-19) set-date-second!)))
+(define minute (make-procedure-with-setter date-minute (@@ (srfi srfi-19) set-date-minute!)))
+(define hour (make-procedure-with-setter date-hour (@@ (srfi srfi-19) set-date-hour!)))
+(define day (make-procedure-with-setter date-day (@@ (srfi srfi-19) set-date-day!)))
+(define month (make-procedure-with-setter date-month (@@ (srfi srfi-19) set-date-month!)))
+(define year (make-procedure-with-setter date-year (@@ (srfi srfi-19) set-date-year!)))
+(define zone-offset (make-procedure-with-setter date-zone-offset (@@ (srfi srfi-19) set-date-zone-offset!)))
+