diff --git a/cirilisp.c b/cirilisp.c index 0ff08ac..9bdeb5f 100644 --- a/cirilisp.c +++ b/cirilisp.c @@ -45,46 +45,46 @@ void init() * ћирилицу */ globalEnv = createEnvironment(NULL); + addSymbolInternal("листа?", &listQInt, 0); + addSymbolInternal("број?", &numberQInt, 0); + addSymbolInternal("<", &lessInt, 0); + addSymbolInternal("/", ÷Int, 0); addSymbolInternal("+", &addInt, 0); + addSymbolInternal("=", &eqNumInt, 0); + addSymbolInternal(">", &greaterInt, 0); addSymbolInternal("-", &subtractInt, 0); addSymbolInternal("*", &multiplyInt, 0); - addSymbolInternal("/", ÷Int, 0); + addSymbolInternal("ако", &ifInt, 1); + addSymbolInternal("баци", &throwInt, 0); + addSymbolInternal("јед?", &eqvQInt, 0); + addSymbolInternal("булски?", &boolQInt, 0); addSymbolInternal("бројилац", &numeratorInt, 0); + addSymbolInternal("дужина-ниске", &strLengthInt, 0); addSymbolInternal("именилац", &denominatorInt, 0); + addSymbolInternal("конс", &consInt, 0); + addSymbolInternal("карактер?", &charQInt, 0); + addSymbolInternal("конс?", &consQInt, 0); + addSymbolInternal("ламбда", &lambdaInt, 1); + addSymbolInternal("прикажи", &displayInt, 0); + addSymbolInternal("нил?", &nilQInt, 0); + addSymbolInternal("направи-ниску", &makeStrInt, 0); + addSymbolInternal("надовежи", &appendInt, 0); addSymbolInternal("навод", "eInt, 1); + addSymbolInternal("нетачно->тачно", &inexactToExactInt, 0); addSymbolInternal("опиши", &defineInt, 1); addSymbolInternal("опиши-складњу", &defineMacroInt, 1); - addSymbolInternal("тачно->нетачно", &exactToInexactInt, 0); - addSymbolInternal("нетачно->тачно", &inexactToExactInt, 0); - addSymbolInternal("ламбда", &lambdaInt, 1); - addSymbolInternal("<", &lessInt, 0); - addSymbolInternal(">", &greaterInt, 0); - addSymbolInternal("=", &eqNumInt, 0); - addSymbolInternal("ако", &ifInt, 1); - addSymbolInternal("нил?", &nilQInt, 0); - addSymbolInternal("конс?", &consQInt, 0); - addSymbolInternal("број?", &numberQInt, 0); - addSymbolInternal("разломак?", &fractionQInt, 0); - addSymbolInternal("реалан?", &realQInt, 0); - addSymbolInternal("симбол?", &symbolQInt, 0); - addSymbolInternal("процедура?", &procedureQInt, 0); - addSymbolInternal("булски?", &boolQInt, 0); - addSymbolInternal("ниска?", &stringQInt, 0); - addSymbolInternal("карактер?", &charQInt, 0); - addSymbolInternal("листа?", &listQInt, 0); - addSymbolInternal("надовежи", &appendInt, 0); - addSymbolInternal("конс", &consInt, 0); - addSymbolInternal("сар", &carInt, 0); - addSymbolInternal("сдр", &cdrInt, 0); - addSymbolInternal("јед?", &eqvQInt, 0); - addSymbolInternal("примени", &applyInt, 0); - addSymbolInternal("прикажи", &displayInt, 0); - addSymbolInternal("штампај", &printInt, 0); - addSymbolInternal("читај", &readInt, 0); addSymbolInternal("почни", &beginInt, 0); - addSymbolInternal("баци", &throwInt, 0); - addSymbolInternal("направи-ниску", &makeStrInt, 0); - addSymbolInternal("дужина-ниске", &strLengthInt, 0); + addSymbolInternal("ниска?", &stringQInt, 0); + addSymbolInternal("сар", &carInt, 0); + addSymbolInternal("разломак?", &fractionQInt, 0); + addSymbolInternal("процедура?", &procedureQInt, 0); + addSymbolInternal("примени", &applyInt, 0); + addSymbolInternal("реалан?", &realQInt, 0); + addSymbolInternal("тачно->нетачно", &exactToInexactInt, 0); + addSymbolInternal("сдр", &cdrInt, 0); + addSymbolInternal("симбол?", &symbolQInt, 0); + addSymbolInternal("читај", &readInt, 0); + addSymbolInternal("штампај", &printInt, 0); if (!load(DESTDIR "/usr/local/lib/cirilisp/инит.ћ")) {