mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

* session.scm (name): New procedure: Gives name of object.

Browse source 
(source): New procedure: Gives source of object.
This commit is contained in:
Mikael Djurfeldt 1997-09-11 08:59:30 +00:00
parent 80ea260cdf
commit 7cfae7e6ad
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
Thu Sep 11 02:31:38 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* session.scm (name): New procedure: Gives name of object.
(source): New procedure: Gives source of object.
Wed Sep 10 20:12:45 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Wed Sep 10 20:12:45 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* * boot-9.scm (primitive-macro?): New procedure. * * boot-9.scm (primitive-macro?): New procedure.

10
ice-9/session.scm
View file

@ -113,3 +113,13 @@
(list (module-obarray module))))) (list (module-obarray module)))))
modules)) modules))
(cdr vars))) (cdr vars)))
(define-public (name obj)
(cond ((procedure? obj) (procedure-name obj))
((macro? obj) (macro-name obj))
(else #f)))
(define-public (source obj)
(cond ((procedure? obj) (procedure-source obj))
((macro? obj) (procedure-source (macro-transformer obj)))
(else #f)))