Changeset 8699 for src/Pugs/Eval.hs

Timestamp:

01/16/06 13:08:43 (3 years ago)

Author:

audreyt

Message:

* DrIFT.YAML: Do not die when the Typeable instance is undefined.

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -390 +390 @@
     env  <- ask
     cont <- if subType sub /= SubCoroutine then return Nothing else liftSTM $ do
-        tvar <- newTVar undefined
+        tvar <- newTVar (error "empty sub")
         let thunk = (`MkThunk` anyType) . fix $ \redo -> do
             evalExp $ subBody sub