projects / mit-scheme.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 2c12e14) | patch
Provide expansions for fixnum comparison operators:
authorChris Hanson <org/chris-hanson/cph>
Tue, 16 Oct 1990 21:07:11 +0000 (21:07 +0000)
committerChris Hanson <org/chris-hanson/cph>
Tue, 16 Oct 1990 21:07:11 +0000 (21:07 +0000)
commit41b1bf494ec36840ef9778db909313cd0018f605
tree6a60e366223cc05bfcbd8fbd094818cae946e10etree | snapshot
parent2c12e14fa553869f85fd250d8771d3b9807d3ef8commit | diff
Provide expansions for fixnum comparison operators:

    (FIX:= X Y)   --->   (EQ? X Y)
    (FIX:ZERO? X) --->   (EQ? X 0)
    (FIX:<= X Y)  --->   (NOT (FIX:> X Y))
    (FIX:>= X Y)  --->   (NOT (FIX:< X Y))
v7/src/sf/gconst.scm diff | blob | history
v7/src/sf/make.scm diff | blob | history
v7/src/sf/usiexp.scm diff | blob | history
v8/src/sf/make.scm diff | blob | history
MIT/GNU Scheme, Pucked