/usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/StartDbg.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/StartDbg.hs


module Prelude where

import _Driver
import DIO
--import DPrelude(Trace, R(..), myseq)

--cConnectToServer primitive 1 :: Trace -> ()

_startDbg _ =
   case _driver () of
       R v t -> myseq v () 	-- (cConnectToServer t)

(Return to Plan 9 Home Page)