diff options
Diffstat (limited to 'nclients.scm')
| -rw-r--r-- | nclients.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/nclients.scm b/nclients.scm index 08f3d0b..8b778b8 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 |