Use reuse toExprOfSeq and toExprOfList

Author: nicolasstucki

library/src-non-bootstrapped/scala/quoted/package.scala

@@ -9,6 +9,13 @@ package object quoted {
     throw new Exception("Non bootsrapped library")
 
   implicit object ExprOps {
-    def (x: T) toExpr[T: Liftable] given QuoteContext: Expr[T] = the[Liftable[T]].toExpr(x)
+    def (x: T) toExpr[T: Liftable] given QuoteContext: Expr[T] =
+      throw new Exception("Non bootsrapped library")
+
+    def (seq: Seq[Expr[T]]) toExprOfSeq[T] given (tp: Type[T], qctx: QuoteContext): Expr[Seq[T]] =
+      throw new Exception("Non bootsrapped library")
+
+    def (list: List[Expr[T]]) toExprOfList[T] given Type[T], QuoteContext: Expr[List[T]] =
+      throw new Exception("Non bootsrapped library")
   }
 }

library/src/scala/quoted/Liftable.scala

@@ -53,17 +53,13 @@ object Liftable {
   }
 
   given [T: Type: Liftable] as Liftable[Seq[T]] = new Liftable[Seq[T]] {
-    def toExpr(seq: Seq[T]): given QuoteContext => Expr[Seq[T]] = given qctx => {
-      import qctx.tasty._
-      Repeated(seq.map(x => the[Liftable[T]].toExpr(x).unseal).toList, the[quoted.Type[T]].unseal).seal.asInstanceOf[Expr[Seq[T]]]
-    }
+    def toExpr(xs: Seq[T]): given QuoteContext => Expr[Seq[T]] =
+      xs.map(the[Liftable[T]].toExpr).toExprOfSeq
   }
 
   given [T: Type: Liftable] as Liftable[List[T]] = new Liftable[List[T]] {
-    def toExpr(x: List[T]): given QuoteContext => Expr[List[T]] = x match {
-      case x :: xs  => '{ (${xs.toExpr}).::[T](${x.toExpr}) }
-      case Nil => '{ Nil: List[T] }
-    }
+    def toExpr(xs: List[T]): given QuoteContext => Expr[List[T]] =
+      xs.map(the[Liftable[T]].toExpr).toExprOfList
   }
 
   given [T: Type: Liftable] as Liftable[Set[T]] = new Liftable[Set[T]] {