mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

remove program-name, program-documentation

Browse source 
* libguile/programs.h:
* libguile/programs.c (scm_program_name): Remove. procedure-name is
  sufficient.

* module/system/vm/program.scm (program-name): Remove from exports list.
  (program-documentation): Remove; procedure-documentation is
  sufficient.

* libguile/debug.c (scm_procedure_name): Remove special case for
  programs.

* module/language/tree-il/analyze.scm (validate-arity): Use
  procedure-name.

* module/ice-9/documentation.scm (object-documentation): Just use
  procedure-documentation, without special cases for programs.
This commit is contained in:
Andy Wingo 2010-04-17 15:17:24 +02:00
parent 07e424b753
commit 1e23b461ec
6 changed files with 5 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/vm/program.scm
View file

@ -28,7 +28,6 @@
source:addr source:line source:column source:file
program-sources program-source
program-documentation program-name
program-bindings program-bindings-by-index program-bindings-for-ip
program-arities program-arity arity:start arity:end
@ -63,9 +62,6 @@
(define (source:column source)
(cdddr source))
(define (program-documentation prog)
(procedure-property prog 'documentation))
(define (collapse-locals locs)
(let lp ((ret '()) (locs locs))
(if (null? locs)
@ -196,7 +192,7 @@
(define (write-program prog port)
(format port "#<procedure ~a~a>"
(or (program-name prog)
(or (procedure-name prog)
(and=> (program-source prog 0)
(lambda (s)
(format #f "~a at ~a:~a:~a"