minor indentation changes

Doug Coleman 2009-06-11 11:02:40 -05:00
parent f2e624bac1
commit 9401346a7c
2 changed files with 9 additions and 6 deletions

View File

@ -104,8 +104,8 @@ HOOK: signal-error. os ( obj -- )
"Cannot do next-object outside begin/end-scan" print drop ; "Cannot do next-object outside begin/end-scan" print drop ;
: undefined-symbol-error. ( obj -- ) : undefined-symbol-error. ( obj -- )
"The image refers to a library or symbol that was not found" "The image refers to a library or symbol that was not found at load time"
" at load time" append print drop ; print drop ;
: stack-underflow. ( obj name -- ) : stack-underflow. ( obj name -- )
write " stack underflow" print drop ; write " stack underflow" print drop ;
@ -252,12 +252,15 @@ M: no-current-vocab summary
drop "Not in a vocabulary; IN: form required" ; drop "Not in a vocabulary; IN: form required" ;
M: no-word-error summary 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: no-word-error error. summary print ;
M: ambiguous-use-error summary 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 ; M: ambiguous-use-error error. summary print ;

View File

@ -1,5 +1,5 @@
USING: combinators kernel math parser sequences splitting ;
IN: porter-stemmer IN: porter-stemmer
USING: kernel math parser sequences combinators splitting ;
: consonant? ( i str -- ? ) : consonant? ( i str -- ? )
2dup nth dup "aeiou" member? [ 2dup nth dup "aeiou" member? [