diff options
| -rwxr-xr-x | module/main.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/main.scm b/module/main.scm index 2e7759d1..a85c6363 100755 --- a/module/main.scm +++ b/module/main.scm @@ -124,6 +124,8 @@ (mod! cur-event 1+))) ((#\k #\K) (unless (= cur-event 0) (mod! cur-event 1-))) + ((#\p) (print-vcomponent (list-ref events cur-event) + (current-error-port))) ((#\g) (set! cur-event 0)) ((#\G) (set! cur-event (1- (length events))))) |