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

Use pre-computed sexp

Browse source
This commit is contained in:
Justin Ethier 2018-10-30 13:20:11 -04:00
parent 6f65432c2a
commit e883473885
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cps-optimizations.sld
View file

@ -1726,9 +1726,8 @@
(let ((fn (car exp)) (let ((fn (car exp))
(args (map cc (cdr exp)))) (args (map cc (cdr exp))))
(cond (cond
((tagged-list? 'Cyc-seq exp) ((equal? 'Cyc-seq fn)
(cons 'Cyc-seq `(Cyc-seq ,@args))
(map cc (cdr exp))))
((ast:lambda? fn) ((ast:lambda? fn)
(cond (cond
;; If the lambda argument is not used, flag so the C code is ;; If the lambda argument is not used, flag so the C code is