From 3e6f3b020114be9550bb5893874fdb40b86fa2de Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Fri, 20 May 2016 13:26:28 +0200 Subject: [PATCH] add to default addressbook' --- gen.icl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/gen.icl b/gen.icl index acfdd61..efa8fa3 100644 --- a/gen.icl +++ b/gen.icl @@ -40,10 +40,11 @@ labelStream :: [Label] labelStream = ["lbl_" +++ toString i\\i<-[1..]] defaultAddressBook :: Addressbook -defaultAddressBook = extend "print" (LAB "print") - $ extend "read" (LAB "read") - $ extend "isEmpty" (LAB "isEmpty") - 'Map'.newMap +defaultAddressBook = extend "1printint" (LAB "1printint") + $ extend "1printchar" (LAB "1printchar") + $ extend "1readchar" (LAB "1readchar") + $ extend "1readint" (LAB "1readint") + 'Map'.newMap gen :: AST -> Either String String gen (AST fds) = case evalRWST prog () (defaultAddressBook, labelStream) of -- 2.20.1