sequences: bound -> index-or-length

[factor.git] / extra / mason / email / email.factor

diff --git a/extra/mason/email/email.factor b/extra/mason/email/email.factor
index ddeec95bc5add40c944414632e42240d53bec026..ebe869cc29a85d1590c91c18875056b709f8d2d3 100644 (file)
--- a/extra/mason/email/email.factor
+++ b/extra/mason/email/email.factor
@@ -25,7 +25,7 @@ IN: mason.email
 : report-subject ( status -- string )
     [
         subject-prefix %
-        current-git-id get 7 bound head %
+        current-git-id get 7 index-or-length head %
         " -- " %
         {
             { status-clean [ "clean" ] }