add summary on error

2008-03-29 14:50:52 -05:00 · 2008-03-29 14:50:52 -05:00 · a15159af69
parent cee0eb5be3
commit a15159af69
1 changed files with 3 additions and 0 deletions
--- 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 ;