Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commitd1329ac

Browse files
authored
Merge pull requestfsharp#767 from dsyme/evloop1
fix fsharpi gui message
2 parentsef66d5d +2c22407 commitd1329ac

File tree

1 file changed

+6
-4
lines changed

1 file changed

+6
-4
lines changed

‎src/fsharp/fsi/fsimain.fs‎

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -251,21 +251,23 @@ let evaluateSession(argv: string[]) =
251251
member__.ReportUserCommandLineArgs args= fsiConfig0.ReportUserCommandLineArgs args
252252
member__.EventLoopRun()=
253253
#if!FX_NO_WINFORMS
254-
match fsiWinFormsLoop.Valuewith
254+
match(if fsiSession.IsGuithenfsiWinFormsLoop.Valueelse None)with
255255
| Some l->(l:> IEventLoop).Run()
256256
|_->
257257
#endif
258258
fsiConfig0.EventLoopRun()
259+
259260
member__.EventLoopInvoke(f)=
260261
#if!FX_NO_WINFORMS
261-
match fsiWinFormsLoop.Valuewith
262+
match(if fsiSession.IsGuithenfsiWinFormsLoop.Valueelse None)with
262263
| Some l->(l:> IEventLoop).Invoke(f)
263264
|_->
264265
#endif
265266
fsiConfig0.EventLoopInvoke(f)
267+
266268
member__.EventLoopScheduleRestart()=
267269
#if!FX_NO_WINFORMS
268-
match fsiWinFormsLoop.Valuewith
270+
match(if fsiSession.IsGuithenfsiWinFormsLoop.Valueelse None)with
269271
| Some l->(l:> IEventLoop).ScheduleRestart()
270272
|_->
271273
#endif
@@ -279,7 +281,7 @@ let evaluateSession(argv: string[]) =
279281
member__.GetOptionalConsoleReadLine(probe)= getConsoleReadLine(probe)}
280282

281283
// Create the console
282-
andfsiSession= FsiEvaluationSession.Create(fsiConfig, argv, Console.In, Console.Out, Console.Error, collectible=false, legacyReferenceResolver=MSBuildReferenceResolver.Resolver)
284+
andfsiSession:FsiEvaluationSession= FsiEvaluationSession.Create(fsiConfig, argv, Console.In, Console.Out, Console.Error, collectible=false, legacyReferenceResolver=MSBuildReferenceResolver.Resolver)
283285

284286

285287
#if!FX_NO_WINFORMS

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp