sml - 错误 : Inserting 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