Fix infinite recursive signatures.

Such as this, submitted by Torsten Grust:

(define-record-procedures-parametric stream_ stream-of
  make-stream
  stream?
  (stream-head stream-tail))

(define stream
  (lambda (t)
    (signature (stream-of t (-> (stream t))))))

(: from (number -> (stream number)))
(define from
  (lambda (n)
    (make-stream n (lambda () (from (+ n 1))))))

(: foo (stream number))
(define foo (from 1))

The problem was that the arbitaries got evaluated too eagerly.

collects/deinprogramm/define-record-procedures.scm

@@ -189,14 +189,15 @@
 										 type-descriptor raw-predicate
 										 sigs
 										 #'?type-name)))
-						 (let ((arbs (map signature-arbitrary sigs)))
+						 (set-signature-arbitrary-promise! 
-						   (when (andmap values arbs)
+						  sig
-						     (set-signature-arbitrary! 
+						  (delay
-						      sig
+						    (let ((arbs (map signature-arbitrary sigs)))
-						      (apply arbitrary-record
+						      (when (andmap values arbs)
-							     ?constructor
+							(apply arbitrary-record
-							     (list raw-accessor-proc ...)
+							       ?constructor
-							     arbs))))
+							       (list raw-accessor-proc ...)
+							       arbs)))))
 						 sig)))
 				       'stepper-skip-completely
 				       #t)))

collects/deinprogramm/signature/signature.rkt

@@ -4,7 +4,7 @@
 	 signature-name signature-syntax signature-enforcer
 	 signature-arbitrary-promise
 	 signature-<=?-proc signature-=?-proc
-	 signature-arbitrary set-signature-arbitrary!
+	 signature-arbitrary set-signature-arbitrary! set-signature-arbitrary-promise!
 	 signature-info-promise
 	 signature-violation
 	 signature-violation-proc call-with-signature-violation-proc