diff options
Diffstat (limited to 'stdlib/source/library')
| -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))])))] |