--- rpl/src/instructions_o1.c 2010/01/26 15:22:45 1.1.1.1 +++ rpl/src/instructions_o1.c 2010/03/05 11:20:08 1.5 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.9 + RPL/2 (R) version 4.0.12 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -3187,7 +3187,6 @@ instruction_open(struct_processus *s_eta strcpy((*((struct_descripteur_fichier *) (*l_element_courant) .donnee)).nom, (*((struct_fichier *) (*s_objet_resultat) .objet)).nom); - } else if (type_arguments == 'S') {