Fix a bug in CONSTANT: -- it wasn't calling reset-word

2009-03-29 22:46:27 -05:00 · 2009-03-29 22:46:27 -05:00 · 5a903d7bcd
parent a40b4f6dfa
commit 5a903d7bcd
2 changed files with 7 additions and 1 deletions
--- 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

    ":" [
--- a/core/words/alias/alias-tests.factor
+++ 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