Destructors for "ref object" types?

[enthus1ast]

This seems to work:
    
    
    type
      ARefObj = object
        name: string
      Aref = ref ARefObj
    
    proc `=destroy`(x: ARefObj) =
      echo "Destroying A named ", x.name
      `=destroy`(x.name)
    
    
    proc foo() =
      var ff = Aref(name: "My Name")
    
    foo()
    
    
    Run