Check nargs when extracting doc expressions (#221)

Ref JuliaLang/julia#31470 (comment)

Author: timholy

src/construct.jl

@@ -411,7 +411,7 @@ function split_expressions!(modexs, docexprs, lex::Expr, mod::Module, ex::Expr;
             end
         end
         split_expressions!(modexs, docexprs, lex, newmod, ex.args[3]; extract_docexprs=extract_docexprs, filename=filename)
-    elseif extract_docexprs && is_doc_expr(ex)
+    elseif extract_docexprs && is_doc_expr(ex) && length(ex.args) >= 4
         docexs = get(docexprs, mod, nothing)
         if docexs === nothing
             docexs = docexprs[mod] = Expr[]

test/toplevel.jl

@@ -16,6 +16,11 @@ end
     end
     @test JuliaInterpreter.is_doc_expr(ex.args[2])
     @test !JuliaInterpreter.is_doc_expr(:(1+1))
+    ex = :(@doc doc"""
+       bla
+       """)
+    modexs, docexs = JuliaInterpreter.split_expressions(Main, ex; extract_docexprs=true)
+    @test isempty(docexs)
 
     @test JuliaInterpreter.prepare_thunk(Main, :(export foo)) === nothing
     @test JuliaInterpreter.prepare_thunk(Base.Threads, :(global Condition)) === nothing