Unified · Split
| @@ -51,7 +51,7 @@ init(ctxt: ref Context, argv: list of string) · 50 unmodified lines | ||
| 51 | 51 | sys->unmount(nil, "/"); |
| 52 | 52 | |
| 53 | 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 | 56 | # We do not need to span a new process here. |
| 57 | 57 | sh->init(ctxt, args); |