Changeset 27 for trunk/orca/console.c

Timestamp:

02/07/06 16:12:19 (3 years ago)

Author:

krobillard

Message:

Added orResetEnv().

Files:

• trunk/orca/console.c (modified) (3 diffs)

trunk/orca/console.c

@@ -79 +79 @@
             if( ! orErrorIsType(OR_ERROR_QUIT) )
             {
-                orPrintNative( orErrorThrown );
-                ret = -1;
+                if( ! orErrorIsType(OR_ERROR_HALT) )
+                    orPrintNative( orErrorThrown );
+                orResetEnv( &env );
+                goto halt;
+                //ret = -1;
             }
         }
@@ -87 +90 @@
     {
         printf( "ORCA-Core %s (%s)\n", VERSION_STR, __DATE__ );
-
+halt:
         while( 1 )
         {
@@ -119 +122 @@
                     if( ! orErrorIsType(OR_ERROR_HALT) )
                         orPrintNative( orErrorThrown );
-                    orErrorClear;
+                    orResetEnv( &env );
                 }
                 else