Fixed the example call to have correct input

svn: r1315 original commit: e893ea7c431c691d5e9c4b39dc857633bfef3775
19 years ago · ae179c451c
parent 0869df1b8f
commit ae179c451c
1 changed files with 2 additions and 2 deletions
--- 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"))