SRFI-25 reference implementation doesn't run

[jcubic]

Tried to load:

(load "https://srfi.schemers.org/srfi-25/srfi-25-reference.scm")

(make-array (shape 0 4 0 4))

Got error:

Expecting number got undefined in expression `-` (argument 2)
in macro:
  ((else =>) ((case (key ...) clauses ...) (let ((atom-key (key ...))) (case atom-key clauses ...))) ((case key (else => result)) (result key)) ((case key (else result1 result2 ...)) (begin result1 result2 ...)) ((ca
se key ((atoms ...) => result)) (if (memv key (quote (atoms ...))) (result key))) ((case key ((atoms ...) => result) clause clauses ...) (if (memv key (quote (atoms ...))) (result key) (case key clause clauses ...)))
 ((case key ((atoms ...) result1 result2 ...)) (if (memv key (quote (atoms ...))) (begin result1 result2 ...))) ((case key ((atoms ...) result1 result2 ...) clause clauses ...) (if (memv key (quote (atoms ...))) (beg
in result1 result2 ...) (case key clause clauses ...))))
in macro:
  ((else =>) ((case (key ...) clauses ...) (let ((atom-key (key ...))) (case atom-key clauses ...))) ((case key (else => result)) (result key)) ((case key (else result1 result2 ...)) (begin result1 result2 ...)) ((ca
se key ((atoms ...) => result)) (if (memv key (quote (atoms ...))) (result key))) ((case key ((atoms ...) => result) clause clauses ...) (if (memv key (quote (atoms ...))) (result key) (case key clause clauses ...)))
 ((case key ((atoms ...) result1 result2 ...)) (if (memv key (quote (atoms ...))) (begin result1 result2 ...))) ((case key ((atoms ...) result1 result2 ...) clause clauses ...) (if (memv key (quote (atoms ...))) (beg
in result1 result2 ...) (case key clause clauses ...))))
in macro:
  ((else =>) ((case (key ...) clauses ...) (let ((atom-key (key ...))) (case atom-key clauses ...))) ((case key (else => result)) (result key)) ((case key (else result1 result2 ...)) (begin result1 result2 ...)) ((ca
se key ((atoms ...) => result)) (if (memv key (quote (atoms ...))) (result key))) ((case key ((atoms ...) => result) clause clauses ...) (if (memv key (quote (atoms ...))) (result key) (case key clause clauses ...)))
 ((case key ((atoms ...) result1 result2 ...)) (if (memv key (quote (atoms ...))) (begin result1 result2 ...))) ((case key ((atoms ...) result1 result2 ...) clause clauses ...) (if (memv key (quote (atoms ...))) (beg
in result1 result2 ...) (case key clause clauses ...))))

I was able to run the code only in Chicken Scheme.

Tested with:

• Kawa
• Gamit
• Gauche They were not even able to load the file.

It also works in Biwascheme after defining exact?:

(define (exact? x) (= (mod x 1) 0))

[jcubic]

The problem is do macro. This should evaluate to 1, but it evaluates to 0:

((do ((f (lambda () 0)
        (lambda () j))
     (j 2 (- j 1)))
    ((= j 0) f)))