From 1e712e91edea0735c5eb440af26ac6d4454e70a9 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Tue, 5 Aug 2025 15:12:27 +0300
Subject: Fix: quote is not a typewise identity function. Added vt(&str) as
 util for VarType(String).

---
 src/type/mod.rs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/type/mod.rs')

diff --git a/src/type/mod.rs b/src/type/mod.rs
index e4c0841..e29e069 100644
--- a/src/type/mod.rs
+++ b/src/type/mod.rs
@@ -16,6 +16,8 @@ pub enum Type {
 
     Boolean,
 
+    QuoteTy,
+
     Arrow(Box<Type>, Box<Type>),
 
     List(Vec<Type>),
@@ -92,6 +94,7 @@ impl Type {
         match self {
             Integer => Ok(()),
             Boolean => Ok(()),
+            QuoteTy => Ok(()),
             Arrow(a, b) => b.is_concrete().and_then(|_ok| a.is_concrete()),
             List(v) => {
                 let mut res = Ok(());
-- 
cgit v1.2.3