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

Fix stupid mistake

Browse source
This commit is contained in:
Justin Ethier 2018-06-01 11:59:20 -04:00
parent 455489507f
commit 2b4ebc8031
1 changed files with 6 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
find-direct-rec-calls.scm
View file

@ -56,16 +56,10 @@
(write exp) (newline) (write exp) (newline)
(and-let* (((define? exp)) (and-let* (((define? exp))
(def-exps (define->exp exp)) (def-exps (define->exp exp))
(vector? (car def-exps)) ((vector? (car def-exps)))
(ast:lambda? (car def-exps)) ((ast:lambda? (car def-exps)))
) )
(write (vector? 1)) (scan (car (ast:lambda-body (car def-exps))) (define->var exp))
#;(write `(todo exp
(vector? (car def-exps)) ;; Crashes the program, WTF?
,(vector? 1) ;; Why would this crash the program????
,(car def-exps) ;; Seems fine though???
def-exps (ast:lambda? '(test 1)) (ast:lambda? (car def-exps))))(newline)
;;(scan (car (ast:lambda-body (car def-exps))) (define->var exp))
)) ))
exp) exp)
) )
@ -75,7 +69,7 @@
(define l18 #f) (define l18 #f)
(define l12 #f) (define l12 #f)
(define l6 #f) (define l6 #f)
#;(define mas (define mas
(lambda (lambda
(k$247 x$4$135 y$3$134 z$2$133) (k$247 x$4$135 y$3$134 z$2$133)
(shorterp (shorterp
@ -102,7 +96,7 @@
y$3$134 y$3$134
x$4$135))) x$4$135)))
(define *num-passed* 1) (define *num-passed* 1)
#;(define shorterp (define shorterp
(lambda (lambda
(k$240 x$6$131 y$5$130) (k$240 x$6$131 y$5$130)
(if (null? y$5$130) (if (null? y$5$130)