Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add placeholder

Browse source
This commit is contained in:
Justin Ethier 2020-05-25 18:57:55 -04:00
parent cf3d2163e4
commit 972b896e2b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/base.sld
View file

@ -606,7 +606,13 @@
(define (string<=? str1 str2) (<= (string-cmp str1 str2) 0))
(define (string>? str1 str2) (> (string-cmp str1 str2) 0))
(define (string>=? str1 str2) (>= (string-cmp str1 str2) 0))
; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
; ; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
; (define (string=?-2 str1 str2) (equal? (string-cmp str1 str2) 0))
; (define (string<?-2 str1 str2) (< (string-cmp str1 str2) 0))
; (define (string<=?-2 str1 str2) (<= (string-cmp str1 str2) 0))
; (define (string>?-2 str1 str2) (> (string-cmp str1 str2) 0))
; (define (string>=?-2 str1 str2) (>= (string-cmp str1 str2) 0))
(define (member-helper obj lst cmp-proc)
(cond