From 01840a044085fba7d04c2e8e83a695e9de8daa58 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 20 Apr 2019 22:39:31 +0200 Subject: Add binding to dump vcomponent to stdout. --- module/main.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'module/main.scm') 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))))) -- cgit v1.2.3