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

Use argument names procedure.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 20:19:09 +02:00
parent c2c19c2d6a
commit edb6f14a9d
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/util-proc.scm
View file

@ -33,6 +33,7 @@
procedure-arity>?
procedure-num-args
procedure-arg-names
)
(import scheme
@ -79,4 +80,8 @@
(let-values (((args rest?) (procedure-arity-info proc)))
args))
;; Returns the formal argument names for given procedure
(define (procedure-arg-names proc)
(cdr (procedure-information proc)))
)