From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Bruce Korb Newsgroups: gmane.lisp.guile.devel,gmane.lisp.guile.user Subject: Re: PLEASE: debugging embedded guile code Date: Fri, 16 May 2003 14:56:46 -0700 Organization: Home Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Message-ID: <3EC55E9E.12D907E0@veritas.com> References: <20030225093608.6a8935f8.dsmith@altustech.com> <3EAAB691.6AD935B5@veritas.com> <3EAAE877.7140ECB6@veritas.com> <3EAC5266.23DEEB7F@veritas.com> <3EAD89DB.9B0A1367@veritas.com> <3EC51D90.DCD7EC5E@veritas.com> <3EC54994.50ED679A@veritas.com> <87fzneoadk.fsf@raven.i.defaultvalue.org> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1053121927 13638 80.91.224.249 (16 May 2003 21:52:07 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 16 May 2003 21:52:07 +0000 (UTC) Cc: Neil Jerram Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Fri May 16 23:52:05 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19Gn4V-0003LW-00 for ; Fri, 16 May 2003 23:49:00 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 19Gn5J-0005JC-03 for guile-devel@m.gmane.org; Fri, 16 May 2003 17:49:49 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 19Gn4U-0004VE-00 for guile-devel@gnu.org; Fri, 16 May 2003 17:48:58 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 19Gn4M-0004Mn-00 for guile-devel@gnu.org; Fri, 16 May 2003 17:48:51 -0400 Original-Received: from bay-bridge.veritas.com ([143.127.3.10] helo=mtvmime02.veritas.com) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 19Gn3u-0003Ml-00; Fri, 16 May 2003 17:48:23 -0400 Original-Received: from megami (unverified) by mtvmime02.veritas.com (Content Technologies SMTPRS 4.3.6) with SMTP id ; Fri, 16 May 2003 14:50:11 -0700 Original-Received: from veritas.com ([172.22.12.211]) (2533 bytes) by megami via sendmail with P:esmtp/R:smart_host/T:smtp (sender: ) id for ; Fri, 16 May 2003 14:48:21 -0700 (PDT) (Smail-3.2.0.101 1997-Dec-17 #15 built 2001-Aug-30) X-Mailer: Mozilla 4.8 [en] (X11; U; Linux 2.4.19-4GB i686) X-Accept-Language: en Original-To: Rob Browning Original-cc: guile-devel@gnu.org Original-cc: guile-user@gnu.org X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Developers list for Guile, the GNU extensibility library List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.devel:2374 gmane.lisp.guile.user:1966 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:2374 Rob Browning wrote: > I think perhaps this: > > >> SCM str = gh_str02scm( "...whatever..." ); > >> SCM proc = scm_c_lookup( "eval-client-input" ); > >> scm_call_1(proc, str); > > Should be > > SCM str = gh_str02scm( "...whatever..." ); > SCM proc_var = scm_c_lookup( "eval-client-input" ); > scm_call_1(SCM_VARIABLE_REF(proc), str); > > I believe scm_c_lookup returns variables rather than values. Better! But: ../agen5/autogen -L ../autoopts -Taginfo -bcolumns -DLEVEL=section \ ../columns/opts.def ERROR: Unbound variable: stack-catch ABEND-ing in LOAD_TPL state Failing Guile command: = = = = = (setenv "SHELL" "/bin/sh") * * * * * * * * * * * * * * * * * What is the "stack-catch" thing? Should it be pre-defined by Guile? Is it obsolete? Thanks!! - Bruce P.S. Here's the definition for eval-client-input that was suggested to me: (define (eval-client-input str) (stack-catch #t (lambda () (call-with-input-string str (lambda (p) (set-port-filename! p (tpl-file)) (set-port-line! p (string->number (tpl-file-line "%2$d"))) (list (primitive-eval (read p)))))) (lambda (key . args) (apply display-error (fluid-ref the-last-stack) (current-error-port) args) (set! stack-saved? #f) #f ) ) ) _______________________________________________ Guile-devel mailing list Guile-devel@gnu.org http://mail.gnu.org/mailman/listinfo/guile-devel