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

3
src/command-line.scm
View file

@ -84,8 +84,7 @@
;; String representation of procedure arguments.
(define (procedure->argstring proc)
(let* ((info (procedure-information proc))
(args (cdr info))
(let* ((args (procedure-arg-names proc))
(argss (sprintf "~A" args)))
(substring
(substring argss 0 (- (string-length argss) 1))