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

Remove redundant code

Browse source
This commit is contained in:
Justin Ethier 2019-04-18 17:46:38 -04:00
parent df5442bf4a
commit 62d2bea199
1 changed files with 0 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/cyclone/util.sld
View file

@ -253,26 +253,6 @@
(cons lst '()) (cons lst '())
(cons (car lst) (loop (cdr lst)))))) (cons (car lst) (loop (cdr lst))))))
(define (define-lambda? exp)
(let ((var (cadr exp)))
(or
;; Standard function
(and (list? var)
(> (length var) 0)
(symbol? (car var)))
;; Varargs function
(and (pair? var)
(symbol? (car var))))))
(define (define->lambda exp)
(cond
((define-lambda? exp)
(let ((var (caadr exp))
(args (cdadr exp))
(body (cddr exp)))
`(define ,var (lambda ,args ,@body))))
(else exp)))
; lambda->formals : lambda-exp -> list[symbol] ; lambda->formals : lambda-exp -> list[symbol]
(define (lambda->formals exp) (define (lambda->formals exp)
(cadr exp)) (cadr exp))