diff options
Diffstat (limited to 'stdlib/source/library/lux.lux')
| -rw-r--r-- | stdlib/source/library/lux.lux | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index bc5393c3c..c1696ff86 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -2981,24 +2981,6 @@ #None (failure "Wrong syntax for def:"))) -(def: (with_definition_annotation addition annotations) - (-> [Code Code] Code Code) - (case [addition annotations] - [[name value] [location (#Record pairs)]] - [location (#Record (#Item [name value] pairs))] - - _ - annotations)) - -(def: (merged_definition_annotations addition base) - (-> Code Code Code) - (case addition - [location (#Record pairs)] - (list\mix with_definition_annotation base pairs) - - _ - base)) - (def:' .private (macroP tokens) (-> (List Code) (Maybe [Code Text (List Text) (List [Code Code]) Code])) (|> (do maybe_monad @@ -3483,8 +3465,7 @@ _ (` ((~ (local_identifier$ name)) (~+ args))))] (in_meta (list (` (..def: (~ export_policy) (~ usage) - (~ (merged_definition_annotations (` {#.implementation? #1}) - (record$ annotations))) + (~ (record$ annotations)) (~ type) (implementation (~+ definitions))))))) |