From 5a903d7bcd935efab6134f74e60a845ed13346cb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 29 Mar 2009 22:46:27 -0500 Subject: [PATCH] Fix a bug in CONSTANT: -- it wasn't calling reset-word --- core/syntax/syntax.factor | 2 +- core/words/alias/alias-tests.factor | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 core/words/alias/alias-tests.factor diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor index bcf9decdf3..cb5cdfd5ac 100644 --- a/core/syntax/syntax.factor +++ b/core/syntax/syntax.factor @@ -138,7 +138,7 @@ IN: bootstrap.syntax ] define-core-syntax "CONSTANT:" [ - CREATE scan-object define-constant + CREATE-WORD scan-object define-constant ] define-core-syntax ":" [ diff --git a/core/words/alias/alias-tests.factor b/core/words/alias/alias-tests.factor new file mode 100644 index 0000000000..0278a4d4b9 --- /dev/null +++ b/core/words/alias/alias-tests.factor @@ -0,0 +1,6 @@ +USING: math eval tools.test effects ; +IN: words.alias.tests + +ALIAS: foo + +[ ] [ "IN: words.alias.tests CONSTANT: foo 5" eval ] unit-test +[ (( -- value )) ] [ \ foo stack-effect ] unit-test \ No newline at end of file