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

Issue #21 - Warn if required args are missing

Browse source
This commit is contained in:
Justin Ethier 2016-08-17 18:15:42 -04:00
parent 46f84b5265
commit 9a48901ac2
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/util.sld
View file

@ -138,10 +138,14 @@
((list? formals)
args)
(else
(let* ((num-req-args (length/obj formals))
(areq (take args num-req-args))
(aopt (list-tail args num-req-args)))
(append areq (list aopt))))))
(let ((num-req-args (length/obj formals))
(num-args (length args)))
(if (> num-req-args num-args)
(error "Too few arguments supplied" formals args))
(append
(take args num-req-args) ;; Required args
(list (list-tail args num-req-args)) ;; Optional args
)))))
(define (length/obj l)
(let loop ((lis l)