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

Another fix

db4
Slava Pestov 2008-02-17 17:08:52 -06:00
parent bb3468dc2b
commit 9660a9c2d6
3 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/bootstrap/primitives.factor
View File

@ -98,7 +98,7 @@ H{ } clone update-map set
[ [
over "type" word-prop dup over "type" word-prop dup
\ tag-mask get < \ tag \ type ? , , \ eq? , \ tag-mask get < \ tag \ type ? , , \ eq? ,
] [ ] make define-predicate ; ] [ ] make define-predicate* ;
: register-builtin ( class -- ) : register-builtin ( class -- )
dup "type" word-prop builtins get set-nth ; dup "type" word-prop builtins get set-nth ;

7
core/vocabs/loader/loader.factor
View File

@ -69,13 +69,6 @@ M: vocab-link vocab-root
vocab-tests % vocab-tests %
] { } make ; ] { } make ;
TUPLE: no-vocab name ;
: no-vocab ( name -- * )
vocab-name \ no-vocab construct-boa throw ;
M: no-vocab summary drop "Vocabulary does not exist" ;
SYMBOL: load-help? SYMBOL: load-help?
: source-was-loaded t swap set-vocab-source-loaded? ; : source-was-loaded t swap set-vocab-source-loaded? ;

7
core/vocabs/vocabs.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2007 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2007, 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs strings kernel sorting namespaces sequences USING: assocs strings kernel sorting namespaces sequences
definitions ; definitions ;
@ -113,3 +113,8 @@ UNION: vocab-spec vocab vocab-link ;
vocab-name dictionary get delete-at ; vocab-name dictionary get delete-at ;
M: vocab-spec forget* forget-vocab ; M: vocab-spec forget* forget-vocab ;
TUPLE: no-vocab name ;
: no-vocab ( name -- * )
vocab-name \ no-vocab construct-boa throw ;