driverslop

2026-07-06 05:01:34 -06:00
parent 51c86a12cc
commit b2d9a982ac
8 changed files with 68 additions and 16 deletions
@@ -117,7 +117,8 @@ primSexpIso namefn a = match
      binop s = list $ idn s >>> el a >>> el a

 instance SexpIso a => SexpIso (Prim a) where
-  sexpIso = primSexpIso ("prim:"<>) sexpIso
+  -- sexpIso = primSexpIso ("prim:"<>) sexpIso
+  sexpIso = primSexpIso id sexpIso

 instance SexpIso Lit where
  sexpIso = match