From eafb9a57a69520a2062e00121627889c833da383 Mon Sep 17 00:00:00 2001 From: hellerve Date: Tue, 19 Jan 2021 10:50:12 +0100 Subject: [PATCH] fix list case --- infix.carp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/infix.carp b/infix.carp index 0fc1007..8994d9a 100644 --- a/infix.carp +++ b/infix.carp @@ -17,7 +17,7 @@ (car operands) (infix-op expr operators operands)) (if (list? (car expr)) - (infix:parse (cdr expr) operators (cons (infix:parse (car expr)) operands)) + (infix-parse (cdr expr) operators (cons (infix-parse (car expr) '() '()) operands)) (if (symbol? (car expr)) (if (or (null? operators) (> (infix-prec (car expr)) (infix-prec (car operators))))