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