Fix bug concatenating strings.

jacobly0 · Aug 11, 2021 · 015196c · 015196c
1 parent 2fb5a5b
commit 015196c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ld.alm b/ld.alm
@@ -742,8 +742,8 @@ macro ?! $              : $              , \
 		compute dirname, dirname
 		compute filename, filename
 		compute path, string dirname \
-		                  or '/' shl (lengthof filename shl 3) \
-		                  or filename shl (lengthof filename shl 3 + 8)
+		                  or '/' shl (lengthof dirname shl 3) \
+		                  or filename shl ((lengthof dirname + 1) shl 3)
 	store:
 		compute fileno, fileno
 		arrange var, lines.fileno.=path