aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-doc.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-doc.boot')
-rw-r--r--src/interp/c-doc.boot7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot
index 60fdb741..19ab4bd4 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot
@@ -1247,11 +1247,10 @@ whoOwns(con) ==
quoteChar := char "_""
runCommand strconc('"awk '$2 == ",quoteChar,filename,quoteChar,'" {print $1}' whofiles > /tmp/temp")
instream := MAKE_-INSTREAM '"/tmp/temp"
- value :=
- EOFP instream => nil
- READLINE instream
+ value := readLine instream
SHUT instream
- value
+ value ~= %nothing => value
+ nil
--=======================================================================
-- Report Documentation Error