From 5fa8a5684cfb2456b536765b608f0883b1b90029 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 26 Aug 2016 14:00:29 +0200
Subject: Added strictness annotations

---
 interpreter/print.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'interpreter/print.c')

diff --git a/interpreter/print.c b/interpreter/print.c
index c60c190..3f17475 100644
--- a/interpreter/print.c
+++ b/interpreter/print.c
@@ -15,6 +15,7 @@ void print_token(token* tk) {
 		case TOKEN_CLOSE_SQ:  c = ']'; break;
 		case TOKEN_EQUALS:    c = '='; break;
 		case TOKEN_COMMA:     c = ','; break;
+		case TOKEN_STRICT:    c = '!'; break;
 		case TOKEN_CODE:
 			printf("code ");
 			return;
@@ -37,6 +38,12 @@ void print_token_list(token_list* list) {
 }
 
 void print_expression(expression* expr) {
+	if (!expr)
+		return;
+
+	if (expr->is_strict)
+		printf("!");
+
 	switch (expr->kind) {
 		case EXPR_INT:
 			printf("%d", *((int*) expr->var1));
-- 
cgit v1.2.3