diff options
| author | Eduardo Julian | 2018-04-05 07:48:25 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-04-05 07:48:25 -0400 |
| commit | 435771d3c4d4ffa791805e7006ee3bde488a4090 (patch) | |
| tree | 693b9e2a6d8c6ddf4e439336e5bfcd665c9955cd /stdlib/source/lux/lang/syntax.lux | |
| parent | 3de94c8a341ef3f19fd75eeeb98e5333d2fe89d0 (diff) | |
- Improved the syntax for the "lux.function" macro.
Diffstat (limited to 'stdlib/source/lux/lang/syntax.lux')
| -rw-r--r-- | stdlib/source/lux/lang/syntax.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/lang/syntax.lux b/stdlib/source/lux/lang/syntax.lux index 60bf3c11a..88a784980 100644 --- a/stdlib/source/lux/lang/syntax.lux +++ b/stdlib/source/lux/lang/syntax.lux @@ -304,7 +304,7 @@ (def: frac-ratio-fragment (l.Lexer Frac) (<| (p.codec number.Codec<Text,Frac>) - (:: p.Monad<Parser> map (function [digits] + (:: p.Monad<Parser> map (function (_ digits) (format digits ".0"))) rich-digits^)) @@ -600,7 +600,7 @@ (def: (ast current-module aliases) (-> Text Aliases Cursor (l.Lexer [Cursor Code])) (: (-> Cursor (l.Lexer [Cursor Code])) - (function ast' [where] + (function (ast' where) (do p.Monad<Parser> [where (left-padding^ where)] ($_ p.either |