]> gitweb.factorcode.org Git - factor.git/commitdiff
core/extra tests: Fix word -> last-word
authorDoug Coleman <doug.coleman@gmail.com>
Sun, 24 Mar 2013 08:11:54 +0000 (01:11 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Sun, 24 Mar 2013 08:11:54 +0000 (01:11 -0700)
core/classes/tuple/tuple-tests.factor
core/parser/parser-tests.factor
extra/specialized/specialized.factor

index ecdd4528d9d4dfdd070330e57cbb72cb3ffca2ba..8e106d692a1565512bf7702c9ebffde0d07dfdfb 100644 (file)
@@ -95,7 +95,7 @@ C: <empty> empty
 [ t length ] [ object>> t eq? ] must-fail-with
 
 [ "<constructor-test>" ]
-[ "IN: classes.tuple.test TUPLE: constructor-test ; C: <constructor-test> constructor-test" eval( -- ) word name>> ] unit-test
+[ "IN: classes.tuple.test TUPLE: constructor-test ; C: <constructor-test> constructor-test" eval( -- ) last-word name>> ] unit-test
 
 TUPLE: size-test a b c d ;
 
index a4fed6330a55b78cf0b49ae817a9c36d3db1253a..267fcb3eb71e009dd1faa0cfbf2ba18aef4f60ca 100644 (file)
@@ -342,7 +342,7 @@ DEFER: foo
 ] unit-test
 
 [ t ] [
-    "foo" "parser.tests" lookup-word word eq?
+    "foo" "parser.tests" lookup-word last-word eq?
 ] unit-test
 
 [ ] [
index 035a587c2ffbbaa9ec64fe6593dfbdb2321fae57..0f900f59a3e3608e2a5e1a233cee233bd33c3876 100644 (file)
@@ -48,7 +48,7 @@ ERROR: bad-outputs word quot ;
     [ dupd specialized-quot "custom-inlining" set-word-prop ] 2bi ;
 
 SYNTAX: specialized
-    word dup stack-effect in>> length make-specialized ;
+    last-word dup stack-effect in>> length make-specialized ;
 
 PREDICATE: specialized-word < word
    "specialized-defs" word-prop >boolean ;