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

fix oop.factor

cvs
Slava Pestov 2004-11-26 04:09:52 +00:00
parent cf2bfad780
commit c9a4aaf6ba
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/irc.factor
View File

@ -88,9 +88,7 @@ USE: unparser
[ [
[ [
eval eval
] [ ] print-error
default-error-handler
] catch
] keep-datastack drop ; ] keep-datastack drop ;
: with-irc-stream ( recepient quot -- ) : with-irc-stream ( recepient quot -- )

2
examples/oop.factor
View File

@ -20,7 +20,7 @@ SYMBOL: traits
"traits-map" word-property ; "traits-map" word-property ;
: object-map ( obj -- hash ) : object-map ( obj -- hash )
dup has-namespace? [ traits swap get* ] [ drop f ] ifte ; dup hashtable? [ traits swap hash ] [ drop f ] ifte ;
: init-traits-map ( word -- ) : init-traits-map ( word -- )
<namespace> "traits-map" set-word-property ; <namespace> "traits-map" set-word-property ;