minor indentation changes
parent
f2e624bac1
commit
9401346a7c
|
@ -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 ;
|
||||||
|
|
||||||
|
@ -317,4 +320,4 @@ M: wrong-values summary drop "Quotation called with wrong stack effect" ;
|
||||||
{
|
{
|
||||||
{ [ os windows? ] [ "debugger.windows" require ] }
|
{ [ os windows? ] [ "debugger.windows" require ] }
|
||||||
{ [ os unix? ] [ "debugger.unix" require ] }
|
{ [ os unix? ] [ "debugger.unix" require ] }
|
||||||
} cond
|
} cond
|
||||||
|
|
|
@ -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? [
|
||||||
|
|
Loading…
Reference in New Issue