/usr/share/gauche-0.9/0.9.4/lib/srfi-31.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 | ;;
;; 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 . _)))
))
|