From 8251d788f1cabcfa68c2d7bb3826f4d0f72a7d83 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Sat, 28 Jan 2006 19:08:58 +0000
Subject: [PATCH] bugs

---
 contrib/random-tester/random-tester.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index 754fb548f1..b6a6ea55e2 100644
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -190,7 +190,8 @@ SYMBOL: last-quot
     = [ "problem in math" throw ] unless ;
 
 : interp-compile-check-1 ( x quot -- )
-    dup . flush
+    .s flush
+    ! dup . flush
     [ last-quot set ] keep
     [ call ] 2keep compile-1
     2dup swap unparse write " " write unparse print
@@ -392,6 +393,10 @@ SYMBOL: last-quot
         random-number , \ dup , \ float? , float>x nth-rand unit , \ when ,
     ] [ ] make interp-compile-check ;
 
+: test-float?-when-1
+    random-float [
+        \ dup , \ float? , float>x nth-rand unit , \ when ,
+    ] [ ] make interp-compile-check-1 ;
 
 
 : stack-identity-0