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

Check number of args passed to anonymous lambdas

Browse source
This commit is contained in:
Justin Ethier 2016-07-12 23:06:32 -04:00
parent 7caa67a51c
commit 3d138cbde8
1 changed files with 34 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
scheme/cyclone/transforms.sld
View file

@ -1385,13 +1385,40 @@
(let ((fn (app->fun ast)))
(cond
((lambda? fn)
(cps-list (app->args ast)
(lambda (vals)
(cons (ast:make-lambda
(lambda->formals fn)
(list (cps-seq (cddr fn) ;(ast-subx fn)
cont-ast)))
vals))))
;; Check number of arguments to the lambda
(let ((lam-min-num-args (lambda-num-args fn))
(num-args (length (app->args ast))))
(cond
((< num-args lam-min-num-args)
(error
(string-append
"Not enough arguments passed to anonymous lambda. "
"Expected "
(number->string lam-min-num-args)
" but received "
(number->string num-args)
":")
fn))
((and (> num-args lam-min-num-args)
(equal? 'args:fixed (lambda-formals-type fn)))
(error
(string-append
"Too many arguments passed to anonymous lambda. "
"Expected "
(number->string lam-min-num-args)
" but received "
(number->string num-args)
":")
fn))
))
;; Do conversion
(cps-list (app->args ast)
(lambda (vals)
(cons (ast:make-lambda
(lambda->formals fn)
(list (cps-seq (cddr fn) ;(ast-subx fn)
cont-ast)))
vals))))
(else
(cps-list ast ;(ast-subx ast)
(lambda (args)