-- coreSchemeCode.mesa
-- Tidbit compiler output for core.scheme

DIRECTORY Scheme, SchemePrivate;

coreSchemeCode: CEDAR PROGRAM
IMPORTS Scheme, SchemePrivate
~ BEGIN
    OPEN Scheme, SchemePrivate;
    
    Code0: PROC [a: Activation] ~ {
        g: PairSeq ~ a.code.globalBindings;
        env: Environment ~ a.env;
        c: SimpleVector ~ a.code.literals;
        s: Stack ~ a.s;
        temp: Any _ NIL;
        pc: INTEGER _ a.pc;
        bottom: INTEGER _ 0;
        n: INTEGER _ 2;
        
        DO
            a.pc _ pc;
            pc _ pc + 1;
            SELECT a.pc FROM
                1 => {
                    s[0] _ unspecified;
                    GOTO returnExit;
                    };
                0 => {
                    s[0] _ g[0].cdr;
                    s[1] _ c[0];
                    };
                ENDCASE => ERROR;
            a.pc _ pc;
            a.n _ n;
            a.bottom _ bottom;
            RETURN;
            
            REPEAT
                returnExit => { a.pc _ -1; a.n _ 0; };
            ENDLOOP;
        };
    
    Register: PROC [env: Environment] ~ {
        startProc: TidbitProcedure;
        literals: SimpleVector ~ ReadRopeVector["#\001\022\001\021\012coreMXCode"];
        
        
        {
            startProc _ NEW[TidbitProcedureRep _ [env: NIL, code:
                MakeTidbitCode[
                    "\"core\" () (reinstall)",
                    env, 0, Code0,
                    SV1[
                        literals[0]
                        ],
                    0, "No documentation", NIL]
                ]];
            };
        [] _ Apply[startProc, NIL];
        };
    
    RegisterInit[Register];
END.