From c686521bdc481283a5ad005c9506dce5af6a8257 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 16 Jan 2009 12:47:33 -0600 Subject: [PATCH] present now supports vocab-specs not just vocabs --- basis/present/present-tests.factor | 5 +++-- basis/present/present.factor | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/present/present-tests.factor b/basis/present/present-tests.factor index e7618caed5..22d352cb5a 100644 --- a/basis/present/present-tests.factor +++ b/basis/present/present-tests.factor @@ -1,7 +1,8 @@ IN: present.tests -USING: tools.test present math vocabs ; +USING: tools.test present math vocabs tools.vocabs sequences kernel ; [ "3" ] [ 3 present ] unit-test [ "Hi" ] [ "Hi" present ] unit-test [ "+" ] [ \ + present ] unit-test -[ "kernel" ] [ "kernel" vocab present ] unit-test \ No newline at end of file +[ "kernel" ] [ "kernel" vocab present ] unit-test +[ ] [ all-vocabs-seq [ present ] map drop ] unit-test \ No newline at end of file diff --git a/basis/present/present.factor b/basis/present/present.factor index f7916913c7..1d9f8d5445 100644 --- a/basis/present/present.factor +++ b/basis/present/present.factor @@ -12,7 +12,7 @@ M: string present ; M: word present name>> ; -M: vocab present name>> ; +M: vocab-spec present name>> ; M: effect present effect>string ;