Changeset 3696


Ignore:
Timestamp:
Apr 14, 2008, 8:44:28 PM (13 years ago)
Author:
orlov
Message:
  • Fixed bug with &-references in cmd-line parser.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_parse.rf

    r3681 r3696  
    719719        {
    720720          <Get_Expected_Token WORD QWORD> :: (e.pos) (s.WORDorQWORD e.origCallName),
    721             (STUB_NAME CALL (e.pos) (s.WORDorQWORD e.origCallName));// :: e.qname,
     721            (STUB_NAME CALL (e.pos) (s.WORDorQWORD e.origCallName));
    722722          <Add_Error (e.pos) (<Token_Descr LBRACKET>" should be followed by an identifier")>;
    723723        } :: e.qname,
     
    767767      REF =
    768768      {
    769         (REF (STUB_NAME REF <Get_Expected_Token WORD QWORD>));
     769        (REF ((STUB_NAME REF <Get_Expected_Token WORD QWORD>)));
    770770        <Add_Error (e.pos) (<Token_Descr REF>" should be followed by an identifier")>;
    771771      };
     
    784784
    785785Lookup_Names {
    786   (STUB_NAME s.tag (e.pos) (s.WORDorQWORD e.origName)) e.rest_terms =
     786  (STUB_NAME s.tag (e.pos) (s.WORDorQWORD e.origName)) =
    787787    <Make_Name e.origName> :: e.name,
    788788    {
     
    815815        <Add_Error (e.declPos) ("  '" e.origDeclName "' is declared here as " s.declType)>;;
    816816    },
    817     e.qname <Lookup_Names e.rest_terms>;
     817    e.qname;
    818818  (e.expr) e.rest_terms = (<Lookup_Names e.expr>) <Lookup_Names e.rest_terms>;
    819819  s.symbol e.rest_terms = s.symbol <Lookup_Names e.rest_terms>;
Note: See TracChangeset for help on using the changeset viewer.