steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

change errors to use "object" instead of "obj".

db4
John Benediktsson 2014-12-01 08:04:49 -08:00
parent eb68676f31
commit ab3f3173af
5 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/heaps/heaps.factor
View File

@ -184,7 +184,7 @@ M: heap heap-pop ( heap -- value key )
[ dup heap-pop swap 2array ] [ dup heap-pop swap 2array ]
produce nip ; produce nip ;
ERROR: not-a-heap obj ; ERROR: not-a-heap object ;
: check-heap ( heap -- heap ) : check-heap ( heap -- heap )
dup heap? [ not-a-heap ] unless ; inline dup heap? [ not-a-heap ] unless ; inline

2
core/classes/tuple/tuple.factor
View File

@ -332,7 +332,7 @@ M: error-class reset-class
: boa-effect ( class -- effect ) : boa-effect ( class -- effect )
[ all-slots [ name>> ] map ] [ name>> 1array ] bi <effect> ; [ all-slots [ name>> ] map ] [ name>> 1array ] bi <effect> ;
ERROR: not-a-tuple-class obj ; ERROR: not-a-tuple-class object ;
: check-tuple-class ( class -- class ) : check-tuple-class ( class -- class )
dup tuple-class? [ not-a-tuple-class ] unless ; inline dup tuple-class? [ not-a-tuple-class ] unless ; inline

2
core/continuations/continuations.factor
View File

@ -49,7 +49,7 @@ C: <continuation> continuation
<PRIVATE <PRIVATE
ERROR: not-a-continuation obj ; ERROR: not-a-continuation object ;
: >continuation< ( continuation -- data call retain name catch ) : >continuation< ( continuation -- data call retain name catch )
dup continuation? [ not-a-continuation ] unless dup continuation? [ not-a-continuation ] unless

2
core/lexer/lexer.factor
View File

@ -15,7 +15,7 @@ TUPLE: lexer
TUPLE: lexer-parsing-word word line line-text column ; TUPLE: lexer-parsing-word word line line-text column ;
ERROR: not-a-lexer obj ; ERROR: not-a-lexer object ;
: check-lexer ( lexer -- lexer ) : check-lexer ( lexer -- lexer )
dup lexer? [ not-a-lexer ] unless ; inline dup lexer? [ not-a-lexer ] unless ; inline

4
extra/gml/core/core.factor
View File

@ -77,7 +77,7 @@ GML: sort-number-permutation ( array -- permutation )
zip-index sort-keys reverse values ; zip-index sort-keys reverse values ;
! Dictionaries ! Dictionaries
ERROR: not-a-dict obj ; ERROR: not-a-dict object ;
: check-dict ( obj -- obj' ) dup hashtable? [ not-a-dict ] unless ; inline : check-dict ( obj -- obj' ) dup hashtable? [ not-a-dict ] unless ; inline
GML: begin ( dict -- ) check-dict over dictionary-stack>> push ; GML: begin ( dict -- ) check-dict over dictionary-stack>> push ;
@ -105,7 +105,7 @@ GML: where ( key -- ? )
GML: currentdict ( -- dict ) dup current-dict ; GML: currentdict ( -- dict ) dup current-dict ;
GML: load ( name -- value ) over lookup-name ; GML: load ( name -- value ) over lookup-name ;
ERROR: not-a-name obj ; ERROR: not-a-name object ;
: check-name ( obj -- obj' ) dup name? [ not-a-name ] unless ; inline : check-name ( obj -- obj' ) dup name? [ not-a-name ] unless ; inline