cond-expand errors when checking SRFI's

[Retropikzel]

git log first item:

commit 8c73d83b28d9a19788cd110a46eee39061b80417 (HEAD -> master, origin/master, origin/HEAD)
Author: Erick Gallesio <eg@stklos.net>
Date:   Fri Nov 28 19:56:21 2025 +0100

    Lower the value of the wait in the test of SRFI-216

First erroring code:

(import (scheme base) (scheme write))

(define srfis (list (cond-expand (srfi-175 175) (else #f))))
(write srfis)
(newline)

Output:

**** Error while executing command ("main.scm")
         Where: in compiler-error
        Reason: module 'srfi/175' already loaded. Call was (cond-expand (srfi-175 175) (else #f))

Second erroring code:

(import (scheme base) (scheme write))

(define srfis (list
  (cond-expand (srfi-0 0) (else #f))
  (cond-expand (srfi-1 1) (else #f))
  (cond-expand (srfi-2 2) (else #f))
  (cond-expand (srfi-3 3) (else #f))
  (cond-expand (srfi-4 4) (else #f))
  (cond-expand (srfi-5 5) (else #f))
  (cond-expand (srfi-6 6) (else #f))
  (cond-expand (srfi-7 7) (else #f))
  (cond-expand (srfi-8 8) (else #f))
  (cond-expand (srfi-9 9) (else #f))
  (cond-expand (srfi-10 10) (else #f))
  (cond-expand (srfi-11 11) (else #f))
  (cond-expand (srfi-12 12) (else #f))
  (cond-expand (srfi-13 13) (else #f))
  (cond-expand (srfi-14 14) (else #f))
  (cond-expand (srfi-15 15) (else #f))
  (cond-expand (srfi-16 16) (else #f))
  (cond-expand (srfi-17 17) (else #f))
  (cond-expand (srfi-18 18) (else #f))
  (cond-expand (srfi-19 19) (else #f))
  (cond-expand (srfi-20 20) (else #f))
  (cond-expand (srfi-21 21) (else #f))
  (cond-expand (srfi-22 22) (else #f))
  (cond-expand (srfi-23 23) (else #f))
  (cond-expand (srfi-24 24) (else #f))
  (cond-expand (srfi-25 25) (else #f))
  (cond-expand (srfi-26 26) (else #f))
  (cond-expand (srfi-27 27) (else #f))
  (cond-expand (srfi-28 28) (else #f))
  (cond-expand (srfi-29 29) (else #f))
  (cond-expand (srfi-30 30) (else #f))
  (cond-expand (srfi-31 31) (else #f))
  (cond-expand (srfi-32 32) (else #f))
  (cond-expand (srfi-33 33) (else #f))
  (cond-expand (srfi-34 34) (else #f))
  (cond-expand (srfi-35 35) (else #f))
  (cond-expand (srfi-36 36) (else #f))
  (cond-expand (srfi-37 37) (else #f))
  (cond-expand (srfi-38 38) (else #f))
  (cond-expand (srfi-39 39) (else #f))
  (cond-expand (srfi-40 40) (else #f))
  (cond-expand (srfi-41 41) (else #f))
  (cond-expand (srfi-42 42) (else #f))
  (cond-expand (srfi-43 43) (else #f))
  (cond-expand (srfi-44 44) (else #f))
  (cond-expand (srfi-45 45) (else #f))
  (cond-expand (srfi-46 46) (else #f))
  (cond-expand (srfi-47 47) (else #f))
  (cond-expand (srfi-48 48) (else #f))
  (cond-expand (srfi-49 49) (else #f))
  (cond-expand (srfi-50 50) (else #f))
  (cond-expand (srfi-51 51) (else #f))
  (cond-expand (srfi-52 52) (else #f))
  (cond-expand (srfi-53 53) (else #f))
  (cond-expand (srfi-54 54) (else #f))
  (cond-expand (srfi-55 55) (else #f))
  (cond-expand (srfi-56 56) (else #f))
  (cond-expand (srfi-57 57) (else #f))
  (cond-expand (srfi-58 58) (else #f))
  (cond-expand (srfi-59 59) (else #f))
  (cond-expand (srfi-60 60) (else #f))
  (cond-expand (srfi-61 61) (else #f))
  (cond-expand (srfi-62 62) (else #f))
  (cond-expand (srfi-63 63) (else #f))
  (cond-expand (srfi-64 64) (else #f))
  (cond-expand (srfi-65 65) (else #f))
  (cond-expand (srfi-66 66) (else #f))
  (cond-expand (srfi-67 67) (else #f))
  (cond-expand (srfi-68 68) (else #f))
  (cond-expand (srfi-69 69) (else #f))
  (cond-expand (srfi-70 70) (else #f))
  (cond-expand (srfi-71 71) (else #f))
  (cond-expand (srfi-72 72) (else #f))
  (cond-expand (srfi-73 73) (else #f))
  (cond-expand (srfi-74 74) (else #f))
  (cond-expand (srfi-75 75) (else #f))
  (cond-expand (srfi-76 76) (else #f))
  (cond-expand (srfi-77 77) (else #f))
  (cond-expand (srfi-78 78) (else #f))
  (cond-expand (srfi-79 79) (else #f))
  (cond-expand (srfi-80 80) (else #f))
  (cond-expand (srfi-81 81) (else #f))
  (cond-expand (srfi-82 82) (else #f))
  (cond-expand (srfi-83 83) (else #f))
  (cond-expand (srfi-84 84) (else #f))
  (cond-expand (srfi-85 85) (else #f))
  (cond-expand (srfi-86 86) (else #f))
  (cond-expand (srfi-87 87) (else #f))
  (cond-expand (srfi-88 88) (else #f))
  (cond-expand (srfi-89 89) (else #f))
  (cond-expand (srfi-90 90) (else #f))
  (cond-expand (srfi-91 91) (else #f))
  (cond-expand (srfi-92 92) (else #f))
  (cond-expand (srfi-93 93) (else #f))
  (cond-expand (srfi-94 94) (else #f))
  (cond-expand (srfi-95 95) (else #f))
  (cond-expand (srfi-96 96) (else #f))
  (cond-expand (srfi-97 97) (else #f))
  (cond-expand (srfi-98 98) (else #f))
  (cond-expand (srfi-99 99) (else #f))
  (cond-expand (srfi-100 100) (else #f))
  (cond-expand (srfi-101 101) (else #f))
  (cond-expand (srfi-102 102) (else #f))
  (cond-expand (srfi-103 103) (else #f))
  (cond-expand (srfi-104 104) (else #f))
  (cond-expand (srfi-105 105) (else #f))
  (cond-expand (srfi-106 106) (else #f))
  (cond-expand (srfi-107 107) (else #f))
  (cond-expand (srfi-108 108) (else #f))
  (cond-expand (srfi-109 109) (else #f))
  (cond-expand (srfi-110 110) (else #f))
  (cond-expand (srfi-111 111) (else #f))
  (cond-expand (srfi-112 112) (else #f))
  (cond-expand (srfi-113 113) (else #f))
  (cond-expand (srfi-114 114) (else #f))
  (cond-expand (srfi-115 115) (else #f))
  (cond-expand (srfi-116 116) (else #f))
  (cond-expand (srfi-117 117) (else #f))
  (cond-expand (srfi-118 118) (else #f))
  (cond-expand (srfi-119 119) (else #f))
  (cond-expand (srfi-120 120) (else #f))
  (cond-expand (srfi-121 121) (else #f))
  (cond-expand (srfi-122 122) (else #f))
  (cond-expand (srfi-123 123) (else #f))
  (cond-expand (srfi-124 124) (else #f))
  (cond-expand (srfi-125 125) (else #f))
  (cond-expand (srfi-126 126) (else #f))
  (cond-expand (srfi-127 127) (else #f))
  (cond-expand (srfi-128 128) (else #f))
  (cond-expand (srfi-129 129) (else #f))
  (cond-expand (srfi-130 130) (else #f))
  (cond-expand (srfi-131 131) (else #f))
  (cond-expand (srfi-132 132) (else #f))
  (cond-expand (srfi-133 133) (else #f))
  (cond-expand (srfi-134 134) (else #f))
  (cond-expand (srfi-135 135) (else #f))
  (cond-expand (srfi-136 136) (else #f))
  (cond-expand (srfi-137 137) (else #f))
  (cond-expand (srfi-138 138) (else #f))
  (cond-expand (srfi-139 139) (else #f))
  (cond-expand (srfi-140 140) (else #f))
  (cond-expand (srfi-141 141) (else #f))
  (cond-expand (srfi-142 142) (else #f))
  (cond-expand (srfi-143 143) (else #f))
  (cond-expand (srfi-144 144) (else #f))
  (cond-expand (srfi-145 145) (else #f))
  (cond-expand (srfi-146 146) (else #f))
  (cond-expand (srfi-147 147) (else #f))
  (cond-expand (srfi-148 148) (else #f))
  (cond-expand (srfi-149 149) (else #f))
  (cond-expand (srfi-150 150) (else #f))
  (cond-expand (srfi-151 151) (else #f))
  (cond-expand (srfi-152 152) (else #f))
  (cond-expand (srfi-153 153) (else #f))
  (cond-expand (srfi-154 154) (else #f))
  (cond-expand (srfi-155 155) (else #f))
  (cond-expand (srfi-156 156) (else #f))
  (cond-expand (srfi-157 157) (else #f))
  (cond-expand (srfi-158 158) (else #f))
  (cond-expand (srfi-159 159) (else #f))
  (cond-expand (srfi-160 160) (else #f))
  (cond-expand (srfi-161 161) (else #f))
  (cond-expand (srfi-162 162) (else #f))
  (cond-expand (srfi-163 163) (else #f))
  (cond-expand (srfi-164 164) (else #f))
  (cond-expand (srfi-165 165) (else #f))
  (cond-expand (srfi-166 166) (else #f))
  (cond-expand (srfi-167 167) (else #f))
  (cond-expand (srfi-168 168) (else #f))
  (cond-expand (srfi-169 169) (else #f))
  (cond-expand (srfi-170 170) (else #f))
  (cond-expand (srfi-171 171) (else #f))
  (cond-expand (srfi-172 172) (else #f))
  (cond-expand (srfi-173 173) (else #f))
  (cond-expand (srfi-174 174) (else #f))
  (cond-expand (srfi-175 175) (else #f))
  (cond-expand (srfi-176 176) (else #f))
  (cond-expand (srfi-177 177) (else #f))
  (cond-expand (srfi-178 178) (else #f))
  (cond-expand (srfi-179 179) (else #f))
  (cond-expand (srfi-180 180) (else #f))
  (cond-expand (srfi-181 181) (else #f))
  (cond-expand (srfi-182 182) (else #f))
  (cond-expand (srfi-183 183) (else #f))
  (cond-expand (srfi-184 184) (else #f))
  (cond-expand (srfi-185 185) (else #f))
  (cond-expand (srfi-186 186) (else #f))
  (cond-expand (srfi-187 187) (else #f))
  (cond-expand (srfi-188 188) (else #f))
  (cond-expand (srfi-189 189) (else #f))
  (cond-expand (srfi-190 190) (else #f))
  (cond-expand (srfi-191 191) (else #f))
  (cond-expand (srfi-192 192) (else #f))
  (cond-expand (srfi-193 193) (else #f))
  (cond-expand (srfi-194 194) (else #f))
  (cond-expand (srfi-195 195) (else #f))
  (cond-expand (srfi-196 196) (else #f))
  (cond-expand (srfi-197 197) (else #f))
  (cond-expand (srfi-198 198) (else #f))
  (cond-expand (srfi-199 199) (else #f))
  (cond-expand (srfi-200 200) (else #f))
  (cond-expand (srfi-201 201) (else #f))
  (cond-expand (srfi-202 202) (else #f))
  (cond-expand (srfi-203 203) (else #f))
  (cond-expand (srfi-204 204) (else #f))
  (cond-expand (srfi-205 205) (else #f))
  (cond-expand (srfi-206 206) (else #f))
  (cond-expand (srfi-207 207) (else #f))
  (cond-expand (srfi-208 208) (else #f))
  (cond-expand (srfi-209 209) (else #f))
  (cond-expand (srfi-210 210) (else #f))
  (cond-expand (srfi-211 211) (else #f))
  (cond-expand (srfi-212 212) (else #f))
  (cond-expand (srfi-213 213) (else #f))
  (cond-expand (srfi-214 214) (else #f))
  (cond-expand (srfi-215 215) (else #f))
  (cond-expand (srfi-216 216) (else #f))
  (cond-expand (srfi-217 217) (else #f))
  (cond-expand (srfi-218 218) (else #f))
  (cond-expand (srfi-219 219) (else #f))
  (cond-expand (srfi-220 220) (else #f))
  (cond-expand (srfi-221 221) (else #f))
  (cond-expand (srfi-222 222) (else #f))
  (cond-expand (srfi-223 223) (else #f))
  (cond-expand (srfi-224 224) (else #f))
  (cond-expand (srfi-225 225) (else #f))
  (cond-expand (srfi-226 226) (else #f))
  (cond-expand (srfi-227 227) (else #f))
  (cond-expand (srfi-228 228) (else #f))
  (cond-expand (srfi-229 229) (else #f))
  (cond-expand (srfi-230 230) (else #f))
  (cond-expand (srfi-231 231) (else #f))
  (cond-expand (srfi-232 232) (else #f))
  (cond-expand (srfi-233 233) (else #f))
  (cond-expand (srfi-234 234) (else #f))
  (cond-expand (srfi-235 235) (else #f))
  (cond-expand (srfi-236 236) (else #f))
  (cond-expand (srfi-237 237) (else #f))
  (cond-expand (srfi-238 238) (else #f))
  (cond-expand (srfi-239 239) (else #f))
  (cond-expand (srfi-240 240) (else #f))
  (cond-expand (srfi-241 241) (else #f))
  (cond-expand (srfi-242 242) (else #f))
  (cond-expand (srfi-243 243) (else #f))
  (cond-expand (srfi-244 244) (else #f))
  (cond-expand (srfi-245 245) (else #f))
  (cond-expand (srfi-246 246) (else #f))
  (cond-expand (srfi-247 247) (else #f))
  (cond-expand (srfi-248 248) (else #f))
  (cond-expand (srfi-249 249) (else #f))
  (cond-expand (srfi-250 250) (else #f))
  (cond-expand (srfi-251 251) (else #f))
  (cond-expand (srfi-252 252) (else #f))
  (cond-expand (srfi-253 253) (else #f))
  (cond-expand (srfi-254 254) (else #f))
  (cond-expand (srfi-255 255) (else #f))
  (cond-expand (srfi-256 256) (else #f))
  (cond-expand (srfi-257 257) (else #f))
  (cond-expand (srfi-258 258) (else #f))
  (cond-expand (srfi-259 259) (else #f))
  (cond-expand (srfi-260 260) (else #f))
  (cond-expand (srfi-261 261) (else #f))
  (cond-expand (srfi-262 262) (else #f))
  (cond-expand (srfi-263 263) (else #f))
  (cond-expand (srfi-264 264) (else #f))
  (cond-expand (srfi-265 265) (else #f))
  (cond-expand (srfi-266 266) (else #f))
  (cond-expand (srfi-267 267) (else #f))
  (cond-expand (srfi-268 268) (else #f))
  (cond-expand (srfi-269 269) (else #f))
  (cond-expand (srfi-270 270) (else #f))
  (cond-expand (srfi-271 271) (else #f))
  (cond-expand (srfi-272 272) (else #f))
  (cond-expand (srfi-273 273) (else #f))
  (cond-expand (srfi-274 274) (else #f))
  (cond-expand (srfi-275 275) (else #f))
  (cond-expand (srfi-276 276) (else #f))
  (cond-expand (srfi-277 277) (else #f))
  (cond-expand (srfi-278 278) (else #f))
  (cond-expand (srfi-279 279) (else #f))
  (cond-expand (srfi-280 280) (else #f))
  (cond-expand (srfi-281 281) (else #f))
  (cond-expand (srfi-282 282) (else #f))
  (cond-expand (srfi-283 283) (else #f))
  (cond-expand (srfi-284 284) (else #f))
  (cond-expand (srfi-285 285) (else #f))
  (cond-expand (srfi-286 286) (else #f))
  (cond-expand (srfi-287 287) (else #f))
  (cond-expand (srfi-288 288) (else #f))
  (cond-expand (srfi-289 289) (else #f))
  (cond-expand (srfi-290 290) (else #f))
  (cond-expand (srfi-291 291) (else #f))
  (cond-expand (srfi-292 292) (else #f))
  (cond-expand (srfi-293 293) (else #f))
  (cond-expand (srfi-294 294) (else #f))
  (cond-expand (srfi-295 295) (else #f))
  (cond-expand (srfi-296 296) (else #f))
  (cond-expand (srfi-297 297) (else #f))
  (cond-expand (srfi-298 298) (else #f))
  (cond-expand (srfi-299 299) (else #f))
  (cond-expand (srfi-300 300) (else #f))
  (cond-expand (srfi-301 301) (else #f))
  (cond-expand (srfi-302 302) (else #f))
  (cond-expand (srfi-303 303) (else #f))
  (cond-expand (srfi-304 304) (else #f))
  (cond-expand (srfi-305 305) (else #f))
  (cond-expand (srfi-306 306) (else #f))
  (cond-expand (srfi-307 307) (else #f))
  (cond-expand (srfi-308 308) (else #f))
  (cond-expand (srfi-309 309) (else #f))
  (cond-expand (srfi-310 310) (else #f))
  (cond-expand (srfi-311 311) (else #f))
  (cond-expand (srfi-312 312) (else #f))
  (cond-expand (srfi-313 313) (else #f))
  (cond-expand (srfi-314 314) (else #f))
  (cond-expand (srfi-315 315) (else #f))
  (cond-expand (srfi-316 316) (else #f))
  (cond-expand (srfi-317 317) (else #f))
  (cond-expand (srfi-318 318) (else #f))
  (cond-expand (srfi-319 319) (else #f))
  (cond-expand (srfi-320 320) (else #f))
  (cond-expand (srfi-321 321) (else #f))
  (cond-expand (srfi-322 322) (else #f))
  (cond-expand (srfi-323 323) (else #f))
  (cond-expand (srfi-324 324) (else #f))
  (cond-expand (srfi-325 325) (else #f))
  (cond-expand (srfi-326 326) (else #f))
  (cond-expand (srfi-327 327) (else #f))
  (cond-expand (srfi-328 328) (else #f))
  (cond-expand (srfi-329 329) (else #f))
  (cond-expand (srfi-330 330) (else #f))
  (cond-expand (srfi-331 331) (else #f))
  (cond-expand (srfi-332 332) (else #f))
  (cond-expand (srfi-333 333) (else #f))
  (cond-expand (srfi-334 334) (else #f))
  (cond-expand (srfi-335 335) (else #f))
  (cond-expand (srfi-336 336) (else #f))
  (cond-expand (srfi-337 337) (else #f))
  (cond-expand (srfi-338 338) (else #f))
  (cond-expand (srfi-339 339) (else #f))
  (cond-expand (srfi-340 340) (else #f))
  (cond-expand (srfi-341 341) (else #f))
  (cond-expand (srfi-342 342) (else #f))
  (cond-expand (srfi-343 343) (else #f))
  (cond-expand (srfi-344 344) (else #f))
  (cond-expand (srfi-345 345) (else #f))
  (cond-expand (srfi-346 346) (else #f))
  (cond-expand (srfi-347 347) (else #f))
  (cond-expand (srfi-348 348) (else #f))
  (cond-expand (srfi-349 349) (else #f))
  (cond-expand (srfi-350 350) (else #f))
  (cond-expand (srfi-351 351) (else #f))
  (cond-expand (srfi-352 352) (else #f))
  (cond-expand (srfi-353 353) (else #f))
  (cond-expand (srfi-354 354) (else #f))
  (cond-expand (srfi-355 355) (else #f))
  (cond-expand (srfi-356 356) (else #f))
  (cond-expand (srfi-357 357) (else #f))
  (cond-expand (srfi-358 358) (else #f))
  (cond-expand (srfi-359 359) (else #f))
  (cond-expand (srfi-360 360) (else #f))
  (cond-expand (srfi-361 361) (else #f))
  (cond-expand (srfi-362 362) (else #f))
  (cond-expand (srfi-363 363) (else #f))
  (cond-expand (srfi-364 364) (else #f))
  (cond-expand (srfi-365 365) (else #f))
  (cond-expand (srfi-366 366) (else #f))
  (cond-expand (srfi-367 367) (else #f))
  (cond-expand (srfi-368 368) (else #f))
  (cond-expand (srfi-369 369) (else #f))
  (cond-expand (srfi-370 370) (else #f))
  (cond-expand (srfi-371 371) (else #f))
  (cond-expand (srfi-372 372) (else #f))
  (cond-expand (srfi-373 373) (else #f))
  (cond-expand (srfi-374 374) (else #f))
  (cond-expand (srfi-375 375) (else #f))
  (cond-expand (srfi-376 376) (else #f))
  (cond-expand (srfi-377 377) (else #f))
  (cond-expand (srfi-378 378) (else #f))
  (cond-expand (srfi-379 379) (else #f))
  (cond-expand (srfi-380 380) (else #f))
  (cond-expand (srfi-381 381) (else #f))
  (cond-expand (srfi-382 382) (else #f))
  (cond-expand (srfi-383 383) (else #f))
  (cond-expand (srfi-384 384) (else #f))
  (cond-expand (srfi-385 385) (else #f))
  (cond-expand (srfi-386 386) (else #f))
  (cond-expand (srfi-387 387) (else #f))
  (cond-expand (srfi-388 388) (else #f))
  (cond-expand (srfi-389 389) (else #f))
  (cond-expand (srfi-390 390) (else #f))
  (cond-expand (srfi-391 391) (else #f))
  (cond-expand (srfi-392 392) (else #f))
  (cond-expand (srfi-393 393) (else #f))
  (cond-expand (srfi-394 394) (else #f))
  (cond-expand (srfi-395 395) (else #f))
  (cond-expand (srfi-396 396) (else #f))
  (cond-expand (srfi-397 397) (else #f))
  (cond-expand (srfi-398 398) (else #f))
  (cond-expand (srfi-399 399) (else #f))
  (cond-expand (srfi-400 400) (else #f))
  (cond-expand (srfi-401 401) (else #f))
  (cond-expand (srfi-402 402) (else #f))
  (cond-expand (srfi-403 403) (else #f))
  (cond-expand (srfi-404 404) (else #f))
  (cond-expand (srfi-405 405) (else #f))
  (cond-expand (srfi-406 406) (else #f))
  (cond-expand (srfi-407 407) (else #f))
  (cond-expand (srfi-408 408) (else #f))
  (cond-expand (srfi-409 409) (else #f))
  (cond-expand (srfi-410 410) (else #f))
  (cond-expand (srfi-411 411) (else #f))
  (cond-expand (srfi-412 412) (else #f))
  (cond-expand (srfi-413 413) (else #f))
  (cond-expand (srfi-414 414) (else #f))
  (cond-expand (srfi-415 415) (else #f))
  (cond-expand (srfi-416 416) (else #f))
  (cond-expand (srfi-417 417) (else #f))
  (cond-expand (srfi-418 418) (else #f))
  (cond-expand (srfi-419 419) (else #f))
  (cond-expand (srfi-420 420) (else #f))
  (cond-expand (srfi-421 421) (else #f))
  (cond-expand (srfi-422 422) (else #f))
  (cond-expand (srfi-423 423) (else #f))
  (cond-expand (srfi-424 424) (else #f))
  (cond-expand (srfi-425 425) (else #f))
  (cond-expand (srfi-426 426) (else #f))
  (cond-expand (srfi-427 427) (else #f))
  (cond-expand (srfi-428 428) (else #f))
  (cond-expand (srfi-429 429) (else #f))
  (cond-expand (srfi-430 430) (else #f))
  (cond-expand (srfi-431 431) (else #f))
  (cond-expand (srfi-432 432) (else #f))
  (cond-expand (srfi-433 433) (else #f))
  (cond-expand (srfi-434 434) (else #f))
  (cond-expand (srfi-435 435) (else #f))
  (cond-expand (srfi-436 436) (else #f))
  (cond-expand (srfi-437 437) (else #f))
  (cond-expand (srfi-438 438) (else #f))
  (cond-expand (srfi-439 439) (else #f))
  (cond-expand (srfi-440 440) (else #f))
  (cond-expand (srfi-441 441) (else #f))
  (cond-expand (srfi-442 442) (else #f))
  (cond-expand (srfi-443 443) (else #f))
  (cond-expand (srfi-444 444) (else #f))
  (cond-expand (srfi-445 445) (else #f))
  (cond-expand (srfi-446 446) (else #f))
  (cond-expand (srfi-447 447) (else #f))
  (cond-expand (srfi-448 448) (else #f))
  (cond-expand (srfi-449 449) (else #f))
  (cond-expand (srfi-450 450) (else #f))
  (cond-expand (srfi-451 451) (else #f))
  (cond-expand (srfi-452 452) (else #f))
  (cond-expand (srfi-453 453) (else #f))
  (cond-expand (srfi-454 454) (else #f))
  (cond-expand (srfi-455 455) (else #f))
  (cond-expand (srfi-456 456) (else #f))
  (cond-expand (srfi-457 457) (else #f))
  (cond-expand (srfi-458 458) (else #f))
  (cond-expand (srfi-459 459) (else #f))
  (cond-expand (srfi-460 460) (else #f))
  (cond-expand (srfi-461 461) (else #f))
  (cond-expand (srfi-462 462) (else #f))
  (cond-expand (srfi-463 463) (else #f))
  (cond-expand (srfi-464 464) (else #f))
  (cond-expand (srfi-465 465) (else #f))
  (cond-expand (srfi-466 466) (else #f))
  (cond-expand (srfi-467 467) (else #f))
  (cond-expand (srfi-468 468) (else #f))
  (cond-expand (srfi-469 469) (else #f))
  (cond-expand (srfi-470 470) (else #f))
  (cond-expand (srfi-471 471) (else #f))
  (cond-expand (srfi-472 472) (else #f))
  (cond-expand (srfi-473 473) (else #f))
  (cond-expand (srfi-474 474) (else #f))
  (cond-expand (srfi-475 475) (else #f))
  (cond-expand (srfi-476 476) (else #f))
  (cond-expand (srfi-477 477) (else #f))
  (cond-expand (srfi-478 478) (else #f))
  (cond-expand (srfi-479 479) (else #f))
  (cond-expand (srfi-480 480) (else #f))
  (cond-expand (srfi-481 481) (else #f))
  (cond-expand (srfi-482 482) (else #f))
  (cond-expand (srfi-483 483) (else #f))
  (cond-expand (srfi-484 484) (else #f))
  (cond-expand (srfi-485 485) (else #f))
  (cond-expand (srfi-486 486) (else #f))
  (cond-expand (srfi-487 487) (else #f))
  (cond-expand (srfi-488 488) (else #f))
  (cond-expand (srfi-489 489) (else #f))
  (cond-expand (srfi-490 490) (else #f))
  (cond-expand (srfi-491 491) (else #f))
  (cond-expand (srfi-492 492) (else #f))
  (cond-expand (srfi-493 493) (else #f))
  (cond-expand (srfi-494 494) (else #f))
  (cond-expand (srfi-495 495) (else #f))
  (cond-expand (srfi-496 496) (else #f))
  (cond-expand (srfi-497 497) (else #f))
  (cond-expand (srfi-498 498) (else #f))
  (cond-expand (srfi-499 499) (else #f))
))
(write srfis)
(newline)

Output:

**** Error while executing command ("main.scm")
         Where: in compiler-error
        Reason: invalid context within quasiquote. Call was (cond ((positive? arity) `((= ,len ,arity) (,apply-prim (#%lambda ,formals ,@body) ,args))) ((zero? arity) `((= ,len ,arity) ,@body)) (else `((>= ,len ,(- (- arity) 1)) (,apply-prim (#%lambda ,formals ,@body) ,args)))). Call was (import (except (scheme base) make-parameter parameterize) (scheme case-lambda) (scheme complex) (scheme eval) (scheme file) (scheme process-context) (scheme read) (scheme write) (srfi 39)). Call was (cond-expand (srfi-64 64) (else #f))

The long might look weird, but I'm making a program to check which SRFI's are supported by the implementation. For some reason it works if I remove the first 200 cond-expand lines.

Third code, not a bug but missing R7RS feature:

(import (scheme base) (scheme write))

(define srfis (list (cond-expand ((library 1) 1) (else #f))))
(write srfis)
(newline)

Output:

**** Error while executing command ("main.scm")
         Where: in compiler-error
        Reason: bad module or library name '1'. Call was (cond-expand ((library 1) 1) (else #f))

[Retropikzel]

The long one works when I remove srfi-61 and srfi-175.

[egallesio]

I think the issue was solved. I had a problem with srfi-175 but srfi-61 is OK. Your big cond-expand is now OK, for me.

About the (library ...), I have several interpretations of the R7 document. Should not be the call

(cond-expand ((library 1) 1) (else #f))

be

(cond-expand ((library (srfi 1)) 1) (else #474 

Do you know which Scheme implements the library clause? I didn't find one that implements it.

[jpellegrini]

(cond-expand ((library 1) 1) (else #f))

I see that STklos will answer 1 here after the library has been loaded... While most schemes (Chibi, Cyclone, Gauche, Gambit, Kawa, MIT, Sagittarius, TR7) will answer 1 when it is available (even if not yet loaded).

[jpellegrini]

Also,

(cond-expand ((library (srfi 0)) 'ok) (else #f)) => #f

[Retropikzel]

((library (srfi N)) ...) works on: chibi, chicken, cyclone, foment, gauche, kawa, loko, mit-scheme, mosh, larceny, racket sagittarius, tr7 and ypsilon
((library (srfi N)) ...) does not work on: capyscheme, gambit, guile and stklos

The latter use (srfi-N ...)

R7RS pdf on page 15 says about cond expand

A hfeature requirementi takes one of the following forms:
• (feature identifier)
• (library (library name))
• (and (feature requirement) . . . )
• (or (feature requirement) . . . )
• (not (feature requirement))

And since I think SRFI are libraries they fall under (library (library name))?

But I started testing this on R6RS implementations and noticed that SRFI-0 uses (srfi-N ...), so for maximum portability I guess one would need to use both forms. And even if it would work on R6RS it propably would still be different and use : as prefix. So for me supporting the library form is okay either way, in practice both are needed anyway. This issue can be closed. Thank you very much for the fixes!

[Retropikzel]

Sorry, there is still something.

Git log first entry

commit 4addfeb827b12346ccca0b739f0cb18abf0b8021 (HEAD -> master, origin/master, origin/HEAD)
Merge: b83a7004 65a865a0
Author: Erick Gallesio <eg@stklos.net>
Date:   Wed Dec 10 13:30:48 2025 +0100

    Merge branch 'cyclic-box'

This code errors:

(import (scheme base) (scheme write))

(define srfis (list
  (cond-expand (srfi-61 61) (else #f))
  (cond-expand (srfi-64 64) (else #f))
))
(write srfis)
(newline)

And weirdly if either one is commented out it seems to work.

I know it might seem I'm just throwing random stuff onto it, but I'm making a script to detect which SRFI's implementation has for snow-chibi so it does not install SRFI if implementation already has it.

[egallesio]

(cond-expand ((library 1) 1) (else #f))

I see that STklos will answer 1 here after the library has been loaded... While most schemes (Chibi, Cyclone, Gauche, Gambit, Kawa, MIT, Sagittarius, TR7) will answer 1 when it is available (even if not yet loaded).

That is true, and I don't remember why I did it. Probably, it should be changed.
Thanks, Jerônimo, for signaling it.

[egallesio]

I forgot some dependencies in the Makefiles, and the big cond-expand didn't work for me too on a machine where I had just pulled GitHub. Can you try to run a make distclean in the top directory before testing, please?

---

This code errors:

(import (scheme base) (scheme write))

(define srfis (list
  (cond-expand (srfi-61 61) (else #f))
  (cond-expand (srfi-64 64) (else #f))
))
(write srfis)
(newline)

That is really bizarre. It works for me. Can you try to run it in load-verbose mode (since testing an srfi load it as @jpellegrini said).

You should have something like that:

 \    STklos version 2.10.692 (unstable -- 56de42b3)
   \   Copyright (C) 1999-2025 Erick Gallesio <eg@stklos.net>
  / \  [Linux-6.12.61-1-lts-x86_64/pthreads/readline/utf8]
 /   \ Type ',h' for help
stklos> (load-verbose #t)     ;; To be in verbose mode
stklos> (define srfis (list
  (cond-expand (srfi-61 61) (else #f))
  (cond-expand (srfi-64 64) (else #f))
))
(write srfis)
(newline)
;; Loading file "/home/eg/Projects/STklos/lib/srfi/61.ostk".
;; File "/home/eg/Projects/STklos/lib/srfi/61.ostk" loaded.
;; Loading file "/home/eg/Projects/STklos/lib/srfi/64.ostk".
;; Loading file "/home/eg/Projects/STklos/lib/srfi/35.ostk".
;; File "/home/eg/Projects/STklos/lib/srfi/35.ostk" loaded.
;; File "/home/eg/Projects/STklos/lib/srfi/64.ostk" loaded.
;; srfis
(61 64)
stklos>

Thanks.

[Retropikzel]

Sorry, it is quite possible that my environment is messed up. I tried the 61 and 64 one inside clean docker container and now those work. However 96 and 180 seem to not.

STklos -V says (build.git.commit "6c8e92f")

Code

(import (scheme base) (scheme write) (scheme process-context))

(load-verbose #t)

(define srfis (list
  (cond-expand ((or srfi-96) 96) (else #f))
))
(write srfis)
(newline)
(exit 0)

Output

;; Loading file "/usr/local/share/stklos/2.10/srfi/96.ostk".
;; Loading file "/usr/local/share/stklos/2.10/slib.ostk".
;; Loading file "/usr/local/share/stklos/2.10/srfi/59.ostk".
;; File "/usr/local/share/stklos/2.10/srfi/59.ostk" loaded.
**** Error while executing command ("srfi-list-69737-1765483028-0.scm")
         Where: in compiler-error
        Reason: Unable to locate the SLIB library. Define SCHEME_LIBRARY_PATH shell variable. Call was (cond-expand (srfi-96 96) ((or) 96) (else #f))

  - error
  - compiler-error
  - %macro-expand
  - <<let/call>>
  - compile
  - compile-args
  - %compile-primitive-call
  - compile-%%define
  - #[closure 7f568db96b00]
  - <<let/call>>
  - ...
Set shell variable STKLOS_FRAMES to set visible frames
EXIT

Code

(import (scheme base) (scheme write) (scheme process-context))

(load-verbose #t)

(define srfis (list
  ;(cond-expand ((or srfi-96) 96) (else #f))
  (cond-expand ((or srfi-180) 180) (else #f))
))
(write srfis)
(newline)

;; Loading file "/usr/local/share/stklos/2.10/srfi/180.ostk".
**** Error while executing command ("srfi-list-69737-1765483028-0.scm")
         Where: in compiler-error
        Reason: bad char name  '. Call was (cond-expand (srfi-180 180) ((or) 180) (else #f))

  - error
  - compiler-error
  - %macro-expand
  - <<let/call>>
  - compile
  - compile-args
  - %compile-primitive-call
  - compile-%%define
  - #[closure 7fb48c9b65c0]
  - <<let/call>>
  - ...
Set shell variable STKLOS_FRAMES to set visible frames
EXIT

Those however do not error on my machine, just inside docker. Dockerfile used to build is here https://github.com/scheme-containers/monorepo/blob/master/implementations/stklos/head/Dockerfile

I added the long file as a test and there output is different from these. #871