guile-srfi-123

commit c14c331f1becc5aebffec8de45b00699a519ebb6
parent de58af9bf2514f44a8ec5321bba6005208a92e90
Author: Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
Date:   Sat,  5 Sep 2015 13:34:30 +0200

Code only: add s16vector stub in test suite.

Especially Larceny can't deal with it at all when the variable is
unbound, even if the code referencing it is never executed.

Diffstat:
M
tests/srfi-123.sld
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/tests/srfi-123.sld b/tests/srfi-123.sld
@@ -42,7 +42,10 @@
   (cond-expand
    ((library (srfi 4))
     (import (srfi 4)))
-   (else))
+   (else
+    (begin
+      ;; Stub to silence compilers.
+      (define s16vector #f))))
   (begin
 
     (define-record-type <foo> (make-foo a b) foo?