Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +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:56:58 -04:00
parent d7abe4f8f5
commit cf3d2163e4
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/transforms.sld
View file

@ -1133,6 +1133,16 @@ if (acc) {
(cons 'write-string-1 (map (lambda (a) (convert a renamed)) (cdr ast))))
((and (eq? (car ast) 'write-string) (= (length ast) 3))
(cons 'write-string-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;((and (eq? (car ast) 'string>=?) (= (length ast) 3))
; (cons 'string>=?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;((and (eq? (car ast) 'string>?) (= (length ast) 3))
; (cons 'string>?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;((and (eq? (car ast) 'string<=?) (= (length ast) 3))
; (cons 'string<=?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;((and (eq? (car ast) 'string<?) (= (length ast) 3))
; (cons 'string<?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;((and (eq? (car ast) 'string=?) (= (length ast) 3))
; (cons 'string=?-2 (map (lambda (a) (convert a renamed)) (cdr ast))))
;; Regular case, alpha convert everything
(else
(regular-case)))))