/usr/share/gauche-0.9/0.9.4/lib/text/tree.scm is in gauche 0.9.4-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ;;;
;;; test/tree.scm - lightweight text generation
;;;
;;; Public Domain.
;;;
(define-module text.tree
(export write-tree
tree->string)
)
(select-module text.tree)
(define-method write-tree (tree)
(write-tree tree (current-output-port)))
(define-method write-tree ((tree <list>) out)
(let loop ((tree tree))
(cond ((null? tree))
((pair? tree) (write-tree (car tree) out) (loop (cdr tree)))
(else (write-tree tree out)))))
(define-method write-tree ((tree <top>) out)
(display tree out))
(define (tree->string tree)
(with-output-to-string (lambda () (write-tree tree))))
|