diff options
Diffstat (limited to 'test-data/parser-torture.scm')
| -rw-r--r-- | test-data/parser-torture.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-data/parser-torture.scm b/test-data/parser-torture.scm index b28eb5c..d475379 100644 --- a/test-data/parser-torture.scm +++ b/test-data/parser-torture.scm @@ -50870,7 +50870,7 @@ arbitrary limit." (let ((number\' (* number (expt 10 decimals)))) (if (or (= number\' (floor number\')) (>= decimals max-decimals)) - (let* ((fraction (- number' + (let* ((fraction (- number\' (* (floor number) (expt 10 decimals)))) (str (integer->string @@ -64342,7 +64342,7 @@ as its arguments." (newline)) (SECTION 2 1);; test that all symbol characters are supported. -'(+ - ... !.. $.+ %.- &.! *.: /:. :+. <-. =. >. ?. ~. _. ^.) +;'(+ - ... !.. $.+ %.- &.! *.: /:. :+. <-. =. >. ?. ~. _. ^.) (SECTION 3 4) (define disjoint-type-functions |