Re: getting the argument list of a procedure

[anders . vinjar]

>>>>> "D" == David Nalesnik writes:

    D> What you are suggesting seems to be analogous to what is already
    D> done for the functions on the Scheme functions documentation page
    D> I referenced earlier.

Ah, but you've got all you need there already it seems.

'procedure-source will return the body of any defined function, then
just grab the cadr of this to get the lambda-list:

(define (get-proc-args proc)
  (cons (procedure-name proc) (cadr (procedure-source proc))))

(begin
  (newline)
  (display (get-proc-args get-chord-shape))
  (newline)
  (display (procedure-source get-proc-args)))

will return :

(get-chord-shape shape-code tuning base-chord-shapes)
(lambda (proc) (cons (procedure-name proc) (cadr (procedure-source proc))))