diff options
| author | mryouse | 2022-07-14 22:21:57 +0000 |
|---|---|---|
| committer | mryouse | 2022-07-14 22:21:57 +0000 |
| commit | e7d48002ed31bca4c91e28037c29aefd7b88a951 (patch) | |
| tree | f2fd2db4811c362ddc166d008f83426ffb000639 | |
| parent | dd4ecaecd34f180e6db3aada0891a53a3f739e98 (diff) | |
bugfix: only evaluate first statement
| -rw-r--r-- | libs/fstring.neb | 4 |
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)))))) |