From 302e3218b7d487539ec305bf23881a6ee7d5be99 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 5e1 --- scmhob.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'scmhob.scm') 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?) -- cgit v1.2.3