From 84b5a8759f415ccd64ac54c4dd75741adfc648c3 Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Thu, 30 Mar 2017 10:16:59 -0700 Subject: [PATCH] =?UTF-8?q?add=20stx-length>=3D=3F=20and=20stx-length<=3D?= =?UTF-8?q?=3F?= --- macrotypes/stx-utils.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)))