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

Added stub

Browse source
This commit is contained in:
Justin Ethier 2020-06-03 19:08:23 -04:00
parent 6ace99f5bb
commit 5bb83cbfc6
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/base.sld
View file

@ -607,6 +607,7 @@
; ; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
;(define (string=? str1 str2 . strs) (Cyc-bin-op fast-string=? str1 (cons str2 strs)))
(define (string=? str1 str2) (equal? (string-cmp str1 str2) 0))
(define (string<? str1 str2) (< (string-cmp str1 str2) 0))
(define (string<=? str1 str2) (<= (string-cmp str1 str2) 0))