diff options
Diffstat (limited to 'stdlib/source/lux.lux')
| -rw-r--r-- | stdlib/source/lux.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 9bf84ca45..a9c442462 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -3431,7 +3431,7 @@ (list [(tag$ ["lux" "doc"]) (text$ "Macro-definition macro. - (macro: #export (name-for tokens) + (macro: #export (name-of tokens) (case tokens (^template [<tag>] (^ (list [_ (<tag> [prefix name])])) @@ -3439,7 +3439,7 @@ ([#Identifier] [#Tag]) _ - (fail \"Wrong syntax for name-for\")))")]) + (fail \"Wrong syntax for name-of\")))")]) (let [[exported? tokens] (export^ tokens) name+args+meta+body?? (: (Maybe [Name (List Code) Code Code]) (case tokens @@ -5692,9 +5692,9 @@ _ (fail "Wrong syntax for ^multi"))) -(macro: #export (name-for tokens) +(macro: #export (name-of tokens) {#.doc (doc "Given an identifier or a tag, gives back a 2 tuple with the prefix and name parts, both as Text." - (name-for #.doc) + (name-of #.doc) "=>" ["lux" "doc"])} (case tokens @@ -5704,7 +5704,7 @@ ([#Identifier] [#Tag]) _ - (fail "Wrong syntax for name-for"))) + (fail "Wrong syntax for name-of"))) (do-template [<type> <even> <odd> <%> <=> <0> <2>] [(def: #export (<even> n) |