syndicate-lang
/
syndicate-js
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Accept literal values able to __as_preserve__ themselves

This commit is contained in:
Tony Garnock-Jones 2022-04-22 13:49:15 +02:00
parent 074568bb91
commit c66168206b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/compiler/src/compiler/grammar.ts
View File

@ -503,7 +503,7 @@ export function compilePattern(pattern: ValuePattern): StaticAnalysis {
return template`(__SYNDICATE__.QuasiValue.bind(${walk(pattern.inner)}))`;
}
case 'PConstant':
return template`(__SYNDICATE__.QuasiValue.lit(${pattern.value}))`;
return template`(__SYNDICATE__.QuasiValue.lit(__SYNDICATE__.fromJS(${pattern.value})))`;
case 'PConstructor': {
const pieces = [template`${pattern.ctor}`, ... pattern.arguments.map(walk)];
return template`(__SYNDICATE__.QuasiValue.ctor(${commaJoin(pieces)}))`;