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

Increase number of allowed arguments

Browse source
This commit is contained in:
Justin Ethier 2021-03-18 22:13:11 -04:00
parent 15ad366324
commit 1afc5091c8
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/cyclone/cgen.sld
View file

@ -112,7 +112,7 @@
return 0;}") return 0;}")
;;; Auto-generation of C macros ;;; Auto-generation of C macros
(define *c-call-max-args* 128) (define *c-call-max-args* 10000)
(define *c-call-arity* (make-vector (+ 1 *c-call-max-args*) #f)) (define *c-call-arity* (make-vector (+ 1 *c-call-max-args*) #f))
(define (set-c-call-arity! arity) (define (set-c-call-arity! arity)
@ -120,7 +120,12 @@
((not (number? arity)) ((not (number? arity))
(error `(Non-numeric number of arguments received ,arity))) (error `(Non-numeric number of arguments received ,arity)))
((> arity *c-call-max-args*) ((> arity *c-call-max-args*)
(error "Only support up to 128 arguments. Received: " arity)) (error
(string-append
"Only support up to "
(number->string *c-call-max-args*)
" arguments. Received: ")
arity))
(else (else
(vector-set! *c-call-arity* arity #t)))) (vector-set! *c-call-arity* arity #t))))