Converting to scheme/base

svn: r15268

collects/frtime/dv.ss

@@ -23,6 +23,7 @@
     [(struct dv (_ _ vec))
      (vector-set! vec pos new-val)]))
 
+; XXX Make this more efficient by preserving previous vector
 (define (dv:append a-dv item)
   (match a-dv
     [(struct dv (real used vec))

collects/frtime/mailbox.ss

@@ -56,7 +56,7 @@
        (not-on-receive empty))))  
   (make-mailbox manager control-ch msgs-ch))
 
-(define-struct receive (reply-ch timeout timeout-thunk  matcher))
+(define-struct receive (reply-ch timeout timeout-thunk matcher))
 (define (mailbox-send! mb msg)
   (match mb
     [(struct mailbox (thd _ msgs))