mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-03 13:20:26 +02:00
8746959cd3
* debugging/trc.scm: New file. * debugging/traps.scm: New file. * debugging/trace.scm: New file. * debugging/steps.scm: New file. * debugging/load-hooks.scm: New file. * debugging/ice-9-debugger-extensions.scm: New file. * debugging/example-fns.scm: New file. * debugging/breakpoints.scm: New file. * debugging/Makefile.am: New. * Makefile.am (SUBDIRS): Add debugging.
17 lines
276 B
Scheme
17 lines
276 B
Scheme
(define-module (ice-9 debugging example-fns)
|
|
#:export (fact1 fact2 facti))
|
|
|
|
(define (fact1 n)
|
|
(if (= n 0)
|
|
1
|
|
(* n (fact1 (- n 1)))))
|
|
|
|
(define (facti n a)
|
|
(if (= n 0)
|
|
a
|
|
(facti (- n 1) (* a n))))
|
|
|
|
(define (fact2 n)
|
|
(facti n 1))
|
|
|
|
; Test: (fact2 3)
|