diff --git a/cirilisp.c b/cirilisp.c index 82bb38a..8643447 100644 --- a/cirilisp.c +++ b/cirilisp.c @@ -97,8 +97,8 @@ const char *help = "\ Команда: cirilisp [-q|-v|-h] [<име фајла>]*\n\ Опције:\n\ - -q Не започињи ЧПШП (\"Читај, процени, штампај\" петљу) након\n\ -евалуирања командних аргумената\n\ + -q Не започињи ЧПШП (\"Читај, процени, штампај\" петљу) након\ + евалуирања командних аргумената\n\ -h Одштампај овај кратки помоћник и затвори програм\n\ -v Одштампај верзију програма и затвори програм\n\ "; diff --git a/инит.ћ b/инит.ћ index 0efa7f3..bd0d022 100644 --- a/инит.ћ +++ b/инит.ћ @@ -13,6 +13,11 @@ (опиши нил ()) +(опиши (једнаки? џ ж) + (ако (и (конс? џ) (конс? ж)) + (и (једнаки? (сар џ) (сар ж)) (једнаки? (сдр џ) (сдр ж))) + (јед? џ ж))) + (опиши (новиред) (прикажи #\новиред)) (опиши (није предикат) @@ -43,7 +48,7 @@ (ако (нил? предикати) #л (ако (нил? (сдр предикати)) (сар предикати) - (листа 'ако (није (сар предикати)) + (листа 'ако (листа 'није (сар предикати)) (примени или (сдр предикати)) (сар предикати)))))