hacklab/strudel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mondo: let expressions

Browse source
This commit is contained in:
Felix Roos 2025-04-03 17:01:36 +02:00
parent 60d09adb44
commit 989bd0990e
No known key found for this signature in database
2 changed files with 59 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
packages/mondo/mondo.mjs
View file

@ -331,6 +331,19 @@ export class MondoRunner {
//console.log(printAst(ast));
return this.evaluate(ast, scope);
}
evaluate_let(ast, scope) {
// (let ((x 3) (y 4)) ...body)
// = ((fn (x y) ...body) 3 4)
const defs = ast.children[1].children;
const args = defs.map((pair) => pair.children[0]);
const vals = defs.map((pair) => pair.children[1]);
const body = ast.children.slice(2);
const lambda = {
type: 'list',
children: [{ type: 'plain', value: 'fn' }, { type: 'list', children: args }, ...body],
};
return this.evaluate({ type: 'list', children: [lambda, ...vals] }, scope);
}
evaluate_def(ast, scope) {
// function definition special form?
if (ast.children[1].type === 'list') {
@ -441,6 +454,9 @@ export class MondoRunner {
if (name === 'if') {
return this.evaluate_if(ast, scope);
}
if (name === 'let') {
return this.evaluate_let(ast, scope);
}
if (name === 'def') {
this.evaluate_def(ast, scope);
}