From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Bruce Korb Newsgroups: gmane.lisp.guile.devel Subject: Progress in porting to 1.7, but still work to do Date: Sun, 4 Dec 2005 13:52:40 -0800 Organization: GNU Message-ID: <200512041352.40509.bkorb@gnu.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1133733232 7506 80.91.229.2 (4 Dec 2005 21:53:52 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 4 Dec 2005 21:53:52 +0000 (UTC) Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Sun Dec 04 22:53:44 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1Ej1mh-0005bu-VJ for guile-devel@m.gmane.org; Sun, 04 Dec 2005 22:52:40 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ej1mo-00015e-Ck for guile-devel@m.gmane.org; Sun, 04 Dec 2005 16:52:46 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ej1mk-00015O-Rz for guile-devel@gnu.org; Sun, 04 Dec 2005 16:52:42 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ej1mi-00014x-76 for guile-devel@gnu.org; Sun, 04 Dec 2005 16:52:42 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ej1mi-00014u-4F for guile-devel@gnu.org; Sun, 04 Dec 2005 16:52:40 -0500 Original-Received: from [207.115.63.77] (helo=pimout1-ext.prodigy.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Ej1n6-0005mX-7K for guile-devel@gnu.org; Sun, 04 Dec 2005 16:53:04 -0500 X-ORBL: [69.226.209.231] Original-Received: from [192.168.1.4] (adsl-69-226-209-231.dsl.pltn13.pacbell.net [69.226.209.231]) by pimout1-ext.prodigy.net (8.13.4 outbound domainkey aix/8.13.4) with ESMTP id jB4LqV6e086330 for ; Sun, 4 Dec 2005 16:52:31 -0500 Original-To: guile-devel@gnu.org User-Agent: KMail/1.7.1 Content-Disposition: inline X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:5452 Archived-At: 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