From e7d48002ed31bca4c91e28037c29aefd7b88a951 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Thu, 14 Jul 2022 22:21:57 +0000
Subject: bugfix: only evaluate first statement

---
 libs/fstring.neb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'libs/fstring.neb')

diff --git a/libs/fstring.neb b/libs/fstring.neb
index 570d6bf..59b51ef 100644
--- a/libs/fstring.neb
+++ b/libs/fstring.neb
@@ -55,9 +55,9 @@
         ; returns (remaining value)
         (branch
             ((eq? "}" (first-char str))
-                (list (rest-char str) (->string (eval (parse-neb cur)))))
+                (list (rest-char str) (->string (eval (first (parse-neb cur))))))
             ((eq? "," (first-char str))
-                (special-parse (rest-char str) "" (->string (eval (parse-neb cur)))))
+                (special-parse (rest-char str) "" (->string (eval (first (parse-neb cur))))))
             (#true
                 (brace-parse (rest-char str) (concat cur (first-char str))))))
 
-- 
cgit v1.2.3