add trap-name procedure

* module/system/vm/trap-state.scm (trap-name): New proc.

diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm
index df553ba..591f842 100644 (file)
--- a/module/system/vm/trap-state.scm
+++ b/module/system/vm/trap-state.scm
@@ -28,6 +28,7 @@
   #:use-module (system vm trace)
   #:export (list-traps
             trap-enabled?
+            trap-name
             enable-trap!
             disable-trap!
             delete-trap!
@@ -161,6 +162,10 @@
                (trap-wrapper-name wrapper)))
        (trap-state-wrappers trap-state)))
 
+(define* (trap-name idx #:optional (trap-state (the-trap-state)))
+  (and=> (wrapper-at-index trap-state idx)
+         trap-wrapper-name))
+
 (define* (trap-enabled? idx #:optional (trap-state (the-trap-state)))
   (and=> (wrapper-at-index trap-state idx)
          trap-wrapper-enabled?))