brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use number of procedure arguments function from util-proc in command-line.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 20:16:21 +02:00
parent 147afa3ab4
commit c2c19c2d6a
4 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/util-proc.scm
View file

@ -31,6 +31,8 @@
procedure-arity=?
procedure-arity>=?
procedure-arity>?
procedure-num-args
)
(import scheme
@ -72,4 +74,9 @@
(or rest?
(> args n))))
;; Returns the number of mandatory arguments
(define (procedure-num-args proc)
(let-values (((args rest?) (procedure-arity-info proc)))
args))
)