From eedffbca235049eec8db9b2ec4ee5b7f6e23a979 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 4 Nov 2009 17:22:48 +0000 Subject: [PATCH] minor tweak to an example svn: r16543 --- collects/scribblings/reference/numbers.scrbl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index f7d4bbe053..d3c7f3075a 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/collects/scribblings/reference/numbers.scrbl @@ -1,6 +1,7 @@ #lang scribble/doc @(require "mz.ss" - scheme/math) + scheme/math + (for-label scheme/math)) @(define math-eval (make-base-eval)) @(interaction-eval #:eval math-eval (require scheme/math)) @@ -508,7 +509,9 @@ produces @scheme[+nan.0] in the case that neither @scheme[y] nor @defproc[(make-polar [magnitude real?] [angle real?]) number?]{ Returns @scheme[(+ (* magnitude (cos angle)) (* magnitude (sin angle) 0+1i))]. -@mz-examples[(make-polar 2 3.14159)]} +@mz-examples[#:eval math-eval + (make-polar 10 (* pi 1/2)) + (make-polar 10 (* pi 1/4))]} @defproc[(real-part [z number?]) real?]{ Returns the real part of