From c07883f4cb3c687186895afb0a5060943f7c96cd Mon Sep 17 00:00:00 2001 From: Simon Forman Date: Tue, 9 Apr 2024 12:35:14 -0700 Subject: [PATCH] The accumulator parameter was unneccesary. D'oh! THat's the benefit of re-reading your code though: finding derpy shit like this. --- implementations/scheme-chicken/joy.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index c4b018a..228a71b 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -205,18 +205,18 @@ (define (one-token-lookahead token tokens) (match token ("]" (abort "Extra closing bracket.")) - ("[" (expect-right-bracket tokens '())) + ("[" (expect-right-bracket tokens)) (_ (values (tokenator token) tokens)))) -(define (expect-right-bracket tokens0 acc) +(define (expect-right-bracket tokens0) (if (null? tokens0) (abort "Missing closing bracket.") (receive (token tokens) (car+cdr tokens0) (match token - ("]" (values acc tokens)) - ("[" (receive (sub_list rest) (expect-right-bracket tokens '()) - (receive (el rrest) (expect-right-bracket rest acc) + ("]" (values '() tokens)) + ("[" (receive (sub_list rest) (expect-right-bracket tokens) + (receive (el rrest) (expect-right-bracket rest) (values (cons sub_list el) rrest)))) - (_ (receive (el rest) (expect-right-bracket tokens acc) + (_ (receive (el rest) (expect-right-bracket tokens) (values (cons (tokenator token) el) rest))))))) (define (tokenator token)