Hang when dealing with some pieces of code #738
Description
(register-type MyType)
(defmodule MyType
(register init (Fn [] MyType))
(register delete (Fn [&MyType] ()))
(register copy (Fn [&MyType] MyType))
)
(deftype MyWrapper [inner MyType])
(defmodule MyWrapper
(defn delete [w]
(MyType.delete (MyWrapper.inner &w))))
(defn main []
(let [v (MyWrapper.init (MyType.init))]
(IO.println "in let")))This code, when doing (load "test.carp") hangs and consume all of my memory (16Gb). But, if i do (MyType.delete (MyWrapper.inner w)) (removing the &) then it loads correctly.
I have no idea how i can debug this (i have no knowledge of Haskell) so don't hesitate to ask for more info.