From 41fd830484d817d5102561ed2a2f98d0d3d54fcb Mon Sep 17 00:00:00 2001
From: johnvg
Date: Tue, 25 Jan 2005 16:26:40 +0000
Subject: print "(let ...) or #" for Let and "update of record" for
 RecordUpdate in error messages

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1511 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/syntax.icl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'frontend')

diff --git a/frontend/syntax.icl b/frontend/syntax.icl
index edfad93..9f35a45 100644
--- a/frontend/syntax.icl
+++ b/frontend/syntax.icl
@@ -862,6 +862,10 @@ where
 			= file <<< bv
 		show_expression file (MatchExpr _ expr)
 			= file <<< "match expression"
+		show_expression file (Let _)
+			= file <<< "(let ... ) or #"
+		show_expression file (RecordUpdate _ _ _)
+			= file <<< "update of record"
 		show_expression file _
 			= file
 		
-- 
cgit v1.2.3