fix special 'power' case

Author: ZacLN

src/components/operators.jl

@@ -151,7 +151,7 @@ function parse_unary(ps::ParseState, op)
     K,dot = op.kind, op.dot
     if is_colon(op)
         return parse_unary_colon(ps, op)
-    elseif (is_plus(op) || is_minus(op)) && (ps.nt.kind ==  Tokens.INTEGER || ps.nt.kind == Tokens.FLOAT) && isemptyws(ps.ws)
+    elseif (is_plus(op) || is_minus(op)) && (ps.nt.kind ==  Tokens.INTEGER || ps.nt.kind == Tokens.FLOAT) && isemptyws(ps.ws) && ps.nnt.kind!=Tokens.CIRCUMFLEX_ACCENT
         arg = LITERAL(next(ps))
         return LITERAL(op.fullspan + arg.fullspan, first(arg.span):(last(arg.span) + length(op.span)), string(is_plus(op) ? "+" : "-" , val(ps.t, ps)), ps.t.kind)
         return arg

test/parser.jl

@@ -688,12 +688,12 @@ end
     m = first(methods(f))
     @test DSE.keywords(f, m) == [:a, :b]
 end""" |> test_expr
+    @test "-1^a" |> test_expr_broken
 end
 
 @testset "Broken things" begin
     @test_broken "\$(a) * -\$(b)" |> test_expr_broken
     @test_broken "function(f, args...; kw...) end" |> test_expr_broken
-    @test_broken "-1^a" |> test_expr_broken
 end
 
 # test_fsig_decl(str) = (x->x.id).(CSTParser._get_fsig(CSTParser.parse(str)).defs)