Error with SRFI-197 reference implementation

[Retropikzel]

I'm packaging https://github.com/scheme-requests-for-implementation/srfi-197 for snow-fort and run into this issue with STklos.

srfi/197.sld, bit modified from original.

(define-library (srfi 197)
  (export chain chain-and chain-when chain-lambda nest nest-reverse)

  (import (scheme base) (srfi 2))

  (include "197.scm"))

srfi/197.scm:
wget -O srfi/197.scm https://raw.githubusercontent.com/scheme-requests-for-implementation/srfi-197/refs/heads/master/srfi-197.scm

The tests are here in full https://github.com/srfi-explorations/srfi-test/blob/retropikzel-fixes2/197.scm if the branch does not exists when trying to access then it has been merged into main branch. r7rs test programs can be built with chibi-scheme convert.scm.

Here is the first test which fails:

main.scm:

(import (scheme base)
        (srfi 197))

(chain ""
       (string-append "foo" _)
       (string-append "bar" _)
       (string-append "baz" _)
       (exclamation _))

stklos -I . main.scm
**** Error while executing command ("main.scm")
         Where: in compiler-error
        Reason: wrong type of argument '|…₂26|'. Call was (chain "" chain ... (string-append "foo" _) (string-append "bar" _) (string-append "baz" _) (exclamation _))

I tried changing the …₂ and such to ell1 and ell2 but it did not help.

Running full tests:

git clone https://github.com/srfi-explorations/srfi-test.git --branch=retropikzel-fixes2
cd srfi-test
chibi-scheme convert.scm
cd ..
stklos -I srfi-test/r7rs-programs/197.scm

[jpellegrini]

I believe I tried to add that one to STklos, and that didn't work because STklos still doesn't implement the full syntax-rules system. Specifically, there are some issues with nested macros due to glitches in how lexical scope works for them.