diff options
author | Andy Wingo <wingo@pobox.com> | 2010-04-17 16:28:52 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-04-17 16:28:52 +0200 |
commit | 3fc7e2c12370f4c6386dafe127640f1ef1c6d76b (patch) | |
tree | fa98054a196d1515704c3c9a40093e31c83b1e84 /emacs | |
parent | cb2ce548441824fe1284fc80a3a95394a9fc03d0 (diff) | |
download | guile-3fc7e2c12370f4c6386dafe127640f1ef1c6d76b.tar.gz |
deprecate arity access via (procedure-properties proc 'arity)
* libguile/procprop.h (scm_sym_arity): Deprecate. I didn't move it to
deprecated.h though, because that might have some boot implications --
though I didn't check.
* libguile/procprop.c (scm_procedure_properties)
(scm_set_procedure_properties_x, scm_procedure_property)
(scm_set_procedure_property_x): Deprecate access to a procedure's
arity via procedure-properties. Users should use
procedure-minimum-arity.
* module/ice-9/channel.scm (eval):
* module/ice-9/session.scm (arity):
* module/language/tree-il/analyze.scm (validate-arity): Fix up instances
of (procedure-property x 'arity) to use procedure-minimum-arity.
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/guile-emacs.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/emacs/guile-emacs.scm b/emacs/guile-emacs.scm index 4d99002b6..769127709 100644 --- a/emacs/guile-emacs.scm +++ b/emacs/guile-emacs.scm @@ -1,6 +1,6 @@ ;;; guile-emacs.scm --- Guile Emacs interface -;; Copyright (C) 2001 Keisuke Nishida <kxn30@po.cwru.edu> +;; Copyright (C) 2001, 2010 Keisuke Nishida <kxn30@po.cwru.edu> ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -59,9 +59,6 @@ ;;; (define (guile-emacs-export-procedure name proc docs) - (define (procedure-arity proc) - (assq-ref (procedure-properties proc) 'arity)) - (define (procedure-args proc) (let ((source (procedure-source proc))) (if source @@ -72,7 +69,7 @@ ((symbol? formals) `(&rest ,formals)) (else (cons (car formals) (loop (cdr formals)))))) ;; arity -> emacs args - (let* ((arity (procedure-arity proc)) + (let* ((arity (procedure-minimum-arity proc)) (nreqs (car arity)) (nopts (cadr arity)) (restp (caddr arity))) |