From fd6d7de5066190e11e41ceb3f8f1428af1ba68f4 Mon Sep 17 00:00:00 2001
From: Guillaume Marceau <gmarceau@gmail.com>
Date: Thu, 14 Jul 2011 00:12:47 -0400
Subject: [PATCH] Better fix for the previous bug. (cherry picked from commit
 793d7894f1e63f6b183c3e717f9d522133b39afb)

---
 collects/scribblings/htdp-langs/prim-ops.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/scribblings/htdp-langs/prim-ops.rkt b/collects/scribblings/htdp-langs/prim-ops.rkt
index 6fdd02885c..473e39851b 100644
--- a/collects/scribblings/htdp-langs/prim-ops.rkt
+++ b/collects/scribblings/htdp-langs/prim-ops.rkt
@@ -5,7 +5,7 @@
          scribble/struct
          scribble/racket
          racket/list
-         scheme/pretty
+         racket/pretty
          syntax/docprovide
          (for-syntax racket/base)
          )
@@ -33,7 +33,7 @@
 (define (typeset-type type)
   (let-values ([(in out) (make-pipe)])
     (parameterize ([pretty-print-columns 50])
-      (pretty-print type out))
+      (pretty-write type out))
     (port-count-lines! in)
     (read-syntax #f in)))