/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 %/ /)
|