From ae179c451c0d82df8525595a86fe5865891d0f6a Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Mon, 14 Nov 2005 22:08:02 +0000 Subject: [PATCH] Fixed the example call to have correct input svn: r1315 original commit: e893ea7c431c691d5e9c4b39dc857633bfef3775 --- collects/parser-tools/examples/calc.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/parser-tools/examples/calc.ss b/collects/parser-tools/examples/calc.ss index ba65091..3ddd5eb 100644 --- a/collects/parser-tools/examples/calc.ss +++ b/collects/parser-tools/examples/calc.ss @@ -66,7 +66,7 @@ $3)] [(FNCT OP exp CP) ($1 $3)] [(exp + exp) (+ $1 $3)] - [(exp - exp) (+ $1 $3)] + [(exp - exp) (- $1 $3)] [(exp * exp) (* $1 $3)] [(exp / exp) (/ $1 $3)] [(- exp) (prec NEG) (- $2)] @@ -85,4 +85,4 @@ (one-line))))))) (one-line))) -(calc (open-input-string "(1 + 2 * 3 3) 3)\n(1.2 + 3.3) / 44 \n !")) +(calc (open-input-string "(1 + 2 * 3) - (1+2)*3"))