source: to-imperative/trunk/java/refal/refal/plus/Error.rf @ 3989

Last change on this file since 3989 was 3614, checked in by yura, 13 years ago
  • Refal Library on Refal+ is coped to java - folder java contais both java and refal.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 279 bytes
Line 
1// $Id: Error.rf 3614 2008-03-29 22:03:50Z orlov $
2
3$use Class Convert List;
4
5Lib_Error (e.fname) error, {
6  $error e.fname error;
7  e.fname : e s.name, error : e s.w e, <IsWord s.w> =  // If compatible is on.
8    $error s.name s.w;
9};
10
11Not_Available e.name =
12  $error <ToWord <Intersperse ('.') e.name>> "Not available";
Note: See TracBrowser for help on using the repository browser.