Eliminate duplicate syntax for stack effects "(" no longer drops and is identical...

[factor.git] / extra / variables / variables.factor

diff --git a/extra/variables/variables.factor b/extra/variables/variables.factor
index 1ce77f66a6304a1ef3e5057642a1805f46e6a131..a6dc84fbebea768ff053292f37f0af9aabaffc6e 100644 (file)
--- a/extra/variables/variables.factor
+++ b/extra/variables/variables.factor
@@ -23,12 +23,12 @@ SYNTAX: set:
     '[ _ set ] ;
 
 : (define-variable) ( word getter setter -- )
-    [ (( -- value )) define-inline ]
+    [ ( -- value ) define-inline ]
     [
         [
             [ name>> "set: " prepend <uninterned-word> ]
             [ over "variable-setter" set-word-prop ] bi
-        ] dip (( value -- )) define-inline
+        ] dip ( value -- ) define-inline
     ] bi-curry* bi ;
 
 : define-variable ( word -- )