/usr/share/scheme48-1.9/r6rs/control.scm is in scheme48 1.9-5.
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 | ; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Robert Ransom
(define-syntax when
(syntax-rules ()
((when expr body ...)
(if expr (begin body ...)))))
(define-syntax unless
(syntax-rules ()
((unless expr body ...)
(if (not expr) (begin body ...)))))
|