summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-09-11 08:59:30 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-09-11 08:59:30 +0000
commit7cfae7e6ad1bb0b1aa8d6373353e7e2fc802858f (patch)
tree6adb1364a1614aa3ec2aae7c31a72b6b3ad6d572
parent80ea260cdf5ff69b5c9c3a681204bbef63963d54 (diff)
downloadguile-7cfae7e6ad1bb0b1aa8d6373353e7e2fc802858f.tar.gz
* session.scm (name): New procedure: Gives name of object.
(source): New procedure: Gives source of object.
-rw-r--r--ice-9/ChangeLog5
-rw-r--r--ice-9/session.scm10
2 files changed, 15 insertions, 0 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index b48228dbe..910bc69bd 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -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>
* * boot-9.scm (primitive-macro?): New procedure.
diff --git a/ice-9/session.scm b/ice-9/session.scm
index f37b1f548..c43402efc 100644
--- a/ice-9/session.scm
+++ b/ice-9/session.scm
@@ -113,3 +113,13 @@
(list (module-obarray module)))))
modules))
(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)))