Progress in porting to 1.7, but still work to do

[Bruce Korb]

I have *two* problems.  First, after emitting the error text below,
Guile 1.7.2 is calling, "exit(0)" not "exit(EXIT_FAILURE)".
That's wrong.  Additionally, I am not getting the file/line
stuff using the code I thought we worked out.

--- error.out6  Sun Dec  4 13:41:27 2005
***************
*** 1,5 ****
! error.tpl6:7:4: In expression (stumble-over-unbound-variable):
! error.tpl6:7:4: Unbound variable: stumble-over-unbound-variable
  Scheme evaluation error.  AutoGen ABEND-ing in template
        error.tpl6 on line 3
  Failing Guile command:  = = = = =
--- 1,4 ----
! ERROR: Unbound variable: stumble-over-unbound-variable
  Scheme evaluation error.  AutoGen ABEND-ing in template
        error.tpl6 on line 3
  Failing Guile command:  = = = = =
+ exit 1

Wasn't this supposed to work?

    SCM port = scm_open_input_string( scm_from_locale_string( pzExpr ));

    {
        static SCM file = SCM_UNDEFINED;
        static char* pzOldFile = NULL;

        if ((pzOldFile == NULL) || (strcmp( pzOldFile, pzFile ) != 0)) {
            if (pzOldFile != NULL)
                free( pzOldFile );

            pzOldFile = strdup( pzFile );
        }

        file = scm_from_locale_string( pzFile );
        scm_set_port_filename_x( port, file );
    }

    {
        SCM ln = scm_from_int( line );
        scm_set_port_line_x( port, ln );
    }

    {
        SCM ans = SCM_UNSPECIFIED;

        /* Read expressions from that port; ignore the values.  */
        for (;;) {
            SCM form = scm_read( port );
            if (SCM_EOF_OBJECT_P( form ))
                break;
            ans = scm_primitive_eval_x( form );
        }

        return ans;
    }