Felix Brendel 7 лет назад
Родитель
Сommit
bd0e541d80
4 измененных файлов: 6 добавлений и 7 удалений
  1. +1
    -0
      .gitignore
  2. +2
    -5
      build.sh
  3. +2
    -1
      src/eval.c
  4. +1
    -1
      src/helpers.c

+ 1
- 0
.gitignore Просмотреть файл

@@ -4,3 +4,4 @@
*.exe
*.user
/vs/*/*
/bin/slime

+ 2
- 5
build.sh Просмотреть файл

@@ -1,9 +1,6 @@
mkdir quickbuild
clang src/main.c -g -o ./quickbuild/lisp --std=c99 || exit 1
clang src/main.c -g -o ./bin/slime --std=c99 || exit 1

echo ""
echo "--- Output Start ---"
./quickbuild/lisp
./bin/slime
echo "--- Output End ---"

rm -rf quickbuild

+ 2
- 1
src/eval.c Просмотреть файл

@@ -285,12 +285,13 @@ Ast_Node* eval_expr(Ast_Node* node, Environment* env) {
case Ast_Node_Type_Nil:
ret->type = Ast_Node_Type_Nil;
return ret;
case Ast_Node_Type_Symbol:
case Ast_Node_Type_Symbol: {
Ast_Node* symbol;
try {
symbol = lookup_symbol(node->value.symbol, env);
}
return symbol;
}
case Ast_Node_Type_Number:
case Ast_Node_Type_Keyword:
case Ast_Node_Type_String:


+ 1
- 1
src/helpers.c Просмотреть файл

@@ -115,7 +115,7 @@ char* read_line() {
if((*line++ = (char)c) == '\n')
break;
}
*line--; // we dont want the \n actually
(*line)--; // we dont want the \n actually
*line = '\0';
return linep;
}

Загрузка…
Отмена
Сохранить