summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-25 11:01:03 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-10-25 11:01:03 +0000
commitd1ca2c64230419163f7ad80436e83bd74fdb7b95 (patch)
treec3536f600b54e7c3db4bcc042354b4c43522f15e /libguile/simpos.c
parent31535422f5aa27febb86fbbf1030c2e2aa35e9f1 (diff)
downloadguile-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.c4
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;