From 0214c5a8483858d0dd89e74bf31ffcd043c65f92 Mon Sep 17 00:00:00 2001
From: "Kjetil S. Matheussen" <ksvalast@users.sourceforge.net>
Date: Wed, 21 Jan 2004 08:56:12 +0000
Subject: Clean-up before 0.0.2

svn path=/trunk/externals/k_guile/; revision=1276
---
 global.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'global.scm')

diff --git a/global.scm b/global.scm
index 334e04e..7fe7ecc 100644
--- a/global.scm
+++ b/global.scm
@@ -27,6 +27,7 @@
 (use-modules (ice-9 stack-catch))
 
 
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Misc. functions
 ;;
@@ -134,6 +135,10 @@
 ;; Backtrace (does not work properly)
 ;;
 ;;
+
+(define (pd-backtrace-eval string)
+  (eval-string string))
+
 (define (pd-display-errorfunc key . args)
   (let ((dasstack (make-stack #t)))
     (display-backtrace dasstack (current-output-port) #f #f)
@@ -149,6 +154,12 @@
 	       thunk
 	       pd-display-errorfunc))
 
+(define (pd-backtrace-runx func arg1) 
+  (stack-catch #t
+	       (lambda x
+		 (apply func x))
+	       pd-display-errorfunc))
+
 (define (pd-backtrace-run1 func arg1)
   (stack-catch #t
 	       (lambda ()
@@ -173,6 +184,6 @@
 		 (func arg1 arg2 arg3 arg4))
 	       pd-display-errorfunc))
 
-
 (pd-backtrace-run1 pd-load-if-exists "/etc/.k_guile.scm")
 (pd-backtrace-run1 pd-load-if-exists (string-append (getenv "HOME") "/.k_guile.scm"))
+
-- 
cgit v1.2.1