add chibi

4 files changed, 16 insertions, 1 deletions

diff --git a/README.md b/README.md
index 8067893..90d0bc5 100644
--- a/README.md
+++ b/README.md
@@ -1,5 +1,7 @@
 # Conspire
 
+TODO: pretty printing
+
 Conspire is an experiment in providing a portable R6RS/R7RS testing
 library. It uses purely functional data structures in a mutable parameter
 object, allowing for procedural programming inside of a dynamic extent
@@ -199,3 +201,6 @@ work out of the box. Test bodies cannot return multiple values.
 
 [SRFI-225]: https://github.com/scheme-requests-for-implementation/srfi-225
 
+### Chibi
+
+You will need `srfi-225`.
diff --git a/lib/conspire.sld b/lib/conspire.sld
index 7f8e0ed..ec31053 100644
--- a/lib/conspire.sld
+++ b/lib/conspire.sld
@@ -62,6 +62,9 @@
     (foment (import (srfi 18))
             (include "r7rs-srfi-18.scm")
             (include-library-declarations "rewriters.foment.scm"))
+    (chibi (import (srfi 18))
+           (include "r7rs-srfi-18.scm")
+           (include-library-declarations "rewriters.r7rs.scm"))
     (else (include "r7rs-single-threaded.scm")
           (include-library-declarations "rewriters.r7rs.scm")))
   (include "conspire.scm"))
\ No newline at end of file
diff --git a/lib/r7rs-single-threaded.scm b/lib/r7rs-single-threaded.scm
index fe57187..efa91c9 100644
--- a/lib/r7rs-single-threaded.scm
+++ b/lib/r7rs-single-threaded.scm
@@ -24,4 +24,8 @@
   (make-test-info dto dict)
   test-info?
   (dto test-info-dto)
-  (dict test-info-dict set-test-info-dict!))
\ No newline at end of file
+  (dict test-info-dict set-test-info-dict!))
+
+(define (mutex-lock! x) #f)
+(define (mutex-unlock! x) #f)
+
diff --git a/tests/chibi.sh b/tests/chibi.sh
new file mode 100755
index 0000000..6f77933
--- /dev/null
+++ b/tests/chibi.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+chibi-scheme -A "../lib" -A "../compat/srfi-225" -l run.scm