diff options
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r-- | libguile/simpos.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index 062853ae8..f8f1ab940 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -85,8 +85,8 @@ SCM_DEFINE (scm_system, "system", 0, 1, 0, SCM_VALIDATE_ROSTRING (1,cmd); SCM_DEFER_INTS; errno = 0; - if (SCM_ROSTRINGP (cmd)) - cmd = scm_makfromstr (SCM_ROCHARS (cmd), SCM_ROLENGTH (cmd), 0); + if (SCM_SUBSTRP (cmd)) + cmd = scm_makfromstr (SCM_ROCHARS (cmd), SCM_STRING_LENGTH (cmd), 0); rv = system(SCM_ROCHARS(cmd)); if (rv == -1 || (rv == 127 && errno != 0)) SCM_SYSERROR; |