path: root/scripts
diff options
authorSergey Poznyakoff <gray@gnu.org>2015-01-06 21:25:40 +0200
committerSergey Poznyakoff <gray@gnu.org>2015-01-06 21:25:40 +0200
commitad8c9359649fa7123efc46a98c6cec0dd44f34c8 (patch)
tree7520e988989d32f68c67fc4345d32ea688799058 /scripts
parentf6e7047f4ffa82b22425c57b23005c5af9dd5b4f (diff)
Update for Guile 2.0
* configure.ac (AM_C_PROTOTYPES): Remove. * gint: Upgrade * modules/expat (libgamma_expat_la_CPPFLAGS): Add AM_CPPFLAGS * scripts/bootstrap: Fix deprecation warnings. (grammar): Fix definition of --parents * src/Makefile.am: Use AM_CPPFLAGS instead of INCLUDES * src/eval.c (scheme_exec_data) <result> Remove. (scheme_safe_exec_body): Return result. (gamma_safe_exec): Use scm_c_catch instead of scm_internal_lazy_catch. * src/gamma-expat.c (gamma_xml_parser_create) (make_user_data): Use scm_malloc instead of scm_gc_malloc. * src/expat.sci: Don't load (ice-9 syncase) when using Guile 2.0 * src/sql.sci: Likewise.
Diffstat (limited to 'scripts')
1 files changed, 4 insertions, 3 deletions
diff --git a/scripts/bootstrap b/scripts/bootstrap
index 9c37074..264d1a7 100755
--- a/scripts/bootstrap
+++ b/scripts/bootstrap
@@ -4,7 +4,7 @@ main='(module-ref (resolve-module '\''(scripts bootstrap)) '\'main')'
exec ${GUILE-guile} -l $0 -c "(apply $main (cons \"$0\" (cdr (command-line))))" "$@"
;;;; This file is part of Gamma.
-;;;; Copyright (C) 2010 Sergey Poznyakoff
+;;;; Copyright (C) 2010, 2015 Sergey Poznyakoff
;;;; Gamma is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@@ -26,7 +26,8 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cons \"$0\" (cdr (command-line))))"
:use-module (ice-9 popen)
:use-module (srfi srfi-1))
-(debug-enable 'debug)
+(if (= (string->number (major-version)) 1)
+ (debug-enable 'debug))
(debug-enable 'backtrace)
(define module-dir #f)
@@ -51,7 +52,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cons \"$0\" (cdr (command-line))))"
(modconfig-defun (value #t))
(reconfigure (value #t))
(files-from (single-char #\T) (value #t))
- (parents (single-char #\p (value #t)))
+ (parents (single-char #\p) (value #f))
(define (usage)

Return to:

Send suggestions and report system problems to the System administrator.