core: cramp -> bound (was short)

[factor.git] / basis / multiline / multiline.factor

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 00c71b86d06bc2f151407008f557b9b41cacc27c..66189cfe7f9fa9e08e7e03065b681934417ba90a 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -44,7 +44,7 @@ SYNTAX: STRING:
         i text end find-subseq-from [| j |
             i j text subseq % j end length +
         ] [
-            text i cramp tail % CHAR: \n ,
+            text i bound tail % CHAR: \n ,
             lexer next-line
             0 end lexer (scan-multiline-string)
         ] if*