diff options
author | Ludovic Court`es | 2007-04-03 13:45:57 +0000 |
---|---|---|
committer | Ludovic Court`es | 2007-04-03 13:45:57 +0000 |
commit | a5795533336152ba0e8534ea0fcef220ce04ccf5 (patch) | |
tree | 87ac50eeb02cec3963152c9a9b7b6e2bc07798e6 /src/guile/skribilo.scm | |
parent | 1d230301e1f70d39b6e5d96e12934546f1b126dd (diff) | |
download | skribilo-a5795533336152ba0e8534ea0fcef220ce04ccf5.tar.gz skribilo-a5795533336152ba0e8534ea0fcef220ce04ccf5.tar.lz skribilo-a5795533336152ba0e8534ea0fcef220ce04ccf5.zip |
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
Diffstat (limited to 'src/guile/skribilo.scm')
-rw-r--r-- | src/guile/skribilo.scm | 61 |
1 files changed, 28 insertions, 33 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 531b0fb..106fc71 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -4,34 +4,34 @@ main='(module-ref (resolve-module '\''(skribilo)) '\'main')' exec ${GUILE-guile} --debug -l $0 -c "(apply $main (cdr (command-line)))" "$@" !# -;;;; skribilo.scm -;;;; -;;;; Copyright © 2003-2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> -;;;; Copyright 2005, 2006 Ludovic Courtès <ludovic.courtes@laas.fr> -;;;; -;;;; -;;;; This program is free software; you can redistribute it and/or modify -;;;; it under the terms of the GNU General Public License as published by -;;;; the Free Software Foundation; either version 2 of the License, or -;;;; (at your option) any later version. -;;;; -;;;; This program is distributed in the hope that it will be useful, -;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;;; GNU General Public License for more details. -;;;; -;;;; You should have received a copy of the GNU General Public License -;;;; along with this program; if not, write to the Free Software -;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, -;;;; USA. - -;;;; Commentary: -;;;; -;;;; Usage: skribilo [ARGS] -;;;; -;;;; Process a skribilo document. -;;;; -;;;; Code: +;;; skribilo.scm -- The Skribilo document processor. +;;; +;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> +;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr> +;;; +;;; +;;; This program is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 2 of the License, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program; if not, write to the Free Software +;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, +;;; USA. + +;;; Commentary: +;;; +;;; Usage: skribilo [ARGS] +;;; +;;; Process a skribilo document. +;;; +;;; Code: @@ -406,11 +406,6 @@ Processes a Skribilo/Skribe source file and produces its output. (help-wanted (option-ref options 'help #f)) (version-wanted (option-ref options 'version #f))) - ;; Set up the debugging infrastructure. - (debug-enable 'debug) - (debug-enable 'backtrace) - (debug-enable 'procnames) - (cond (help-wanted (begin (skribilo-show-help) (exit 1))) (version-wanted (begin (skribilo-show-version) (exit 1)))) |