方案在guile中获取最后一个命令

(define last-command "")
(define (read-command)
  (set! last-command (read-line))
  last-command)

; 使用示例
(display "Enter a command: ")
(newline)
(read-command)
(display "Last command was: ")
(display last-command)
(newline)

(define (get-last-expression)
  (let ((port (current-input-port)))
    (read port)))

; 假设你的脚本中有一个表达式
(+ 1 2)
; 获取并打印最后一个表达式
(display "Last expression was: ")
(display (get-last-expression))
(newline)

(define (get-last-command-line-argument)
  (let ((args (command-line)))
    (if (> (length args) 1)
        (list-ref args (- (length args) 1))
        #f)))

; 使用示例
(display "Last command line argument was: ")
(display (get-last-command-line-argument))
(newline)