summaryrefslogtreecommitdiffstats
path: root/scmhob.scm
blob: c1912c5226c7e3197ee2008e22073b6dbfce5220 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
;====================================================================
;
;    scmhob.scm defines several procedures recognized
;    by the hobbit compiler as primitives, but not defined in scm or slib.
;      
;    Use scmhob when running code (meant for compilation by
;    hobbit) under interpreter. Never compile scmhob.scm!
;      
;    Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997 Tanel Tammet
;    tammet@cs.chalmers.se
;
;                        version 5x
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 1, or (at your option)
; any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
; 
;====================================================================

; 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 %eqv? eqv?)
(define %zero? zero?)
(define %negative? negative?)
(define %positive? positive?)
(define %number? number?)
(define %= =)
(define %< <)
(define %> >)
(define %<= <=)
(define %>= >=)
(define %+ +)
(define %- -)
(define %* *)
(define %/ /)