Fix a bug in CONSTANT: -- it wasn't calling reset-word
parent
a40b4f6dfa
commit
5a903d7bcd
|
@ -138,7 +138,7 @@ IN: bootstrap.syntax
|
||||||
] define-core-syntax
|
] define-core-syntax
|
||||||
|
|
||||||
"CONSTANT:" [
|
"CONSTANT:" [
|
||||||
CREATE scan-object define-constant
|
CREATE-WORD scan-object define-constant
|
||||||
] define-core-syntax
|
] define-core-syntax
|
||||||
|
|
||||||
":" [
|
":" [
|
||||||
|
|
|
@ -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
|
Loading…
Reference in New Issue