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

use ERROR: instead of throwing strings

db4
Doug Coleman 2008-08-29 01:59:25 -05:00
parent 475a96dcb7
commit 144f79ffab
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/mirrors/mirrors.factor
View File

@ -16,10 +16,13 @@ M: mirror at*
[ nip object>> ] [ object-slots slot-named ] 2bi [ nip object>> ] [ object-slots slot-named ] 2bi
dup [ offset>> slot t ] [ 2drop f f ] if ; dup [ offset>> slot t ] [ 2drop f f ] if ;
ERROR: no-such-slot slot ;
ERROR: read-only-slot slot ;
: check-set-slot ( val slot -- val offset ) : check-set-slot ( val slot -- val offset )
{ {
{ [ dup not ] [ "No such slot" throw ] } { [ dup not ] [ no-such-slot ] }
{ [ dup read-only>> ] [ "Read only slot" throw ] } { [ dup read-only>> ] [ read-only-slot ] }
{ [ 2dup class>> instance? not ] [ class>> bad-slot-value ] } { [ 2dup class>> instance? not ] [ class>> bad-slot-value ] }
[ offset>> ] [ offset>> ]
} cond ; inline } cond ; inline