Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
matthid committed Jun 18, 2016
1 parent 9e5704c commit e997cab
Show file tree
Hide file tree
Showing 5 changed files with 23 additions and 11 deletions.
4 changes: 2 additions & 2 deletions 1.fsx
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@

#load "2.fsx"

``2``.func()
#load "3.fsx"
printfn "HELLO FROM 1"
5 changes: 2 additions & 3 deletions 2.fsx
Original file line number Diff line number Diff line change
@@ -1,4 +1,3 @@

let func = (fun () ->
printfn "This shouldn't work"
) )
#load "4.fsx"
printfn "HELLO FROM 2 %A" ``4``.T
3 changes: 3 additions & 0 deletions 3.fsx
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@

#load "4.fsx"
printfn "HELLO FROM 3"
3 changes: 3 additions & 0 deletions 4.fsx
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@

printfn "HELLO FROM 4"
type T = T
19 changes: 13 additions & 6 deletions Repro/Main.fs
Original file line number Diff line number Diff line change
Expand Up @@ -7,14 +7,21 @@ open System.Reflection
//Environment.CurrentDirectory <- @"C:\PROJ\FSharp.Compiler.Service_585\bin"
let script1FilePath = Path.GetFullPath @"1.fsx"
let script2FilePath = Path.GetFullPath @"2.fsx"
File.WriteAllText(script2FilePath, @"
let func = (fun () ->
printfn ""This shouldn't work""
) )");
let script3FilePath = Path.GetFullPath @"3.fsx"
let script4FilePath = Path.GetFullPath @"4.fsx"
File.WriteAllText(script1FilePath, @"
#load ""2.fsx""
``2``.func()");
#load ""3.fsx""
printfn ""HELLO FROM 1""")
File.WriteAllText(script2FilePath, @"
#load ""4.fsx""
printfn ""HELLO FROM 2 %A"" ``4``.T")
File.WriteAllText(script3FilePath, @"
#load ""4.fsx""
printfn ""HELLO FROM 3""")
File.WriteAllText(script4FilePath, @"
printfn ""HELLO FROM 4""
type T = T")
open Microsoft.FSharp.Compiler.Interactive.Shell

[<EntryPoint>]
Expand Down

0 comments on commit e997cab

Please sign in to comment.