This file is indexed.

/usr/lib/scm/scmhob.scm is in scm 5e5-3.3+b2.

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
;;;; "scmhob.scm" Scheme runtime support for hobbit.
;For interpretation of code meant for compilation by hobbit.  Never compile!

; bitwise operations: logical shift left and logical shift right
(define (logsleft x y) (ash x y)) (define (logsright x y) (ash x (- 0 y)))
(define logical:logand logand) (define logical:logior logior)
(define logical:logxor logxor) (define logical:lognot lognot)
; immediate-integer (30-bit signed int) versions of arithmetic primitives:
(define %number? number?) (define %eqv? eqv?) (define %zero? zero?)
(define %negative? negative?) (define %positive? positive?)
(define %= =) (define %< <) (define %> >) (define %<= <=) (define %>= >=)
(define %+ +) (define %- -) (define %* *) (define %/ /)