kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Додата "једнаки?" сложена функција, поправљен баг у "или" макроу

Browse source
This commit is contained in:
kappa 2019-02-19 17:10:25 +01:00
parent d24fa3945d
commit 9ada71164a
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cirilisp.c
View file

@ -97,8 +97,8 @@ const char *help =
"\ "\
Команда: cirilisp [-q|-v|-h] [<име фајла>]*\n\ Команда: cirilisp [-q|-v|-h] [<име фајла>]*\n\
Опције:\n\ Опције:\n\
-q Не започињи ЧПШП (\"Читај, процени, штампај\" петљу) након\n\ -q Не започињи ЧПШП (\"Читај, процени, штампај\" петљу) након\
евалуирања командних аргумената\n\ евалуирања командних аргумената\n\
-h Одштампај овај кратки помоћник и затвори програм\n\ -h Одштампај овај кратки помоћник и затвори програм\n\
-v Одштампај верзију програма и затвори програм\n\ -v Одштампај верзију програма и затвори програм\n\
"; ";

7
инит.ћ
View file

@ -13,6 +13,11 @@
(опиши нил ()) (опиши нил ())
(опиши (једнаки? џ ж)
(ако (и (конс? џ) (конс? ж))
(и (једнаки? (сар џ) (сар ж)) (једнаки? (сдр џ) (сдр ж)))
(јед? џ ж)))
(опиши (новиред) (прикажи #\новиред)) (опиши (новиред) (прикажи #\новиред))
(опиши (није предикат) (опиши (није предикат)
@ -43,7 +48,7 @@
(ако (нил? предикати) #л (ако (нил? предикати) #л
(ако (нил? (сдр предикати)) (ако (нил? (сдр предикати))
(сар предикати) (сар предикати)
(листа 'ако (није (сар предикати)) (листа 'ако (листа 'није (сар предикати))
(примени или (сдр предикати)) (примени или (сдр предикати))
(сар предикати))))) (сар предикати)))))