unofficial mirror of guile-devel@gnu.org 
 help / color / mirror / Atom feed
* Progress in porting to 1.7, but still work to do
@ 2005-12-04 21:52 Bruce Korb
  2005-12-06 22:44 ` Neil Jerram
  0 siblings, 1 reply; 3+ messages in thread
From: Bruce Korb @ 2005-12-04 21:52 UTC (permalink / raw)



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;
    }


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel


^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2005-12-06 23:03 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-12-04 21:52 Progress in porting to 1.7, but still work to do Bruce Korb
2005-12-06 22:44 ` Neil Jerram
2005-12-06 23:03   ` Bruce Korb

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).