diff options
author | Thomas Bushnell <tb@debian.org> | 2008-02-04 20:53:13 -0500 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:41 -0800 |
commit | e9ed1ad5236ca6314136c4220ac672167b643fc5 (patch) | |
tree | 5b3d3a3b8c604225515a3ac6b09b6d036b14d165 /scmhob.scm | |
parent | 4bf8faaea412b017e299fd17a1b736119c86f18c (diff) | |
parent | 90889a692076f2c62486607d0354e0fca52364bc (diff) | |
download | scm-d7a29e568003654f9910c885f6cf96ef83836b62.tar.gz scm-d7a29e568003654f9910c885f6cf96ef83836b62.zip |
Import Debian changes 5e5-1debian/5e5-1
scm (5e5-1) unstable; urgency=low
* New upstream release.
* continue.h: Repeat change from 5e1-2.
* xgen.scm: Repeat change from 5e2-4.
* scm.1: Repeat change from 5e2-4.
* build.scm: Repeat change from 5e3-5.
* Makefile: Repeat change from 5e3-2.
* debian/control (Build-Depends): Require at least version 3b1 of slib.
(scm Depends): Likewise.
(libscm-dev Depends): Likewise.
* Makefile (scm.info): Add explicit dependency on features.txi and
platform.txi. For some reason the one through $(texifiles) is
failing mysteriously. Perhaps this is a make bug.
Diffstat (limited to 'scmhob.scm')
-rw-r--r-- | scmhob.scm | 62 |
1 files changed, 9 insertions, 53 deletions
@@ -1,56 +1,12 @@ -;==================================================================== -; -; 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. -; -;==================================================================== +;;;; "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) - +(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 %/ /) - +(define %number? number?) (define %eqv? eqv?) (define %zero? zero?) +(define %negative? negative?) (define %positive? positive?) +(define %= =) (define %< <) (define %> >) (define %<= <=) (define %>= >=) +(define %+ +) (define %- -) (define %* *) (define %/ /) |