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) ((list? formals)
args) args)
(else (else
(let* ((num-req-args (length/obj formals)) (let ((num-req-args (length/obj formals))
(areq (take args num-req-args)) (num-args (length args)))
(aopt (list-tail args num-req-args))) (if (> num-req-args num-args)
(append areq (list aopt)))))) (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) (define (length/obj l)
(let loop ((lis l) (let loop ((lis l)