From a15159af6944c1a341b581b81592cd997b2aac3b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Mar 2008 14:50:52 -0500
Subject: [PATCH] add summary on error

---
 extra/random/random.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/random/random.factor b/extra/random/random.factor
index c1701b1c0f..1168a4dd45 100755
--- a/extra/random/random.factor
+++ b/extra/random/random.factor
@@ -19,6 +19,9 @@ M: object random-32* ( tuple -- r ) 4 random-bytes* le> ;
 
 ERROR: no-random-number-generator ;
 
+M: no-random-number-generator summary
+    drop "Random number generator is not defined." ;
+
 M: f random-bytes* ( n obj -- * ) no-random-number-generator ;
 
 M: f random-32* ( obj -- * ) no-random-number-generator ;