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

TODO for string<?

Browse source
This commit is contained in:
Justin Ethier 2015-05-25 22:45:17 -04:00
parent e38c2c2bcd
commit a1dd27a42d
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
TODO
View file

@ -13,7 +13,7 @@ Working TODO list:
- need to change current*port functions to actually have a current port, and other i/o operations to use the correct current port - need to change current*port functions to actually have a current port, and other i/o operations to use the correct current port
- quasiquote - will need to enhance the parser to support a second type of quote, at minimum - quasiquote - will need to enhance the parser to support a second type of quote, at minimum
- string<? symbol<? - and related functions, too - string<? - and related functions, too
- (system) - not standard, but need to run gcc. See cyclone.scm for use - (system) - not standard, but need to run gcc. See cyclone.scm for use
- vectors - limited use in cgen module - make-vector, vector-set!, and vector-ref - vectors - limited use in cgen module - make-vector, vector-set!, and vector-ref

4
scheme/base.sld
View file

@ -65,7 +65,9 @@
(define (char>? c1 c2 . cs) (Cyc-bin-op-char > c1 (cons c2 cs))) (define (char>? c1 c2 . cs) (Cyc-bin-op-char > c1 (cons c2 cs)))
(define (char<=? c1 c2 . cs) (Cyc-bin-op-char <= c1 (cons c2 cs))) (define (char<=? c1 c2 . cs) (Cyc-bin-op-char <= c1 (cons c2 cs)))
(define (char>=? c1 c2 . cs) (Cyc-bin-op-char >= c1 (cons c2 cs))) (define (char>=? c1 c2 . cs) (Cyc-bin-op-char >= c1 (cons c2 cs)))
; TODO: char-ci predicates ; TODO: char-ci predicates (in scheme/char library)
; TODO: (define (string<? str1 str2 . strs)
(define (foldl func accum lst) (define (foldl func accum lst)
(if (null? lst) (if (null? lst)
accum accum