Unified · Split
| @@ -51,7 +51,7 @@ init(ctxt: ref Context, argv: list of string) · 50 unmodified lines | |||
| 51 | sys->unmount(nil, "/"); | 51 | sys->unmount(nil, "/"); |
| 52 | 52 | ||
| 53 | program: string = "wm/wm " + appname; | 53 | program: string = "wm/wm " + appname; |
| 54 | args: list of string = "sh"::"-c"::program::nil; | 54 | args := list of {"sh", "-c", program}; |
| 55 | 55 | ||
| 56 | # We do not need to span a new process here. | 56 | # We do not need to span a new process here. |
| 57 | sh->init(ctxt, args); | 57 | sh->init(ctxt, args); |