suzanne.soy/macrotypes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
AlexKnauth 2017-03-30 10:16:59 -07:00
parent 28fa4dfb48
commit 84b5a8759f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
macrotypes/stx-utils.rkt
View File

@ -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)))