From ae49a05e1e442fb2501bba929ed2d1ad63f2d4f7 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 15 Aug 2016 18:08:55 -0400 Subject: [PATCH] Use lambda-varargs? that does not depend upon ast being a lambda --- scheme/cyclone/util.sld | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/scheme/cyclone/util.sld b/scheme/cyclone/util.sld index 7b1b8ad0..7eb3d89a 100644 --- a/scheme/cyclone/util.sld +++ b/scheme/cyclone/util.sld @@ -91,16 +91,16 @@ (car (reverse (lambda-formals->list exp)))) ; Last arg is varargs #f)) -(define (lambda-varargs? exp) - (and (lambda? exp) - (or (symbol? (lambda->formals exp)) - (and (pair? (lambda->formals exp)) - (not (list? (lambda->formals exp))))))) -; Alternate definition: ;(define (lambda-varargs? exp) -; (let ((type (lambda-formals-type exp))) -; (or (equal? type 'args:varargs) -; (equal? type 'args:fixed-with-varargs)))) +; (and (lambda? exp) +; (or (symbol? (lambda->formals exp)) +; (and (pair? (lambda->formals exp)) +; (not (list? (lambda->formals exp))))))) +; Alternate definition: +(define (lambda-varargs? exp) + (let ((type (lambda-formals-type exp))) + (or (equal? type 'args:varargs) + (equal? type 'args:fixed-with-varargs)))) (define (lambda-formals-type exp) (let ((args (lambda->formals exp)))