From 6cd92a63132f1179aa2cf92f0c248af69d6f1d41 Mon Sep 17 00:00:00 2001 From: programarivm Date: Thu, 26 Sep 2019 15:18:37 +0100 Subject: [PATCH] cleanup --- 04-databases/GenealogicalTree.m | 2 +- README.md | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/04-databases/GenealogicalTree.m b/04-databases/GenealogicalTree.m index 505b34e..f966721 100644 --- a/04-databases/GenealogicalTree.m +++ b/04-databases/GenealogicalTree.m @@ -47,7 +47,7 @@ ; 0, the node does not exist ; 0, the node does not exist - w "Removing tree...",! + w !,"Removing tree...",! k ^gtree diff --git a/README.md b/README.md index 3b908a9..ee6df6d 100644 --- a/README.md +++ b/README.md @@ -228,6 +228,7 @@ Copy the examples into your `~/.fis-gtm/V6.3-003A_x86_64/r` folder and run: $data(^gtree(0,1,1,1)) is 1 $data(^gtree(0,0,0,0,0)) is 10 $data(^gtree(0)) is 11 + Removing tree... $data(^gtree(0,2)) is 0 $data(^gtree(0,1,1,1)) is 0