commit e3655bbd6fd0660b2c4973c221270b60ed34363a parent d92ab73b7238bc7a2cecbe6497ac67a7e258f24a Author: Yuval Langer <yuval.langer@gmail.com> Date: Sat, 4 Jan 2025 05:05:29 +0200 Comment out the r6rs rnrs imports in the tests and use r7rs scheme base. Diffstat:
| M | run-tests.scm | | | 21 | +++++++++++++++++---- |
1 file changed, 17 insertions(+), 4 deletions(-)
diff --git a/run-tests.scm b/run-tests.scm @@ -28,13 +28,26 @@ (srfi srfi-64) (srfi srfi-111) (srfi srfi-123) - (rnrs records syntactic) - (rnrs records procedural) - (rnrs records inspection) - (rnrs exceptions)) + ;; TODO: By commenting all rnrs imports and using all of (scheme + ;; base), I get only 2 failures. I am too tired to figure what is + ;; what right now. + ;; + ;; (rnrs records syntactic) + ;; (rnrs records procedural) + ;; (rnrs records inspection) + ;; (rnrs exceptions) + (scheme base) +) (define using-broken-srfi99 #f) +(define-record-type <foo> + (make-foo a b) + foo? + (a foo-a set-foo-a!) + (b foo-b set-foo-b!) + ) + (define (run-tests) (let ((runner (test-runner-create))) (parameterize ((test-runner-current runner))