From 88388bd46774cb3b4dfaaa02473a85d36d9d76dc Mon Sep 17 00:00:00 2001
From: forsyth <forsyth@vitanuova.com>
Date: Sat, 18 Jul 2009 23:02:08 +0100
Subject: 20070918

---
 appl/cmd/stream.b | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'appl/cmd')

diff --git a/appl/cmd/stream.b b/appl/cmd/stream.b
index 4dd2cda3..90362cd8 100644
--- a/appl/cmd/stream.b
+++ b/appl/cmd/stream.b
@@ -93,6 +93,5 @@ eopen(name: string, mode: int): ref Sys->FD
 
 fail(s: string)
 {
-	raise s;
-	exit;
+	raise "fail:"+s;
 }
-- 
cgit v1.2.3