From 8c56a2250888c529fd14cf97c07317776bb0690d Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Thu, 21 May 2026 00:28:51 +0000
Subject: Sketches of a condition system

---
 lib/envelope.ml | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 lib/envelope.ml

(limited to 'lib/envelope.ml')

diff --git a/lib/envelope.ml b/lib/envelope.ml
deleted file mode 100644
index 1c20c5b..0000000
--- a/lib/envelope.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-(** Envelope parser for tagged S-expressions.
-
-    Parses commands of the form (tag payload...) where the tag selects which
-    sublanguage handles the payload. The tag set is open — future sublanguages
-    (tcl, ppl, acl) just add new tags. *)
-
-type tagged = { tag : string; payload : Sexplib.Sexp.t }
-
-let parse (input : Sexplib.Sexp.t) : (tagged, Error.t) Result.t =
-  match input with
-  | Sexplib.Sexp.List (Sexplib.Sexp.Atom tag :: rest) ->
-      let payload =
-        match rest with [ single ] -> single | many -> Sexplib.Sexp.List many
-      in
-      Ok { tag; payload }
-  | s -> Error (Error.MalformedExpression s)
-- 
cgit v1.2.3