- (let ((str (string-trim *whitespace*
- (convert-and-free-foreign-string (c-readline c-prompt)))))
- (when (and history (not (string= "" str)))
- (add-history str))
+ (let* ((str (convert-and-free-foreign-string (c-readline c-prompt)))
+ (str2 (string-trim *whitespace* str)))
+ (when (and history (not (string= "" str2)))
+ (add-history str2))