summaryrefslogtreecommitdiffstats
path: root/scmhob.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
commit302e3218b7d487539ec305bf23881a6ee7d5be99 (patch)
treebf1adafe552a17b3b78522048bb7c24787696dd3 /scmhob.scm
parentc7d035ae1a729232579a0fe41ed5affa131d3623 (diff)
downloadscm-302e3218b7d487539ec305bf23881a6ee7d5be99.tar.gz
scm-302e3218b7d487539ec305bf23881a6ee7d5be99.zip
Import Upstream version 5e1upstream/5e1
Diffstat (limited to 'scmhob.scm')
-rw-r--r--scmhob.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/scmhob.scm b/scmhob.scm
index bdef580..c1912c5 100644
--- a/scmhob.scm
+++ b/scmhob.scm
@@ -32,6 +32,11 @@
(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?)