错误：插入 EQUALOP

Question

你好，谁能帮我弄清楚为什么我得到了

ERROR: Inserting EQUALOP

下面的代码？

fun generator inchan outchan n = if n>0                         
           then 
               (let 
                   fun loop () =                          
                         val c = recv(outchan)
                         val _ = send (inchan, c)
                in  
                   (loop ();(generator inchan outchan (n-1)))
                end)
            else inchan;

Answer 1

您输入一个let 语句，然后定义一个函数。但是，在该函数中，您 似乎想定义更多的变量。为此，您需要另一个 let 语句。没有它，你会得到这样的语法错误。

尝试改用这个：

fun loop () = send (inchan, recv (outchan))

或者，如果您希望单独的行更清晰：

fun loop () =
    let
      val c = recv (outchan)
    in
      send (inchan, c)
    end

或许

fun loop () = 
    let
      val c = recv (outchan)
      val _ = send (inchan, c)
    in
      ()
    end