diff options
| author | Taylan Kammer <taylan.kammer@gmail.com> | 2025-03-29 23:45:03 +0100 |
|---|---|---|
| committer | Taylan Kammer <taylan.kammer@gmail.com> | 2025-03-29 23:53:26 +0100 |
| commit | fc23b42c6e2183c8ca8b6c42dc4e90d8061f835d (patch) | |
| tree | a88f496bad87f881fcecd247a489438bc0c79779 /test-data | |
| parent | 451aa92846b5fd5c8a0739336de3aa26d741d750 (diff) | |
new new parser
Diffstat (limited to 'test-data')
| -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 |