aboutsummaryrefslogtreecommitdiff
path: root/libs/fstring.neb
diff options
context:
space:
mode:
authormryouse2022-07-14 22:21:57 +0000
committermryouse2022-07-14 22:21:57 +0000
commite7d48002ed31bca4c91e28037c29aefd7b88a951 (patch)
treef2fd2db4811c362ddc166d008f83426ffb000639 /libs/fstring.neb
parentdd4ecaecd34f180e6db3aada0891a53a3f739e98 (diff)
bugfix: only evaluate first statement
Diffstat (limited to 'libs/fstring.neb')
-rw-r--r--libs/fstring.neb4
1 files changed, 2 insertions, 2 deletions
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))))))