fix chicken build, support STKLOS

2 files changed, 7 insertions, 1 deletions

diff --git a/tests/impl.scm b/tests/impl.scm
index 6e15c11..0047e34 100644
--- a/tests/impl.scm
+++ b/tests/impl.scm
@@ -404,6 +404,9 @@
 (test-group "expect-to-fail"
   (expect-to-fail
     (test-body "1 = 2" (eqv? 1 2))
-    (test-body "type error" (car '()))))
+    (cond-expand
+      ;; SKINT will actually raise a noncatchable error here!
+      ((not skint) (test-body "type error" (car '())))
+      (else #f))))
 
 (test-exit)
diff --git a/tests/skint.sh b/tests/skint.sh
new file mode 100755
index 0000000..eff5d86
--- /dev/null
+++ b/tests/skint.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+skint -A "../lib"  run.scm