summaryrefslogtreecommitdiff
path: root/common.sml
diff options
context:
space:
mode:
authorVladimir Azarov <avm@intermediate-node.net>2025-06-04 20:45:08 +0200
committerVladimir Azarov <avm@intermediate-node.net>2025-06-04 20:45:08 +0200
commit9ccb3fce8e390f09fa5b812a77f7a65c10c5e4b1 (patch)
treebdbbce79c18fdb2e68592ed828f43da0b03ecf8f /common.sml
parent546a5861526192a908f2aa2bfc3cfe4f3f3baf43 (diff)
Registration of declarations
Diffstat (limited to 'common.sml')
-rw-r--r--common.sml1
1 files changed, 1 insertions, 0 deletions
diff --git a/common.sml b/common.sml
index 75ed15e..3fd58c2 100644
--- a/common.sml
+++ b/common.sml
@@ -2,6 +2,7 @@ exception Unreachable and Unimplemented
fun $ (x, y) = x y
infixr 0 $
+fun id x = x
fun assert truth = if not truth then raise Unreachable else ()