syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Make Annotations preserveable

This commit is contained in:
Tony Garnock-Jones 2024-05-15 09:34:28 +02:00
parent 0533840bc0
commit 87ecdb7efe
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
implementations/javascript/packages/core/src/pexpr.ts
View File

@ -82,6 +82,10 @@ export class BaseCompound<I> {
}); });
} }
__as_preserve__(): Value {
return this.preservesValues();
}
map<R>(f: (item: Positioned<I>, index: number) => R, offset = 0): R[] { map<R>(f: (item: Positioned<I>, index: number) => R, offset = 0): R[] {
const result: R[] = []; const result: R[] = [];
for (let i = offset; i < this.exprs.length; i++) { for (let i = offset; i < this.exprs.length; i++) {
@ -106,11 +110,7 @@ export class BaseCompound<I> {
} }
} }
export class Document extends BaseCompound<Expr> { export class Document extends BaseCompound<Expr> {}
__as_preserve__(): Value {
return this.preservesValues();
}
}
export class Annotations extends BaseCompound<SimpleExpr> { export class Annotations extends BaseCompound<SimpleExpr> {
wrap(v: Value): Value { wrap(v: Value): Value {
@ -352,4 +352,4 @@ export function asPreserves<T extends Embeddable>(
} }
return walk(p); return walk(p);
} }