From c66168206b498ef3cd99dbc7eae4d50aa17ee9a6 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Fri, 22 Apr 2022 13:49:15 +0200
Subject: [PATCH] Accept literal values able to __as_preserve__ themselves

---
 packages/compiler/src/compiler/grammar.ts | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/compiler/src/compiler/grammar.ts b/packages/compiler/src/compiler/grammar.ts
index 2d3fcc6..02eaafe 100644
--- a/packages/compiler/src/compiler/grammar.ts
+++ b/packages/compiler/src/compiler/grammar.ts
@@ -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)}))`;