diff options
author | Eduardo Julian | 2022-06-12 13:33:48 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-06-12 13:33:48 -0400 |
commit | 8c3a1afab9efeb86e2f53d743551fc689fbad257 (patch) | |
tree | 396b2fd29bac407544d2136a0d9e6e3b8b2c30af /stdlib/source/program/aedifex/artifact.lux | |
parent | 9c21fd1f33eb52fb971d493ad21a67036d68b841 (diff) |
De-sigil-ification: suffix : [Part 4]
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/artifact.lux | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux index a6824828a..6b27b55a9 100644 --- a/stdlib/source/program/aedifex/artifact.lux +++ b/stdlib/source/program/aedifex/artifact.lux @@ -43,25 +43,25 @@ (Equivalence Artifact) (at ..hash equivalence)) -(implementation: .public order +(def: .public order (Order Artifact) + (implementation + (def: equivalence + ..equivalence) - (def: equivalence - ..equivalence) - - (def: (< reference subject) - (<| (or (text#< (the #group reference) - (the #group subject))) - - (and (text#= (the #group reference) + (def: (< reference subject) + (<| (or (text#< (the #group reference) (the #group subject))) - (or (text#< (the #name reference) - (the #name subject))) - - (and (text#= (the #name reference) + + (and (text#= (the #group reference) + (the #group subject))) + (or (text#< (the #name reference) (the #name subject))) - (text#< (the #version reference) - (the #version subject))))) + + (and (text#= (the #name reference) + (the #name subject))) + (text#< (the #version reference) + (the #version subject)))))) (with_template [<separator> <definition>] [(def: <definition> |