From 9ada71164a5e6f9836ec4f2a00a6046087ccca25 Mon Sep 17 00:00:00 2001 From: kappa Date: Tue, 19 Feb 2019 17:10:25 +0100 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B4=D0=B0=D1=82=D0=B0=20"=D1=98?= =?UTF-8?q?=D0=B5=D0=B4=D0=BD=D0=B0=D0=BA=D0=B8=3F"=20=D1=81=D0=BB=D0=BE?= =?UTF-8?q?=D0=B6=D0=B5=D0=BD=D0=B0=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8?= =?UTF-8?q?=D1=98=D0=B0,=20=D0=BF=D0=BE=D0=BF=D1=80=D0=B0=D0=B2=D1=99?= =?UTF-8?q?=D0=B5=D0=BD=20=D0=B1=D0=B0=D0=B3=20=D1=83=20"=D0=B8=D0=BB?= =?UTF-8?q?=D0=B8"=20=D0=BC=D0=B0=D0=BA=D1=80=D0=BE=D1=83?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- cirilisp.c | 4 ++-- инит.ћ | 7 ++++++- 2 files changed, 8 insertions(+), 3 deletions(-) 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 @@ (ако (нил? предикати) #л (ако (нил? (сдр предикати)) (сар предикати) - (листа 'ако (није (сар предикати)) + (листа 'ако (листа 'није (сар предикати)) (примени или (сдр предикати)) (сар предикати)))))