Bump version to 1.7 - new release for utf8 fixes.

src/texts.scm

@@ -39,7 +39,7 @@
 	 (chicken format))
 
  ;; Short banner
- (define banner-line "HackerBase 1.6.99 (c) 2023 Brmlab, z.s.")
+ (define banner-line "HackerBase 1.7 (c) 2023 Brmlab, z.s.")
 
  ;; Banner source with numbers for ANSI CSI SGR
  (define banner-source "

src/util-time.scm

@@ -25,8 +25,12 @@
 
 (declare (unit util-time))
 
+;;; # Utilities
+
 (module
  util-time
+
+ ;;; Test
  (
   current-util-milliseconds
   seconds->iso-date-string
@@ -38,7 +42,7 @@
 	 (chicken time posix)
 	 (chicken format))
 
- ;; Compatibility wrapper
+ ;;; Compatibility wrapper
  (define (current-util-milliseconds)
    (cond-expand
     (chicken-5.0
@@ -50,7 +54,7 @@
     (else
      (current-process-milliseconds))))
 
- ;; Converts seconds since epoch to ISO date string
+ ;;; Converts seconds since epoch to ISO date string
  (define (seconds->iso-date-string . args)
    (let ((d (apply seconds->local-time args)))
      (format "~A-~A-~A"
@@ -65,7 +69,7 @@
 	       (+ 100 (vector-ref d 3)))
 	      1))))
 
- ;; Returns today as YYYY-MM-DD string
+ ;;; Returns today as YYYY-MM-DD string
  (define (today/iso)
    (seconds->iso-date-string))