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

Added functions from transforms module

Browse source
This commit is contained in:
Justin Ethier 2016-08-15 23:08:37 -04:00
parent 773de4d49c
commit 179c90869c
1 changed files with 39 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

80
scheme/cyclone/util.sld
View file

@ -17,11 +17,11 @@
begin?
lambda?
pair->list
; lambda-formals->list
; lambda-varargs?
; lambda->formals
; lambda-formals-type
; lambda-varargs-var
lambda-formals->list
lambda-varargs?
lambda->formals
lambda-formals-type
lambda-varargs-var
;; Environments
env:enclosing-environment
env:first-frame
@ -80,46 +80,44 @@
(cons lst '())
(cons (car lst) (loop (cdr lst))))))
;; lambda->formals : lambda-exp -> list[symbol]
;(define (lambda->formals exp)
; (cadr exp))
;
;(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))
;
TODO: WTF, which version of lambda-varargs? to use? does it matter? figure this out in transforms.sld first
TODO: why the fuck do we get a circular dep error after these functions are removed from transforms? what is going on with that?
;;(define (lambda-varargs? exp)
;; (and (lambda? exp)
;; (or (symbol? (lambda->formals exp))
;; (and (pair? (lambda->formals exp))
;; (not (list? (lambda->formals exp)))))))
;; Alternate definition:
; lambda->formals : lambda-exp -> list[symbol]
(define (lambda->formals exp)
(cadr exp))
(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 (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))))
;
;(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 (lambda-formals->list exp)
; (if (lambda-varargs? exp)
; (let ((args (lambda->formals exp)))
; (if (symbol? args)
; (list args)
; (pair->list args)))
; (lambda->formals exp)))
(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 (lambda-formals->list exp)
(if (lambda-varargs? exp)
(let ((args (lambda->formals exp)))
(if (symbol? args)
(list args)
(pair->list args)))
(lambda->formals exp)))
; char->natural : char -> natural
(define (char->natural c)