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

Remove unsafe code

Browse source
This commit is contained in:
Justin Ethier 2017-04-18 08:31:25 +00:00
parent 124c137987
commit 33ba61578b
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scheme/cyclone/transforms.sld
View file

@ -1234,7 +1234,6 @@
;; Determine if the given top-level function can be freed from CPS, due ;; Determine if the given top-level function can be freed from CPS, due
;; to it only containing calls to code that itself can be inlined. ;; to it only containing calls to code that itself can be inlined.
(define (inlinable-top-level-function? expr) (define (inlinable-top-level-function? expr)
(define this-fnc-sym (define->var expr))
(define (scan expr fail) (define (scan expr fail)
(cond (cond
((string? expr) (fail)) ((string? expr) (fail))