Partial rewrite of the debugging facilities (slightly slower).

* src/guile/skribilo.scm (skribilo): Use the new debugging API.

* src/guile/skribilo/debug.scm: Use SRFI-39 parameter objects.
  Moved legacy procedures to `compat.scm'.

* src/guile/skribilo/utils/compat.scm (set-skribe-debug!): New.
  (no-debug-color): New.
  (skribe-debug): New.
  (add-skribe-debug-symbol): New.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-44

1 files changed, 17 insertions, 0 deletions

diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm
index 9ed9f3e..d4a4367 100644
--- a/src/guile/skribilo/utils/compat.scm
+++ b/src/guile/skribilo/utils/compat.scm
@@ -31,6 +31,7 @@
   :use-module (ice-9 optargs)
   :autoload   (skribilo ast) (ast?)
   :autoload   (skribilo condition) (file-search-error? &file-search-error)
+  :use-module (skribilo debug)
   :re-export (file-size)
   :replace (gensym))
 
@@ -166,6 +167,22 @@
 (define-public skribe-eval         evaluate-document)
 (define-public skribe-eval-port    evaluate-document-from-port)
 
+
+;;;
+;;; Debugging facilities.
+;;;
+
+(define-public (set-skribe-debug! val)
+  (*debug* val))
+
+(define-public (no-debug-color)
+  (*debug-use-colors?* #f))
+
+(define-public skribe-debug *debug*)
+
+(define-public (add-skribe-debug-symbol s)
+  (*watched-symbols* (cons s *watched-symbols*)))
+
 
 
 ;;;