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

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index dccf1e5e5500542f82130dd3df8a1efed50a0fb2..509ff9279ee64ddd1131e96bd16fcd730f0048a9 100644 (file)
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -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

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index ad2f9fea70c6eb4eddb41b149ed4406012b95bbc..544ad0e81ea46330fd6084204f144843c9c87364 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -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

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index ff244a5bda6edd24cc4094f744bdd65804a39234..b6d07a0f6c9be7749c1c63829caec81a3e7ff3a5 100644 (file)
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -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

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index f60babccc0c56dc2f50adbb7df2d12f3abb0f764..1dbcb0e2d3a4821595c8353ef45f75cbc2447a56 100644 (file)
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -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

diff --git a/extra/gml/core/core.factor b/extra/gml/core/core.factor
index ef7d5aab39cc85e8c9f2e54ed32801bf6f18150c..dec8142cc2064db1e2bdaf24f5ce64d9dc07cd45 100644 (file)
--- a/extra/gml/core/core.factor
+++ b/extra/gml/core/core.factor
@@ -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