Raymond Toy pushed to branch issue-306-lisp.c at cmucl / cmucl
Commits:
-
a21feb6f
by Raymond Toy at 2024-07-24T08:49:54-07:00
1 changed file:
Changes:
| ... | ... | @@ -164,9 +164,8 @@ default_cmucllib(const char *argv0arg) |
| 164 | 164 | if (argv0_dir[0] == '/') {
|
| 165 | 165 | cwd = malloc(strlen(argv0_dir) + 2);
|
| 166 | 166 | check_ptr(cwd, "No space to duplicate argv0");
|
| 167 | -
|
|
| 168 | - strcpy(cwd, argv0_dir);
|
|
| 169 | - strcat(cwd, "/");
|
|
| 167 | + |
|
| 168 | + sprintf(cwd, "%s/", argv0_dir);
|
|
| 170 | 169 | if (debug_lisp_search) {
|
| 171 | 170 | fprintf(stderr, "absolute path, argv[0] = %s\n", cwd);
|
| 172 | 171 | }
|