From 2c67dfff745ab6d53d5fdcce9338e46b2da567f4 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Sat, 18 Feb 2023 00:06:38 -0500
Subject: Do not use and-let* in tests.

There are issues with using it in R7RS mode in Gerbil.

Add Guile test file
---
 test/chibi.scm  | 3 +--
 test/gauche.scm | 1 -
 test/guile.scm  | 9 +++++++++
 test/run.scm    | 2 +-
 4 files changed, 11 insertions(+), 4 deletions(-)
 create mode 100644 test/guile.scm

(limited to 'test')

diff --git a/test/chibi.scm b/test/chibi.scm
index ba1bb54..4b72d90 100644
--- a/test/chibi.scm
+++ b/test/chibi.scm
@@ -1,7 +1,6 @@
 (import (scheme base)
 	(scheme case-lambda)
-	(except (chibi test) test-equal)
-	(srfi 2))
+	(except (chibi test) test-equal))
 
 (import (zambyte meta json))
 
diff --git a/test/gauche.scm b/test/gauche.scm
index d9af396..869e348 100644
--- a/test/gauche.scm
+++ b/test/gauche.scm
@@ -1,6 +1,5 @@
 (import (scheme base)
 	(scheme case-lambda)
-	(srfi 2)
 	(srfi 64))
 
 (import (zambyte meta json))
diff --git a/test/guile.scm b/test/guile.scm
new file mode 100644
index 0000000..be949b7
--- /dev/null
+++ b/test/guile.scm
@@ -0,0 +1,9 @@
+(import (scheme base)
+	(scheme case-lambda)
+	(srfi 64))
+
+(import (zambyte meta json))
+
+(test-begin "guile")
+(include "run.scm")
+(test-end "guile")
diff --git a/test/run.scm b/test/run.scm
index 6d72f46..416c0f4 100644
--- a/test/run.scm
+++ b/test/run.scm
@@ -217,7 +217,7 @@
     (point? (line-segment->start ls))))
 
 (test-assert "nested records should be able to round trip to a string"
-  (and-let* ((p1 (point 1 2))
+  (let* ((p1 (point 1 2))
 	     (p2 (point 3 4))
 	     (ls (line-segment p1 p2))
 	     (str (json->string ls))
-- 
cgit