get-named-arg   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define get-named-arg
   (lambda (name args . default-value)
      (let ((value (member name args)))
   (if value
       (cadr value)
       (if (null? default-value)
           '()
         (car default-value))))))


Back to Index