diff options
author | Eduardo Julian | 2022-06-12 00:38:20 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-06-12 00:38:20 -0400 |
commit | b48ea68a83d01903554c7696c77eedaaf1035680 (patch) | |
tree | c342d8094c3158de16526f874ca9624418cd2dd2 /stdlib/source/library/lux/macro/syntax.lux | |
parent | 7abf2d0ac55c229a8793bbff31f132596ffcb275 (diff) |
De-sigil-ification: suffix : [Part 3]
Diffstat (limited to 'stdlib/source/library/lux/macro/syntax.lux')
-rw-r--r-- | stdlib/source/library/lux/macro/syntax.lux | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/stdlib/source/library/lux/macro/syntax.lux b/stdlib/source/library/lux/macro/syntax.lux index a510cb759..e4ae7260f 100644 --- a/stdlib/source/library/lux/macro/syntax.lux +++ b/stdlib/source/library/lux/macro/syntax.lux @@ -85,8 +85,7 @@ {.#None} (//.symbol "g!state")) this_module meta.current_module_name - .let [error_msg (code.text (//.wrong_syntax_error [this_module name])) - g!name (code.symbol ["" name])]] + .let [g!name (code.symbol ["" name])]] (in (list (` (.macro ((~ g!name) (~ g!tokens) (~ g!state)) (.case ((~! </>.result) (is ((~! </>.Parser) (Meta (List Code))) @@ -98,7 +97,7 @@ ((~ g!body) (~ g!state)) {try.#Failure (~ g!error)} - {try.#Failure ((~! text.interposed) (~! text.new_line) (list (~ error_msg) (~ g!error)))}))))))) + {try.#Failure ((~! text.interposed) (~! text.new_line) (list "Invalid syntax:" (~ g!error)))}))))))) {try.#Failure error} (meta.failure (//.wrong_syntax_error (symbol ..syntax)))))) |