在線讀取不會讀取下一行

Question

1 (use-modules (ice-9 rdelim)) 
    2 
    3 (define (show l) (display l)) 
    4 
    5 (define (read-two-lines) 
    6   (let ((count (read-line)) 
    7    (l  (read-line))) 
    8    (show l))) ; or (show count) 
    9    
10 (read-two-lines) 

上面的代碼無法將第二行讀入l。相反，它只是讀取相同的值的兩倍： -

scheme@(guile-user)> (load "test.scm") 

line1 
line2 
line1 

當一號線，然後2號線是作爲輸入它顯示的LINE-1輸出，而不是2號線。這裏發生了什麼？

Answer 1

我沒有安裝狡詐，所以我不能對此進行測試，但在方案let不保證評價的任何命令。所以我最好的猜測是count包含第二行，而l是第一行。

嘗試使用let*代替let：

(define (read-two-lines) 
    (let* ((count (read-line)) 
     (l  (read-line))) 
    (show l))) 

有關更詳盡的解釋見here。