www

commit 84b5a8759f415ccd64ac54c4dd75741adfc648c3
parent 28fa4dfb486734c7f4f5073c849e3b587f2a155a
Author: AlexKnauth <alexander@knauth.org>
Date:   Thu, 30 Mar 2017 10:16:59 -0700

add stx-length>=? and stx-length<=?

Diffstat:
M
macrotypes/stx-utils.rkt
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt
@@ -48,8 +48,9 @@
   (findf f (stx->list stx)))
 
 (define (stx-length stx) (length (stx->list stx)))
-(define (stx-length=? stx1 stx2)
-  (= (stx-length stx1) (stx-length stx2)))
+(define (stx-length=? stx1 stx2)   (= (stx-length stx1) (stx-length stx2)))
+(define (stx-length>=? stx1 stx2)  (>= (stx-length stx1) (stx-length stx2)))
+(define (stx-length<=? stx1 stx2)  (<= (stx-length stx1) (stx-length stx2)))
 
 (define (stx-last stx) (last (stx->list stx)))