diff options
| author | Eduardo Julian | 2022-07-08 18:42:43 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-08 18:42:43 -0400 |
| commit | 6a052144968df9b441df53f6aa08cbb515ff2654 (patch) | |
| tree | 7276eb5450baf14cfdc69071fd082168741b8291 /stdlib/source/library | |
| parent | 14a5d4377431c7fc7a13b71cfbbaeb7baa116d29 (diff) | |
Folded "default" documentation into regular definition documentation.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/documentation.lux | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/stdlib/source/library/lux/documentation.lux b/stdlib/source/library/lux/documentation.lux index 1a0c9ce38..73dbbcd63 100644 --- a/stdlib/source/library/lux/documentation.lux +++ b/stdlib/source/library/lux/documentation.lux @@ -580,18 +580,6 @@ #expected (Set Text) #definitions (List Definition)])) -(def .public default - (syntax (_ [[name parameters] ..declaration]) - (macro.with_symbols [g!_] - (let [[_ short] name] - (in (list (` (.let [(, g!_) (.is (.-> .Any (.List ..Definition)) - (.function ((, g!_) (, g!_)) - (.list [..#definition (, (code.text short)) - ..#documentation ((,! ..minimal_definition_documentation) - ((, (code.symbol name)) - (,* (list#each code.local parameters))))])))] - ((, g!_) []))))))))) - (def .public definition (syntax (_ [[name parameters] ..declaration extra (<>.some <code>.any)]) @@ -600,7 +588,12 @@ (in (list (` (.let [(, g!_) (.is (.-> .Any (.List ..Definition)) (.function ((, g!_) (, g!_)) (.list [..#definition (, (code.text short)) - ..#documentation ((,! ..definition_documentation) + ..#documentation ((, (case extra + (list) + (` (,! ..minimal_definition_documentation)) + + _ + (` (,! ..definition_documentation)))) ((, (code.symbol name)) (,* (list#each code.local parameters))) (,* extra))])))] |