Import Upstream version 5e1upstream/5e1

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?)