From 403e58dbb711a60ccffa5f9c0a97709c9d8a2cc5 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 18 Jul 2017 13:20:31 +0000
Subject: ABC machine instructions

---
 Sil/Compile.icl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Sil/Compile.icl')

diff --git a/Sil/Compile.icl b/Sil/Compile.icl
index fc9bc9b..c64079e 100644
--- a/Sil/Compile.icl
+++ b/Sil/Compile.icl
@@ -153,6 +153,7 @@ where
 	gen (Application app)   = comment "Application" *> gen app
 	gen (Return (Just app)) = comment "Return" *> gen app *> cleanup *> tell ['ABC'.Rtn]
 	gen (Return Nothing)    = comment "Return" *> cleanup *> tell ['ABC'.Rtn]
+	gen (MachineStm s)      = tell ['ABC'.Raw s]
 
 instance gen Application
 where
-- 
cgit v1.2.3