From fc23b42c6e2183c8ca8b6c42dc4e90d8061f835d Mon Sep 17 00:00:00 2001 From: Taylan Kammer Date: Sat, 29 Mar 2025 23:45:03 +0100 Subject: new new parser --- test-data/parser-torture.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'test-data') 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 -- cgit v1.2.3