aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xpinentry-rofi.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/pinentry-rofi.scm b/pinentry-rofi.scm
index 2d6e9ad..d016e04 100755
--- a/pinentry-rofi.scm
+++ b/pinentry-rofi.scm
@@ -353,7 +353,7 @@ Return the input from the user if succeeded else #f."
#:message (compose-message pinentry)
#:visibility (pinentry-visibility pinentry)
#:env `(("DISPLAY" . ,(pinentry-display pinentry))))))
- (if (not (string-empty? (string-trim-both pass)))
+ (if (and pass (not (string-empty? (string-trim-both pass))))
(begin
(format #t "D ~a" pass)
(force-output)