change errors to use "object" instead of "obj".
parent
eb68676f31
commit
ab3f3173af
|
|
@ -184,7 +184,7 @@ M: heap heap-pop ( heap -- value key )
|
|||
[ dup heap-pop swap 2array ]
|
||||
produce nip ;
|
||||
|
||||
ERROR: not-a-heap obj ;
|
||||
ERROR: not-a-heap object ;
|
||||
|
||||
: check-heap ( heap -- heap )
|
||||
dup heap? [ not-a-heap ] unless ; inline
|
||||
|
|
|
|||
|
|
@ -332,7 +332,7 @@ M: error-class reset-class
|
|||
: boa-effect ( class -- 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 )
|
||||
dup tuple-class? [ not-a-tuple-class ] unless ; inline
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@ C: <continuation> continuation
|
|||
|
||||
<PRIVATE
|
||||
|
||||
ERROR: not-a-continuation obj ;
|
||||
ERROR: not-a-continuation object ;
|
||||
|
||||
: >continuation< ( continuation -- data call retain name catch )
|
||||
dup continuation? [ not-a-continuation ] unless
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@ TUPLE: lexer
|
|||
|
||||
TUPLE: lexer-parsing-word word line line-text column ;
|
||||
|
||||
ERROR: not-a-lexer obj ;
|
||||
ERROR: not-a-lexer object ;
|
||||
|
||||
: check-lexer ( lexer -- lexer )
|
||||
dup lexer? [ not-a-lexer ] unless ; inline
|
||||
|
|
|
|||
|
|
@ -77,7 +77,7 @@ GML: sort-number-permutation ( array -- permutation )
|
|||
zip-index sort-keys reverse values ;
|
||||
|
||||
! Dictionaries
|
||||
ERROR: not-a-dict obj ;
|
||||
ERROR: not-a-dict object ;
|
||||
: check-dict ( obj -- obj' ) dup hashtable? [ not-a-dict ] unless ; inline
|
||||
|
||||
GML: begin ( dict -- ) check-dict over dictionary-stack>> push ;
|
||||
|
|
@ -105,7 +105,7 @@ GML: where ( key -- ? )
|
|||
GML: currentdict ( -- dict ) dup current-dict ;
|
||||
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
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue