summaryrefslogtreecommitdiffstats
path: root/nclients.scm
diff options
context:
space:
mode:
Diffstat (limited to 'nclients.scm')
-rw-r--r--nclients.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/nclients.scm b/nclients.scm
index 530683d..96c36c9 100644
--- a/nclients.scm
+++ b/nclients.scm
@@ -116,7 +116,7 @@
(read-line port) ;past newline
(do ((line (read-line port) (read-line port)))
((not (and (string? line)
- (string-index line #\=))))
+ (strsrch:string-index line #\=))))
(sscanf line "HostName=%s" compname)
(sscanf line "DomainName=%s" workgroup)))))
(not user)
@@ -126,7 +126,7 @@
(read-line port) ;past newline
(do ((line (read-line port) (read-line port)))
((not (and (string? line)
- (string-index line #\=))))
+ (strsrch:string-index line #\=))))
(sscanf line "UserName=%s" user))))))
(if (and compname (not hostname))
(set! hostname