From bdb160dd6c430df3068032e9317c6366d8bf8eb2 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jjjj.local>
Date: Sat, 12 Jan 2008 19:49:36 -1000
Subject: [PATCH] compile-1 -> compile-call

---
 extra/random-tester/random-tester.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/random-tester/random-tester.factor b/extra/random-tester/random-tester.factor
index f8aa0f29b5..c3a1ecbec4 100644
--- a/extra/random-tester/random-tester.factor
+++ b/extra/random-tester/random-tester.factor
@@ -22,7 +22,7 @@ TUPLE: random-tester-error ;
     datastack clone after set
     clear
     before get [ ] each
-    quot get [ compile-1 ] [ errored on ] recover ;
+    quot get [ compile-call ] [ errored on ] recover ;
 
 : do-test ! ( data... quot -- )
     .s flush test-compiler