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

Removed <uninterned>

db4
Slava Pestov 2007-12-26 20:41:02 -05:00
parent c5d91d12df
commit 612b2bf78c
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/cocoa/messages/messages.factor
View File

@ -14,7 +14,7 @@ IN: cocoa.messages
[ % "_" % unparse % ] "" make ; [ % "_" % unparse % ] "" make ;
: sender-stub ( method function -- word ) : sender-stub ( method function -- word )
[ sender-stub-name <uninterned> dup ] 2keep [ sender-stub-name f <word> dup ] 2keep
over first large-struct? [ "_stret" append ] when over first large-struct? [ "_stret" append ] when
make-sender define-compound dup compile ; make-sender define-compound dup compile ;

8
extra/locals/locals.factor
View File

@ -27,22 +27,22 @@ PREDICATE: word local "local?" word-prop ;
: <local> ( name -- word ) : <local> ( name -- word )
#! Create a local variable identifier #! Create a local variable identifier
<uninterned> dup t "local?" set-word-prop ; f <word> dup t "local?" set-word-prop ;
PREDICATE: word local-word "local-word?" word-prop ; PREDICATE: word local-word "local-word?" word-prop ;
: <local-word> ( name -- word ) : <local-word> ( name -- word )
<uninterned> dup t "local-word?" set-word-prop ; f <word> dup t "local-word?" set-word-prop ;
PREDICATE: word local-reader "local-reader?" word-prop ; PREDICATE: word local-reader "local-reader?" word-prop ;
: <local-reader> ( name -- word ) : <local-reader> ( name -- word )
<uninterned> dup t "local-reader?" set-word-prop ; f <word> dup t "local-reader?" set-word-prop ;
PREDICATE: word local-writer "local-writer?" word-prop ; PREDICATE: word local-writer "local-writer?" word-prop ;
: <local-writer> ( reader -- word ) : <local-writer> ( reader -- word )
dup word-name "!" append <uninterned> dup word-name "!" append f <word>
[ t "local-writer?" set-word-prop ] keep [ t "local-writer?" set-word-prop ] keep
[ "local-writer" set-word-prop ] 2keep [ "local-writer" set-word-prop ] 2keep
[ swap "local-reader" set-word-prop ] keep ; [ swap "local-reader" set-word-prop ] keep ;