carpentry/infix
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix list case

Browse Source
This commit is contained in:
Veit Heller
2021-01-19 10:50:12 +01:00
parent 9787870aa7
commit eafb9a57a6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
infix.carp
View File

@@ -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))))