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

Issue #286

Browse source
This commit is contained in:
Justin Ethier 2018-12-14 17:50:29 -05:00
parent f4face2ef0
commit 506452654f
1 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
scheme/cyclone/transforms.sld
View file

@ -177,9 +177,27 @@
(else #f)) (else #f))
; symbol<? : symbol symobl -> boolean ; symbol<? : symbol symobl -> boolean
(define (symbol<? sym1 sym2) ;(define (symbol<? sym1 sym2)
(string<? (symbol->string sym1) ; (string<? (symbol->string sym1)
(symbol->string sym2))) ; (symbol->string sym2)))
(define-c symbol<?
"(void *data, int argc, closure _, object k, object sym1, object sym2)"
"
Cyc_check_sym(data, sym1);
Cyc_check_sym(data, sym2);
object result = (strcmp(symbol_desc(sym1), symbol_desc(sym2)) < 0)
? boolean_t : boolean_f;
return_closcall1(data, k, result);
"
"(void *data, object ptr, object sym1, object sym2)"
"
Cyc_check_sym(data, sym1);
Cyc_check_sym(data, sym2);
object result = (strcmp(symbol_desc(sym1), symbol_desc(sym2)) < 0)
? boolean_t : boolean_f;
return result;
")
; insert : symbol sorted-set[symbol] -> sorted-set[symbol] ; insert : symbol sorted-set[symbol] -> sorted-set[symbol]
(define (insert sym S) (define (insert sym S)