;'<<SPEC'
<!--
Copyright (c) 2012-2024, Chris Pressey, Cat's Eye Technologies.
This file is distributed under a 2-clause BSD license. See LICENSES/ dir.
SPDX-License-Identifier: LicenseRef-BSD-2-Clause-X-Robin
-->
### `gte?` ###
-> Tests for functionality "Evaluate Robin Expression (with Arith)"
`gte?` evaluates both of its arguments to numbers, then evaluates to `#t`
if the first number is greater than or equal to the second.
| (gte? 6 4)
= #t
| (gte? 6 8)
= #f
| (gte? 6 6)
= #t
| (gte? 1610612736 (subtract 0 1610612736)))
= #t
| (gte? (subtract 0 1610612736) 1610612736)
= #f
`gte?` expects exactly two arguments, both numbers.
| (gte? 14)
? abort (illegal-arguments
| (gte? 14 23 57)
? abort (illegal-arguments
| (gte? 14 #t)
? abort (expected-number #t)
| (gte? #t 51)
? abort (expected-number #t)
'<<SPEC'
(define gte? (fun (a b)
(if (equal? a b) #t (gt? a b))))