在BSL（DrRacket）需要帮助理解功能

Question

语言BSL - DrRacket（球拍变体）

问题：我需要了解下面的功能究竟是什么。特别是子串位，我不明白它是如何确定一个字符串是否具有＆＃34;？＆＃34;最后选择是否追加＆＃34;？＆＃34;消耗的字符串。

(define (ensure-question str)
  (if (string=? (substring str (- (string-length str) 1)) "?")
      str
      (string-append str "?")))