assorted test script cleanup

Author: ar-nelson

gerbil.pkg

@@ -0,0 +1 @@
+(prelude: :scheme/r7rs)

hook.sld

@@ -13,6 +13,9 @@
     ((and (not chicken) (library (srfi 173)))
       (import (srfi 173)))
     (else
+      (cond-expand
+        ((and chicken debug) (import (only (srfi 99) define-record-type)))
+        (else))
       (begin
         (define-record-type Hook
           (list->hook arity handlers)

scripts/chicken.sh

@@ -1,2 +1,2 @@
 #!/bin/bash
-csi -R r7rs -R utf8 -qb $(find . -name '*.sld' | "$(dirname "$0")/find-dependencies.scm" "$@") "$@"
+csi -D debug -R r7rs -R utf8 -qbn $(find . -name '*.sld' | "$(dirname "$0")/find-dependencies.scm" "$@") "$@"

scripts/gerbil-compile.sh

@@ -0,0 +1,4 @@
+#!/bin/bash
+gxc -gsc-flag -:t8,f8,-8 -static \
+  $(find . -name '*.sld' | "$(dirname "$0")/../schemepunk/scripts/find-dependencies.scm" "$1")
+gxc -static -exe -o "$2" "$1"

scripts/repl-chicken.sh

@@ -0,0 +1,2 @@
+#!/bin/bash
+rlwrap csi -D debug -R r7rs -R utf8 $(find . -name '*.sld' | "$(dirname "$0")/find-dependencies.scm" $(dirname "$0")/repl.scm) "$(dirname "$0")/repl.scm"

scripts/test-chibi.sh

@@ -1,3 +1,3 @@
 #!/bin/bash
 TEST_FILES="$(echo "$@" | sort | awk '{printf "(load \"%s\") ", $0}')"
-chibi-scheme -m "(schemepunk test)" -e "(begin $TEST_FILES (end-test-runner))"
+chibi-scheme -D debug -m "(schemepunk test)" -e "(begin $TEST_FILES (end-test-runner))"

test.sld

@@ -50,15 +50,9 @@
       (import (only (kawa reflect) instance?)
               (class java.lang Exception))
       (begin
-        (define (test-error? e) (or (error-object? e) (instance? e Exception)))
+        (define (test-error? e) (instance? e Exception))
         (define (write-test-error err port)
-          (format port "Test raised error:~%~%")
-          (if (error-object? err)
-            (format port "~a~%message: ~a~%irritants: ~a"
-              err
-              (error-object-message err)
-              (error-object-irritants err))
-            (err:printStackTrace port)))))
+          (err:printStackTrace port))))
     ((library (rnrs conditions))
       (import (rnrs conditions))
       (begin