First pass at a scheme backend

2026-03-16 17:03:33 -07:00
parent 92ced8dcd2
commit fe96f46534
23 changed files with 586 additions and 107 deletions
--- a/src/Lib/ReplParser.newt
+++ b/src/Lib/ReplParser.newt
@@ -36,7 +36,7 @@ replQN = do
  ident <- uident
  rest <- many $ token Projection
  let name = joinBy "" (ident :: rest)
-  let (ns,nm) = unsnoc $ split1 name "."
+  let (ns,nm) = unsnoc $ splitBy1 name '.'
  pure $ QN (joinBy "." ns) nm

 data ArgType = ArgNone | ArgString | ArgIdent | ArgOptInt | ArgQName