From ee842057ce05f20edaa3574c24a6811ae20631c2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 17 Aug 2016 18:58:30 -0400
Subject: [PATCH] Removed dead code

---
 scheme/cyclone/transforms.sld | 45 -----------------------------------
 1 file changed, 45 deletions(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 0b5f935a..89acbe22 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -61,12 +61,6 @@
     letrec->exp 
     letrec->bound-vars 
     letrec->args 
-    ;lambda-varargs? 
-    ;lambda->formals 
-    ;lambda-varargs? 
-    ;lambda-varargs-var 
-    ;lambda-formals-type 
-    ;lambda-formals->list 
     lambda-num-args
     ast:lambda-formals-type
     ast:lambda-formals->list
@@ -325,51 +319,12 @@
 (define (letrec->args exp)
   (map cadr (cadr exp)))
 
-;(define (lambda-varargs? exp)
-;  (and (lambda? exp)
-;       (or (symbol? (lambda->formals exp))
-;           (and (pair? (lambda->formals exp))
-;                (not (list? (lambda->formals exp)))))))
-;
-;; lambda->formals : lambda-exp -> list[symbol]
-;(define (lambda->formals exp)
-;  (cadr exp))
-;
-;(define (lambda-varargs? exp)
-;  (let ((type (lambda-formals-type exp)))
-;    (or (equal? type 'args:varargs)
-;        (equal? type 'args:fixed-with-varargs))))
-;
-;(define (lambda-varargs-var exp)
-;  (if (lambda-varargs? exp)
-;    (if (equal? (lambda-formals-type exp) 'args:varargs)
-;        (lambda->formals exp) ; take symbol directly
-;        (car (reverse (lambda-formals->list exp)))) ; Last arg is varargs
-;    #f))
-
 (define (ast:lambda-formals-type ast)
   (lambda-formals-type `(#f ,(ast:lambda-args ast) #f)))
 
-;(define (lambda-formals-type exp)
-; (let ((args (lambda->formals exp)))
-;   (cond
-;     ((symbol? args) 'args:varargs)
-;     ((list? args)   'args:fixed)
-;     ((pair? args)   'args:fixed-with-varargs)
-;     (else
-;       (error `(Unexpected formals list in lambda-formals-type: ,args))))))
-
 (define (ast:lambda-formals->list ast)
   (lambda-formals->list `(#f ,(ast:lambda-args ast) #f)))
 
-;(define (lambda-formals->list exp)
-;  (if (lambda-varargs? exp)
-;      (let ((args (lambda->formals exp)))
-;        (if (symbol? args)
-;            (list args)
-;            (pair->list args)))
-;      (lambda->formals exp)))
-
 ;; Minimum number of required arguments for a lambda
 (define (lambda-num-args exp)
   (let ((type (lambda-formals-type exp))