diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-25 11:01:03 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-10-25 11:01:03 +0000 |
commit | d1ca2c64230419163f7ad80436e83bd74fdb7b95 (patch) | |
tree | c3536f600b54e7c3db4bcc042354b4c43522f15e /libguile/simpos.c | |
parent | 31535422f5aa27febb86fbbf1030c2e2aa35e9f1 (diff) | |
download | guile-d1ca2c64230419163f7ad80436e83bd74fdb7b95.tar.gz |
* Some more work to get rid of SCM_LENGTH
* Eliminated some cell type bit fiddling
* Various minor changes
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; |