1;; Copyright (C) 2014-2020 Free Software Foundation, Inc. 2;; 3;; This program is free software; you can redistribute it and/or modify 4;; it under the terms of the GNU General Public License as published by 5;; the Free Software Foundation; either version 3 of the License, or 6;; (at your option) any later version. 7;; 8;; This program is distributed in the hope that it will be useful, 9;; but WITHOUT ANY WARRANTY; without even the implied warranty of 10;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11;; GNU General Public License for more details. 12;; 13;; You should have received a copy of the GNU General Public License 14;; along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16(use-modules (gdb)) 17 18;; Create a set of functions to call, with the last one having an error, 19;; so we can test backtrace printing. 20 21(define foo #f) 22 23(define (top-func x) 24 (+ (middle-func x) 1)) 25 26(define (middle-func x) 27 (+ (bottom-func x) 1)) 28 29(define (bottom-func x) 30 (+ x foo)) 31