diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt
index 1159a92..cfb494e 100644
--- 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)))