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

change literal string throw to ERROR:

db4
Doug Coleman 2008-08-29 00:34:22 -05:00
parent 98bbf464a2
commit 39940f793d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/biassocs/biassocs.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel assocs accessors ; USING: kernel assocs accessors summary ;
IN: biassocs IN: biassocs
TUPLE: biassoc from to ; TUPLE: biassoc from to ;
@ -23,8 +23,13 @@ M: biassoc value-at* to>> at* ;
M: biassoc set-at M: biassoc set-at
[ from>> set-at ] [ swapd to>> once-at ] 3bi ; [ from>> set-at ] [ swapd to>> once-at ] 3bi ;
ERROR: no-biassoc-deletion ;
M: no-biassoc-deletion summary
drop "biassocs do not support deletion" ;
M: biassoc delete-at M: biassoc delete-at
"biassocs do not support deletion" throw ; no-biassoc-deletion ;
M: biassoc >alist M: biassoc >alist
from>> >alist ; from>> >alist ;