coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge evalCond scheme-style fix
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 3m15s
Details

Browse Source
This commit is contained in:
giles
2026-03-06 16:49:51 +00:00
parent b8d3e46a9b a2d0a8a0fa
commit 2aa0f1d010
2 changed files with 34 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
shared/static/scripts/sx-browser.js
View File

@@ -506,11 +506,23 @@
return local; return local;
} }
function evalCond(clauses, env) { function evalCond(clauses, env) {
for (var i = 0; i < clauses.length; i += 2) { // Detect scheme-style ((test body) ...) vs clojure-style (test body test body ...)
var test = clauses[i]; var scheme = clauses.length > 0 && Array.isArray(clauses[0]) && clauses[0].length === 2;
if (isSym(test) && test.name === ":else") return clauses[i + 1]; if (scheme) {
if (isKw(test) && test.name === "else") return clauses[i + 1]; for (var i = 0; i < clauses.length; i++) {
if (isSxTruthy(trampoline(evalExpr(test, env)))) return clauses[i + 1]; var clause = clauses[i];
var test = clause[0], body = clause[1];
if (isSym(test) && (test.name === "else" || test.name === ":else")) return body;
if (isKw(test) && test.name === "else") return body;
if (isSxTruthy(trampoline(evalExpr(test, env)))) return body;
}
} else {
for (var i = 0; i < clauses.length; i += 2) {
var test = clauses[i];
if (isSym(test) && test.name === ":else") return clauses[i + 1];
if (isKw(test) && test.name === "else") return clauses[i + 1];
if (isSxTruthy(trampoline(evalExpr(test, env)))) return clauses[i + 1];
}
} }
return null; return null;
} }

22
shared/sx/ref/bootstrap_js.py
View File

@@ -1836,11 +1836,23 @@ PLATFORM_JS_POST = '''
return local; return local;
} }
function evalCond(clauses, env) { function evalCond(clauses, env) {
for (var i = 0; i < clauses.length; i += 2) { // Detect scheme-style ((test body) ...) vs clojure-style (test body test body ...)
var test = clauses[i]; var scheme = clauses.length > 0 && Array.isArray(clauses[0]) && clauses[0].length === 2;
if (isSym(test) && test.name === ":else") return clauses[i + 1]; if (scheme) {
if (isKw(test) && test.name === "else") return clauses[i + 1]; for (var i = 0; i < clauses.length; i++) {
if (isSxTruthy(trampoline(evalExpr(test, env)))) return clauses[i + 1]; var clause = clauses[i];
var test = clause[0], body = clause[1];
if (isSym(test) && (test.name === "else" || test.name === ":else")) return body;
if (isKw(test) && test.name === "else") return body;
if (isSxTruthy(trampoline(evalExpr(test, env)))) return body;
}
} else {
for (var i = 0; i < clauses.length; i += 2) {
var test = clauses[i];
if (isSym(test) && test.name === ":else") return clauses[i + 1];
if (isKw(test) && test.name === "else") return clauses[i + 1];
if (isSxTruthy(trampoline(evalExpr(test, env)))) return clauses[i + 1];
}
} }
return null; return null;
} }