Changeset 1172 for to-imperative/trunk/library/StdIO/read_m_line.cc

Timestamp:

Aug 13, 2003, 12:43:51 AM (17 years ago)

Author:

orlov

Message:

• Read-Line calls Read-Line! through TAILCALL for the correct handling of $fail-s.

File:

• to-imperative/trunk/library/StdIO/read_m_line.cc (modified) (1 diff)

to-imperative/trunk/library/StdIO/read_m_line.cc

@@ -45 +45 @@
 
 RF_FUNC (Read_m_Line, (), (RF_RES _line))
-  RF_CALL(Read_m_Line_e_, (StdIn), (_line));
+  RF_TAILCALL(Read_m_Line_e_, (StdIn), (_line));
 RF_END