Changeset 39871 in project

Timestamp:

04/07/21 01:36:07 (2 weeks ago)

Author:

Kon Lovett

Message:

use symbol->keyword, choice is number vs date (fixnum specificity not required)

File:

• release/5/srfi-19/trunk/srfi-19-date.scm (modified) (3 diffs)

release/5/srfi-19/trunk/srfi-19-date.scm

@@ -124 +124 @@
 (include "srfi-19-common")
 
+(define (symbol->keyword sym) (string->keyword (symbol->string sym)))
+
 ;;
 
@@ -417 +419 @@
   (let (
     (tim (checked-tm:date->time 'date-adjust-duration dat tt))
-    (dur (make-duration (string->keyword (symbol->string key)) amt)) )
+    (dur (make-duration (symbol->keyword key) amt)) )
     (checked-tm:time->date 'date-adjust-duration
       (tm:add-duration tim dur (tm:as-some-time tim))
@@ -495 +497 @@
   (tm:leap-year?
     ;assume a number is a year, otherwise extract
-    (if (fixnum? dat)
+    (if (number? dat)
       dat
       (tm:date-year (check-date 'date-leap-year? dat)))) )