push goops compile delay out to 30 invocations, for great justice

[bpt/guile.git] / module / oop / goops / dispatch.scm

diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
index df76800..e433b86 100644 (file)
--- a/module/oop/goops/dispatch.scm
+++ b/module/oop/goops/dispatch.scm
@@ -190,7 +190,7 @@
 ;;
 ;;            get out before it blows    o/~
 ;;
-(define timer-init 10)
+(define timer-init 30)
 (define (delayed-compile gf)
   (let ((timer timer-init))
     (lambda args