From 00e2c70b01f28c9b00ec3d5096895a387676774d Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 26 Aug 2016 00:46:55 +0200
Subject: Linking C functions

---
 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 a71e71f..c60c190 100644
--- a/interpreter/print.c
+++ b/interpreter/print.c
@@ -15,6 +15,9 @@ void print_token(token* tk) {
 		case TOKEN_CLOSE_SQ:  c = ']'; break;
 		case TOKEN_EQUALS:    c = '='; break;
 		case TOKEN_COMMA:     c = ','; break;
+		case TOKEN_CODE:
+			printf("code ");
+			return;
 		case TOKEN_NAME:
 			printf("%s", (char*) tk->var);
 			return;
@@ -41,6 +44,10 @@ void print_expression(expression* expr) {
 		case EXPR_NAME:
 			printf("%s", (char*) expr->var1);
 			break;
+		case EXPR_CODE:
+			printf("code [%p, %d args]",
+					(void*) expr->var1, *((unsigned char*) expr->var2));
+			break;
 		case EXPR_LIST:
 			if (!expr->var1) {
 				printf("[]");
-- 
cgit v1.2.3