diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor index 7994c3ed96..b10ca775f4 100644 --- a/basis/debugger/debugger.factor +++ b/basis/debugger/debugger.factor @@ -104,8 +104,8 @@ HOOK: signal-error. os ( obj -- ) "Cannot do next-object outside begin/end-scan" print drop ; : undefined-symbol-error. ( obj -- ) - "The image refers to a library or symbol that was not found" - " at load time" append print drop ; + "The image refers to a library or symbol that was not found at load time" + print drop ; : stack-underflow. ( obj name -- ) write " stack underflow" print drop ; @@ -252,12 +252,15 @@ M: no-current-vocab summary drop "Not in a vocabulary; IN: form required" ; M: no-word-error summary - name>> "No word named ``" "'' found in current vocabulary search path" surround ; + name>> + "No word named ``" + "'' found in current vocabulary search path" surround ; M: no-word-error error. summary print ; M: ambiguous-use-error summary - words>> first name>> "More than one vocabulary defines a word named ``" "''" surround ; + words>> first name>> + "More than one vocabulary defines a word named ``" "''" surround ; M: ambiguous-use-error error. summary print ; @@ -317,4 +320,4 @@ M: wrong-values summary drop "Quotation called with wrong stack effect" ; { { [ os windows? ] [ "debugger.windows" require ] } { [ os unix? ] [ "debugger.unix" require ] } -} cond \ No newline at end of file +} cond diff --git a/basis/porter-stemmer/porter-stemmer.factor b/basis/porter-stemmer/porter-stemmer.factor index 35ed84aaf4..4765df10d7 100644 --- a/basis/porter-stemmer/porter-stemmer.factor +++ b/basis/porter-stemmer/porter-stemmer.factor @@ -1,5 +1,5 @@ +USING: combinators kernel math parser sequences splitting ; IN: porter-stemmer -USING: kernel math parser sequences combinators splitting ; : consonant? ( i str -- ? ) 2dup nth dup "aeiou" member? [