First try at implementing variables

1 files changed, 8 insertions, 4 deletions

diff --git a/print.c b/print.c
index e0443b3..588ce0a 100644
--- a/print.c
+++ b/print.c
@@ -10,16 +10,20 @@ ppdatum(Datum d)
 	Rune *result;
 	switch(d.tag){
 	case ArrayTag: result = pparray(d.array); break;
-	case FunctionTag: result = runesmprint("%C", primfuncnames[d.code]); break;
-	case HybridTag: result = runesmprint("%C", primhybridnames[d.code]); break;
-	case MonadicOpTag: result = runesmprint("%C", primmonopnames[d.code]); break;
-	case DyadicOpTag: result = runesmprint("%C", primdyadopnames[d.code]); break;
+	case FunctionTag: result = runesmprint("%C", primfuncnames[d.func.code]); break;
+	case HybridTag: result = runesmprint("%C", primhybridnames[d.func.code]); break;
+	case MonadicOpTag: result = runesmprint("%C", primmonopnames[d.func.code]); break;
+	case DyadicOpTag: result = runesmprint("%C", primdyadopnames[d.func.code]); break;
+	case BoundFunctionTag: result = runesmprint("%S∘%C", pparray(d.func.left), primfuncnames[d.func.code]); break;
 	case LParTag: result = runestrdup(L"("); break;
 	case RParTag: result = runestrdup(L")"); break;
 	case LCurlTag: result = runestrdup(L"{"); break;
 	case RCurlTag: result = runestrdup(L"}"); break;
 	case LBracketTag: result = runestrdup(L"["); break;
 	case RBracketTag: result = runestrdup(L"]"); break;
+	case ArrowTag: result = runestrdup(L"←"); break;
+	case AssignmentTag: result = runesmprint("%S←", d.symbol->name); break;
+	case NameTag: result = runestrdup(d.symbol->name); break;
 	default: result = runesmprint("<not printable %d>", d.tag);
 	}
 	return result;