the-kernel-in-haskell.hs

import The.Haskell

load = do
    "(x: Object) clone" =: do
        Reference r <- getSymbol "x"
        proto <- newProto $ \p -> p
            { vpDelegates = [r]
            }

        return (Reference proto)

    "(x: Object) dump" =: do
        x <- getSymbol "x"
        liftIO (print x)
        return x

    "(x: Object) print" =: do
        x <- getSymbol "x"
        printVM x
        return x

    "(s: String) write" =: do
        List cs <- getSymbol "s"
        if all isChar cs
            then do
                liftIO (putStrLn (map (\(Char c) -> c) cs))
                return (List cs)
            else throwError $ ErrorMsg "@write applied to non-String"

    "(b: Block) apply" =: do
        Block s as es <- getSymbol "b"

        if length as > 0
            then throwError . ErrorMsg $ "block expects " ++ show (length as) ++ ", given 0"
            else doBlock [] s es