Reduced reliance on the debugging evaluator (improves performance).

* src/guile/skribilo.scm (skribilo): Do not impose use of the debugging
  evaluator, allowing for significant performance improvements.

* src/guile/skribilo/evaluator.scm (%evaluate): Use the debugging
  evaluator when evaluating EXPR.

* src/guile/skribilo/location.scm (invocation-location): Return `#f' when
  the debugging evaluator is not being used.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-41

1 files changed, 12 insertions, 10 deletions

diff --git a/src/guile/skribilo/evaluator.scm b/src/guile/skribilo/evaluator.scm
index 0598c86..3e984fc 100644
--- a/src/guile/skribilo/evaluator.scm
+++ b/src/guile/skribilo/evaluator.scm
@@ -62,16 +62,18 @@
   ;; Evaluate EXPR in the current module.  EXPR is an arbitrary S-expression
   ;; that may contain calls to the markup functions defined in a markup
   ;; package such as `(skribilo package base)', e.g., `(bold "hello")'.
-  (let ((result (eval expr module)))
-    (if (ast? result)
-        (let ((file (source-property expr 'filename))
-              (line (source-property expr 'line))
-              (column (source-property expr 'column)))
-          (slot-set! result 'loc
-                     (make <location>
-                       :file file :line line :pos column))))
-
-    result))
+  (let ((opts (debug-options)))
+    (dynamic-wind
+        (lambda ()
+          ;; Force use of the debugging evaluator so that we can track source
+          ;; location.
+          (debug-enable 'debug)
+          (debug-enable 'backtrace))
+        (lambda ()
+          (eval expr module))
+        (lambda ()
+          ;; Restore previous evaluator options.
+          (debug-options opts)))))
 
 
 ;;;