diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2013-01-28 19:02:21 +0000 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2013-01-28 19:02:21 +0000 |
| commit | f627f77f23d1497c9e1f4269b5c8812d12b42f18 (patch) | |
| tree | 708772d83a8355e25155cf233d5a9e38f8ad4d96 /ipl/procs/calls.icn | |
| parent | 6ab0c0f5bf14ed9c15370407b9ee7e0b4b089ae1 (diff) | |
| download | icon-upstream.tar.gz | |
Imported Upstream version 9.5.0upstream/9.5.0upstream
Diffstat (limited to 'ipl/procs/calls.icn')
| -rw-r--r-- | ipl/procs/calls.icn | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ipl/procs/calls.icn b/ipl/procs/calls.icn index 6ebb8a1..00f6114 100644 --- a/ipl/procs/calls.icn +++ b/ipl/procs/calls.icn @@ -6,7 +6,7 @@ # # Author: Ralph E. Griswold # -# Date: March 25, 2002 +# Date: March 6, 2008 # ############################################################################ # @@ -137,7 +137,7 @@ procedure read_calltable(f) T := table() - every line := read(f) do + while line := read(f) do line ? { name := tab(upto('="')) | fail move(1) |