This file is indexed.

/usr/share/gauche-0.9/0.9.5/lib/srfi-31.scm is in gauche 0.9.5-1.

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
;;
;; SRFI-31
;;

;; This implementation is taken from http://srfi.schemers.org/srfi-31/,
;; copyrighted by Mirko Luedde.
;; Shiro Kawai added a small Gauche module cliches and error clause.
;; standard gauche-init.scm autoloads this.

(define-module srfi-31
  (export rec))
(select-module srfi-31)

(define-syntax rec
  (syntax-rules ()
    ((rec (name . variables) . body)
     (letrec ((name (lambda variables . body)) ) name))
    ((rec name expression)
     (letrec ((name expression) ) name))
    ((rec . _)
     (syntax-error "malformed rec" (rec . _)))
    ))