chore: move includeStr elaborator

src/Lean/Elab.lean

@@ -43,4 +43,3 @@ import Lean.Elab.BuiltinCommand
 import Lean.Elab.RecAppSyntax
 import Lean.Elab.Eval
 import Lean.Elab.Calc
-import Lean.Elab.IncludeStr

src/Lean/Elab/BuiltinTerm.lean

@@ -4,6 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE.
 Authors: Leonardo de Moura
 -/
 import Lean.Elab.Term
+import Lean.Elab.Eval
 
 namespace Lean.Elab.Term
 open Meta
@@ -304,4 +305,21 @@ private def mkSilentAnnotationIfHole (e : Expr) : TermElabM Expr := do
     withInfoContext' stx (elabTerm e expectedType?) (mkTermInfo .anonymous (expectedType? := expectedType?) stx)
   | _ => throwUnsupportedSyntax
 
+private unsafe def evalFilePathUnsafe (stx : Syntax) : TermElabM System.FilePath :=
+  evalTerm System.FilePath (Lean.mkConst ``System.FilePath) stx
+
+@[implementedBy evalFilePathUnsafe]
+private opaque evalFilePath (stx : Syntax) : TermElabM System.FilePath
+
+@[builtinTermElab includeStr] def elabIncludeStr : TermElab
+  | `(include_str $path:term), _ => do
+    let path ← evalFilePath path
+    let ctx ← readThe Lean.Core.Context
+    let srcPath := System.FilePath.mk ctx.fileName
+    let some srcDir := srcPath.parent
+      | throwError "cannot compute parent directory of '{srcPath}'"
+    let path := srcDir / path
+    mkStrLit <$> IO.FS.readFile path
+  | _, _ => throwUnsupportedSyntax
+
 end Lean.Elab.Term

src/Lean/Elab/IncludeStr.lean

@@ -1,29 +0,0 @@
-/-
-Copyright (c) 2021 Henrik Böving. All rights reserved.
-Released under Apache 2.0 license as described in the file LICENSE.
-Authors: Henrik Böving, Xubai Wang, Wojciech Nawrocki
--/
-
-import Lean.Elab.Term
-import Lean.Elab.Eval
-
-namespace Lean.Elab.Term
-
-private unsafe def evalFilePathUnsafe (stx : Syntax) : TermElabM System.FilePath :=
-  evalTerm System.FilePath (Lean.mkConst ``System.FilePath) stx
-
-@[implementedBy evalFilePathUnsafe]
-private opaque evalFilePath (stx : Syntax) : TermElabM System.FilePath
-
-@[builtinTermElab includeStr] def elabIncludeStr : TermElab
-  | `(include_str $path:term), _ => do
-    let path ← evalFilePath path
-    let ctx ← readThe Lean.Core.Context
-    let srcPath := System.FilePath.mk ctx.fileName
-    let some srcDir := srcPath.parent
-      | throwError "cannot compute parent directory of '{srcPath}'"
-    let path := srcDir / path
-    mkStrLit <$> IO.FS.readFile path
-  | _, _ => throwUnsupportedSyntax
-
-end Lean.Elab.Term