fix oop.factor

diff --git a/examples/irc.factor b/examples/irc.factor
index 4f695c7fb59d971129e267a29ff000a65b44209c..d2d1ebfff7de3d6a3090b39ddf687c2f3dcb6834 100644 (file)
--- a/examples/irc.factor
+++ b/examples/irc.factor
@@ -88,9 +88,7 @@ USE: unparser
     [
         [
             eval
-        ] [
-            default-error-handler
-        ] catch
+        ] print-error
     ] keep-datastack drop ;
 
 : with-irc-stream ( recepient quot -- )

diff --git a/examples/oop.factor b/examples/oop.factor
index 36e735d537c1d6c7d329223372536ff8c10aac88..8bd1c6f36c2ab222e4bf15cd4b475f35a0e68680 100644 (file)
--- a/examples/oop.factor
+++ b/examples/oop.factor
@@ -20,7 +20,7 @@ SYMBOL: traits
     "traits-map" word-property ;
 
 : 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 -- )
     <namespace> "traits-map" set-word-property ;