Remove custom let*.

While it was nice, the most important part was the multi-valued let from
srfi-71 (which is implemented in srfi-71)). The minor pattern matching
structures could often be replaced with car+cdr, or a propper match.

1 files changed, 10 insertions, 10 deletions

diff --git a/tests/test/datetime.scm b/tests/test/datetime.scm
index 3435aad6..d646052d 100644
--- a/tests/test/datetime.scm
+++ b/tests/test/datetime.scm
@@ -5,12 +5,12 @@
 
 (define-module (test datetime)
   :use-module (srfi srfi-64)
+  :use-module (srfi srfi-71)
   :use-module (srfi srfi-88)
   :use-module ((srfi srfi-41)
                :select (stream->list stream-take))
   :use-module (datetime)
   :use-module ((ice-9 format) :select (format))
-  :use-module ((hnh util) :select (let*))
   :use-module ((ice-9 i18n) :select (make-locale))
   :use-module ((guile) :select (LC_CTYPE LC_TIME)))
 
@@ -164,18 +164,18 @@
          (date day: 4)
          (date day: 5)))
 
-(let* ((diff overflow
-             (time- #10:20:30
-                    #10:20:30)))
+(let ((diff overflow
+            (time- #10:20:30
+                   #10:20:30)))
   (test-equal
     "time- self"
     #00:00:00
     diff)
   (test-equal "time- self overflow" 0 overflow))
 
-(let* ((diff overflow
-             (time- #10:00:00
-                    #10:00:01)))
+(let ((diff overflow
+            (time- #10:00:00
+                   #10:00:01)))
   (test-equal
     "time- overflow 1s"
     #23:59:59
@@ -185,9 +185,9 @@
     1
     overflow))
 
-(let* ((diff overflow
-             (time- #10:00:00
-                    (time hour: (+ 48 4)))))
+(let ((diff overflow
+            (time- #10:00:00
+                   (time hour: (+ 48 4)))))
   (test-equal
     "time- overflow multiple"
     #06:00:00