From 6a052144968df9b441df53f6aa08cbb515ff2654 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 8 Jul 2022 18:42:43 -0400 Subject: Folded "default" documentation into regular definition documentation. --- stdlib/source/library/lux/documentation.lux | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) (limited to 'stdlib/source/library') 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 .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))])))] -- cgit v1.2.3