diff options
Diffstat (limited to 'scripts/bootstrap')
| -rwxr-xr-x | scripts/bootstrap | 7 |
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)) (help))) (define (usage) |